Créer un formulaire login à l'ouverture d'une base de données [Résolu/Fermé]

Signaler
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014
-
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014
-
Bonjour,

je viens de créer une base de données, je voudrais à ce que je puisse accédé a ma base de données avec intermédiaire d'un formulaire login comment je peut le faire?

Merci

2 réponses

Messages postés
15519
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2021
1 434
Bonjour,

c'est ecrit:

The drop-down list sources the information using an SQL command:

Propriete: de la Zone de liste deroulante (ComboBox) ou vous choisissez le nom de connexion
donnees, contenu

et
source de controle: nom du champ employes
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

CCM 63550 internautes nous ont dit merci ce mois-ci

Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014

Merci pour la réponse, je vais essayé

je reviendrai à vous après exécution de la procédure

Merci et courage
Messages postés
15519
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
16 janvier 2021
1 434
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014

je vennais de créer la table des Utilisateurs et formulaire Logon, maintenant je ne sais où introduire la commande SQL


SELECT [tblEmployees].[lngEmpID], [tblEmployees].[strEmpName]
FROM tblEmployees;

C'est dans quelle Contrôle ? et quelle est la procédure

Pour le code:

Private Sub cboEmployee_AfterUpdate()
'After selecting user name set focus to password field
Me.txtPassword.SetFocus
End Sub

et

pour le code:

Private Sub cmdLogin_Click()

'Check to see if data is entered into the UserName combo box

If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
Me.cboEmployee.SetFocus
Exit Sub
End If

'Check to see if data is entered into the password box

If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
Me.txtPassword.SetFocus
Exit Sub
End If

'Check value of password in tblEmployees to see if this
'matches value chosen in combo box

If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", _
"[lngEmpID]=" & Me.cboEmployee.Value) Then

lngMyEmpID = Me.cboEmployee.Value

'Close logon form and open splash screen

DoCmd.Close acForm, "frmLogon", acSaveNo
DoCmd.OpenForm "frmSplash_Screen"

Else
MsgBox "Password Invalid. Please Try Again", vbOKOnly, _
"Invalid Entry!"
Me.txtPassword.SetFocus
End If

'If User Enters incorrect password 3 times database will shutdown

intLogonAttempts = intLogonAttempts + 1
If intLogonAttempts > 3 Then
MsgBox "You do not have access to this database.Please contact admin.", _
vbCritical, "Restricted Access!"
Application.Quit
End If

End Sub


Merci pour l'aide