voila j'ai un ti prob avec ma table Employé
donc voila
j'ai 1 touche qui quitte et sauvegarde mon formulaire dans la BD.
mon problème, je gère si des champs obligatoires sont remplis ou non, si 1 n'es pas rempli ca bloque, par contre si aucun champ n'est rempli ... je peux plus quitter..lol donc j'ai essayé comme ca :
Private Sub Employe_close_Click()
On Error GoTo Err_Employe_close_Click
If IsNull(IDTitre) = False Or IsNull(NOMCLIENT) = False _
Or IsNull(PRENOMCLIENT) = False Or IsNull(ADRESSE1) = False _
Or IsNull(CLIENT_IDLOCALITE) = False _
Or IsNull(TELPRIVECLIENT) = False Then
GoTo test
Exit Sub
End If
If IsNull(IDTitre) = True Or IsNull(NOMCLIENT) = True _
Or IsNull(PRENOMCLIENT) = True Or IsNull(ADRESSE1) = True _
Or IsNull(CLIENT_IDLOCALITE) = True _
Or IsNull(TELPRIVECLIENT) = True Then
MsgBox prompt:="Les champs avec une * sont obligatoires", _
buttons:=vbCritical + vbOKOnly, Title:="Champs obligatoires"
Exit Sub
End If
Exit_Employe_close_Click:
Exit Sub
Err_Employe_close_Click:
MsgBox Err.Description
Resume Exit_Employe_close_Click
End Sub
j'aimerais donc si aucun champ n'es rempli qu'il quitte le formulaire, si pas tous les champs sont remplis :message d'erreur et si tous bon et il quitte et sauve