Bonjour,
Novice en VBA, j'ai cherché et trouvé la solution suivante pour faire un UPDATE d'une valeur d'une table:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BT_Ecriture_Click()
 
    Dim dbs As Database
    Dim qdf As QueryDef
    Dim toto As String
 
    Set dbs = CurrentDb
 
      dbs.Execute "UPDATE Param " _
        & "SET Valeur = 1234 " _
        & "WHERE [Parametre]  = 'Code'; "
 
    dbs.Close
 
End Sub
C'est en ordre l'update de Code est bien effectué
Par contre si je remplace 1234 par asdf:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub BT_Ecriture_Click()
 
    Dim dbs As Database
    Dim qdf As QueryDef
    Dim toto As String
 
    Set dbs = CurrentDb
 
      dbs.Execute "UPDATE Param " _
        & "SET Valeur = asdf " _
        & "WHERE [Parametre]  = 'Code'; "
 
    dbs.Close
 
End Sub
Un message d'erreur apparait:
Erreur d'éxacition 3061: Trop peu de paramètres. 1 attendu.

Pouvez-vous me filer un coup de main à comprendre pourquoi?