Current db execute et update

Bonjour a vous,

J'essai depuis ce matin de passe une commande update sans succes avec cette syntaxe :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Dim stat As String Dim requete As String Dim numei As Integer Dim dbsA As Database, dbsB As Database   stat = CStr(Changement_statut.Value) numei = Form_Frm_Donnees_rapport.ID_EI requete = "update tbl_EI set status_ei ='" & Changement_statut & "' where id_ei='" & numei & "'"   If stat <> "" Then CurrentDb.Execute requete   End If

---

stat est une valeur sélectionnée dans une combo box et "numei" est un integer soit la clef primaire de l'enregistrement actuel ou je me trouve.
Je reçois le code erreur me disant que trop peu de paramètre sont rentré et 2 de plus sont attendus que faire ?


Merci d'avance.

Salut,

Je mettrais plutôt :

Code:

---

DoCmd.RunSQL requete

---

Que donne un ?

Code:

---

msgbox requete

---

EDIT : Car CurrentDB.Execute nécessite la bibliothèque DAO !

C'est tout a fait ça mais peux - tu m'expliquer la cause ?

Citation:

---

Envoyé par killowatt

C'est tout a fait ça mais peux - tu m'expliquer la cause ?

---

Je crois bien avoir répondu : CurrentDB.Execute nécessite la bibliothèque DAO.

Bonjour,

Normalement la bibliothèque est inclus des la création d'une nouvelle base ACCESS. C'est le "Microsoft Office 14.0 Access Database engine Object" qui apparait dans Références.

Si on tape la commande :

Code:

---

? vbe.VBProjects(1).References(4).Name

---

Elle renvoit DAO.

Alors à moins de l'avoir enlever elle devrait y être.

Le message d'erreur ne correspond pas du tout à un cas d'absence de la bibliothèque. Je verrais plutôt une des 2 variables vide.

Je suis étonné que tu n'ais pas recouru au débogage avant de poster... c'est le premier reflexe à avoir. D'abord on débogue et si on tombe sur un VRAI problème on cherche dans le forum un message équivalent (et ils sont légion) et en dernier recours on poste.

Cordialement,