Private Sub Commande2_Click()
If IsNull(Me.nomu) Then
    MsgBox "Veuillez saisir votre nom d'utilisateur", vbInformation, "Nom d'utilisateur"
    Me.nomu.SetFocus
ElseIf IsNull(Me.mdp1) Then
    MsgBox "Veuillez saisir votre mot de passe", vbInformation, "Mot de passe"
    Me.mdp1.SetFocus
Else
    'process the job
    If (IsNull(DLookup("nutilisateur", "Utilisateur", "nutilisateur ='" & Me.nomu.Value & "'"))) Or _
    (IsNull(DLookup("mdp", "Utilisateur", "mdp ='" & Me.mdp1.Value & "'"))) Then
        MsgBox "Mot de passe ou Nom Utilisateur incorrect"
    Else
        DoCmd.Close
        'MsgBox "nomu and mdp correct"
        DoCmd.OpenForm "Administration"
    End If
End If
End Sub