Discussion :

[killowatt]

Bonjour a vous,

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

Code :

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

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.

[zoom61]

Salut,

Je mettrais plutôt :

Code :

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

DoCmd.RunSQL requete

Que donne un ?

Code :

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

msgbox requete

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

[killowatt]

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

[zoom61]

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.

[loufab]

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 :

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

? 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,