bonjour,

je fais du code pour executer une requete.

A priori j'ai un pb de syntaxe dans la requete sql en rouge. Pourriez vous m'aider sur ce point ?
j'ai mis le format de date facon US car il m'a semblé qu'il fallait le faire mais je suis pas sur ...


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
16
17
Private Sub cmd_annul_edit_Click()

' annulation de l'édition du champ date.
Dim dateannulationedition As String

If Me.dateannulationedition.Value <> "Null" Then

    dateannulationedition = Me.dateannulationedition.Value
        If msgbox("Etes-vous sûr de vouloir annuler les editions du  " & dateannulationedition & " ? ", _
                vbYesNo + vbQuestion, "Demande de confirmation") = vbNo Then
           Exit Sub
        End If
    
    DoCmd.RunSQL ("UPDATE contrat, annexe SET dateenvoicontrat = null dateenvoiannexe = Null " & _
                  " where dateenvoicontrat = #" & Format(dateannulationedition, "mm/dd/yyyy") & "# and dateenvoiannexe = #" & Format(dateannulationedition, "mm/dd/yyyy") & "# ;")End If

End Sub