Créer un formulaire login à l'ouverture d'une base de données

Résolu/Fermé
rfsd
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014
- 19 nov. 2014 à 10:10
rfsd
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014
- 20 nov. 2014 à 10:21
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

f894009
Messages postés
16703
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 septembre 2022
1 654
Modifié par f894009 le 20/11/2014 à 09:51
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
rfsd
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014

20 nov. 2014 à 10:21
Merci pour la réponse, je vais essayé

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

Merci et courage
0
f894009
Messages postés
16703
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
25 septembre 2022
1 654
19 nov. 2014 à 11:53
0
rfsd
Messages postés
7
Date d'inscription
mercredi 19 novembre 2014
Statut
Membre
Dernière intervention
20 novembre 2014

20 nov. 2014 à 08:50
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
0