Discussion :

[SnakeCharmer]

Bonjour,

Je ne m'y connais pas vraiment en SQL, et j'ai donc une question basique je pense : comment fait-on pour intégrer une variable préalablement définie dans VBA ?

Code :

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

DoCmd.RunSQL "DELETE * FROM [Informations Devis] WHERE [NumeroDevis]= NumDev"

J'ai placé ce code sur un bouton de commande. Sur clic, il me demande alors la valeur de NumDev, alors qu'elle esr censé être défini par VB.

[Heureux-oli]

Logique, NumDev est inclu dans la chaîne de caractère.

Essaie de cette manière :

Code :

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

DoCmd.RunSQL "DELETE * FROM [Informations Devis] WHERE [NumeroDevis]= " &  NumDev

[SnakeCharmer]

Avec cette synthaxe j'ai un message d'erreur : type de donnée incompatible dans l'expression du critère (erreur 3464)

Pourtant, dans la table NumeroDevis est bien déclaré comme de type "texte" et la variable NumDev comme string... juske là pas d'erreur il me semble ?

[vodiem]

salut à tous,

la variable NumDev comme string...

visiblement non, essai avec:

Code :

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

& Cstr(NumDev)

[SnakeCharmer]

Code :

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

1
2
3
4
5
6
Private Sub Commande32_Click()
Dim NumDev As String
NumDev = Me![Modifiable8]
 
DoCmd.RunSQL "DELETE * FROM [Informations Devis] WHERE [NumeroDevis] = " & CStr(NumDev)
end sub

Voilà le sub complet... et j'ai toujours le même message d'erreur.

[Heureux-oli]

Mea Culpa,

Code sql :

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

"DELETE * FROM [Informations Devis] WHERE [NumeroDevis]= '" &  NumDev & "'"

[Heureux-oli]

Perso, je travaille autrement.

J'utilise une variable texte.

Code :

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

1
2
3
4
5
6
7
Dim sql
 
sql = "DELETE * FROM [Informations Devis] WHERE [NumeroDevis]= " &  NumDev & ";"
 
Debug.print sql
 
DoCmd.RunSQL sql

De cette manière, tu peux visualiser le contenu de ta sentence SQL.