Salut c'est tres simple
1) tu crée une form que tu nommera "frmPassWord" avec 2 textBox : "txtLogin" pour le nom d'utilisateur et "txtPass" pour le mot de pass. Avec aussi 2 boutons: "cmdOK" pour le OK" et "cmdAnnuler" pour fermer l'appli
Tu définit la form frmPass comme étant la form de démarage de ton project ( voir menu projet)
2) Exemple: quand je lance mon project c'est frmPass qui s'affiche en premier: et une fois que cette form est validé j'affiche la form frmProjet. Bien sur tu devras lancer ta connection a la DB avant tout!!!!!
Ici j'ai une table ref_staff dans laquelle je stock les nom d'utilisateur et les mots de pass
"ref_staff.login" et "ref_staff.pass"
voici le code qu'il faut mettre derriere le bouton "OK"
'********** DEBUT *************'
Private Sub cmdOK_Click()
Dim rsStaff As ADODB.Recordset
Dim sQuery As String
sQuery = ""
Set rsStaff = New ADODB.Recordset
sQuery = ""
sQuery = "SELECT login, password FROM staff " & vbCr
sQuery = sQuery & " WHERE code_staff =" & "'" & LCase(Trim(txtLogin.Text)) & "'" & vbCr
sQuery = sQuery & " AND pass = " & "'" & LCase(Trim(txtPass.Text)) & "'"
MousePointer = vbHourglass
' Open recordset
Set rsStaff = cnRecence.Execute(sQuery)
If Not (rsStaff.EOF) Then
frmProjet.Show
Screen.MousePointer = vbDefault
Else
MsgBox "Veuillez vérifier votre nom d'utilisateur et/ou votre mot de passe", vbCritical, "Erreur d'accès"
End If
If Err.Number > 0 Then MsgBox Err.Description, vbCritical, "Erreur de validation"
MousePointer = vbNormal
' fermer le jeu d'enregistrement et le détruire
rsStaff.Close
Set rsStaff = Nothing
End Sub
'********** FIN **********