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

If IsNull(champ1) And IsNull(champ2) And IsNull(champ3)... Then QuitteFormulaire  

If IsNull(champ1) Or IsNull(champ2).... Then Erreur

bon bah a part je vais tester ça ......... je vais dire un grand merci !!! car c'est quand même cool de m'aider .. moi pov ptit utilisateur
 
merci bcp
 
et je redis si ça marche bien (je verrais po pk pas)