Discussion :

[BRUNO71]

Bonjour,

J'ai ce message Type incompatible dans le critère - Erreur d'execution 3464 ....J'ai beau changer String par Integer...ça ne fonctionne pas....
Voici le code VBA..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
 
Dim Num As String
 
 Num = Me.num_cmd.Value
 
                Set oRst = oDb.OpenRecordset("SELECT * FROM Tble_demande WHERE Num_demande='" & Num & "'")
 
               While Not oRst.EOF
 
                oRst.Delete
 
               oRst.MoveNext
 
                Wend
 
oRst.Close
oDb.Close
Set oRst = Nothing

Que dois-je changer....?
Merci de votre aide..

[madefemere]

Bonjour,

Le code en VBA n'est pas du pile ou face !

Si le contenu de Me.num_cmd est numérique, le code sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Num As Integer
Num = Me.num_cmd.Value
               Set oRst = oDb.OpenRecordset("SELECT * FROM Tble_demande WHERE Num_demande=" & Num)

Si le contenu de Me.num_cmd est du texte,il faut mettre le variable entre quotes et le code sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Dim Num As String
Num = Me.num_cmd.Value
               Set oRst = oDb.OpenRecordset("SELECT * FROM Tble_demande WHERE Num_demande='" & Num & "'")

Cordialement.

[Malick]

À partir du blog de Fabrice CONSTANS (loufab) et cette proposition de marot_r, j'ai fait une réadaptation de votre code. Voici le code modifié :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
Option Compare Database
 
Private Sub BtnSupp_Click()
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
 
Dim Num As String
 
 'Num = Me.Num_cmd.Value
 
           ' Set oRst = oDb.OpenRecordset("SELECT * FROM Tble_demande WHERE Num_demande= Me.Num_cmd;")
               Set oRst = oDb.OpenRecordset("SELECT Num_demande FROM Tble_demande " & _
               "WHERE Num_demande=Eval('Forms.frmDemande.Num_cmd');", dbOpenDynaset)
 
                While Not oRst.EOF
 
                oRst.Delete
 
               oRst.MoveNext
 
                Wend
 
oRst.Close
oDb.Close
Set oRst = Nothing
Me.Requery
End Sub

Exemple :

[marot_r]

Bonjour.

Quand c'est un nombre, il ne faut pas délimiteur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"SELECT * FROM Tble_demande WHERE Num_demande=" & Num)

Les règles pour les délimiteurs

• Chaîne de caractères : Guillemet (") ou Apostrophe ('). Attention pour utiliser un guillemet dans une chaîne, il faut le doubler. Ex : WHERE TonChampTexte=""" & TaValeurTexte & """".
• Nombres : Pas délimiteurs. Attention à la virgule (,) dans les nombres décimaux. elle peut être vue comme un séparateur d'arguments. En SQL la virgule est toujours un point (.).
• Date : Dièse (#). Si tu es en environnement multilingue je recommande l'utilisation du format inversé qui évite toute ambiguïtéé. Ex : "#" & Format([TaDate], "yyyy\-mm\-dd") & "#".
• Booléen : Pas de délimiteurs

A+

[BRUNO71]

Merci à vous....

Merci marot_r pour les explications.. Les règles pour les délimiteurs.