Discussion :

[arnaud31130]

bonjour,

je vous sollicite car j'ai un problème avec mon code pour créer un "DELETE".

Je travail sur un formulaire avec une textbox appelée "codecontact" et un bouton.

je voudrais que lorsque je tape un numéro (qui correspond à un code contact) et que j'appui sur le bouton la ligne de la table "PARRAINAGE" correspondant au code du contact s'éfface.

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command11_Click()
 
Dim requete
Dim codecontact
 
codecontact = Me.codecontact
 
requete = "DELETE parrainer.* FROM parrainer INNER JOIN contacts ON parrainer.codec =contacts.codec WHERE parrainer.codec = '" & codecontact & "'"
 
DoCmd.RunSQL requete
End Sub

Ma requête semble juste et je ne comprends pas pourquoi çà ne marche pas... lorsque j'appui sur ma commande = "type de données incompatible dans l'expression du critère"

Avez vous des suggestions?

[arnaud31130]

Je viens de m'apercevoir que ce code marche parfaitement quand il ne concerne pas "codecontact" mais "nomcontact" par exemple!

je comprend plus rien !

Code :

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

1
2
3
4
5
6
7
8
Dim sql
Dim codeC
 
codeC = Me.codeC
 
sql = "DELETE parrainer.* FROM parrainer INNER JOIN contacts ON parrainer.codec =contacts.codec WHERE parrainer.nomcontact = '" & codeC & "'"
 
DoCmd.RunSQL sql

[pc75]

Bonjour,

Si ton champ codec est de type numérique, il ne faut pas de guillemets simples.

Code :

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

1
2
 
..... WHERE parrainer.codec = " & codecontact & " "

[arnaud31130]

merci !!!!!!