Private Sub Commande2_Click()
Dim UserLevel As Integer

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
        UserLevel = DLookup("typu", "utilisateur", "nutilisateur = '" & Me.nomu.Value & "'")
        DoCmd.Close
        If UserLevel = 1 Then
        'MsgBox "nomu and mdp correct"
            DoCmd.OpenForm "Administration"
        Else
            DoCmd.OpenForm "Invite"
        End If
    End If
End If
End Sub