DELETE avec VBA

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:

---

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?:roll:

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:

---

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

---

Bonjour,

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

Code:

---

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

---

merci !!!!!!:ccool: