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 |