1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
| Private Sub Form_BeforeUpdate(Cancel As Integer)
'On Error Goto GestionErreurs
'Tests de plausibilité
If Not IsDate(Me.txtClientDateAdhesion) Then
MsgBox "La date d'adhésion doit obligatoirement être saisie !", vbInformation + vbOKOnly, CurrentDb.Properties("AppTitle")
Me.txtClientDateAdhesion.SetFocus
Cancel = True
Exit Sub
End If
'Test suivant
If IsNull(Me.txtClientNom) Then
MsgBox "le nom doit obligatoirement être saisi !", vbInformation + vbOKOnly, CurrentDb.Properties("AppTitle")
Me.txtClientNom.SetFocus
Cancel = True
Exit Sub
End If
'Etc...
End Sub |
Partager