Login password access
samsan
-
samsan -
samsan -
Bonjour,
est ce qu'il n y a pas de solution pour qu'on puisse faire le login et le mot de passe par le code vba
pcq on nous a demandé de créer un menu d'admiistration qui permet de choisir l'utilisateur(administrateur ou un autre utilisateur) et le mot de passe bien sur mais seul l'administrateur peut effectuer des modifications sdans la base de données
c urgent
merci
est ce qu'il n y a pas de solution pour qu'on puisse faire le login et le mot de passe par le code vba
pcq on nous a demandé de créer un menu d'admiistration qui permet de choisir l'utilisateur(administrateur ou un autre utilisateur) et le mot de passe bien sur mais seul l'administrateur peut effectuer des modifications sdans la base de données
c urgent
merci
A voir également:
- Login password access
- Vu password - Télécharger - Confidentialité
- On me demande mon login - Forum Réseaux sociaux
- Mon pc me demande mon login é mon mo de passe - Forum Windows
- Portail mpsa login ✓ - Forum Réseau
- Acer quick access - Forum Logiciels
18 réponses
nvaros
Messages postés
144
Statut
Membre
17
Dis moi les pseudos des autres personnes et je te donnerais la solution si tu ne m'as pas menti
je suis en premiére année BTS G2NIE INFORMATIQUE
Cc la premiere foois que je réalise une application en access car je suis mnt en stage
y a t il d'autres questions??
Cc la premiere foois que je réalise une application en access car je suis mnt en stage
y a t il d'autres questions??
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
oui c lui
je n ai rien apart chercher comment la realiser
et toi tu connais comment?
ah oui tu fait koi comme etudes
je n ai rien apart chercher comment la realiser
et toi tu connais comment?
ah oui tu fait koi comme etudes
oui bien sur je me rapel tu es mnt en stage mais je veux savoir tu etudie koi exactement dan s kel eciole kel pays
bon si tu veux
bon si tu veux
En fait tu t'en fou ce que je fais.
Tu veux ta réponse.
La voila.
Voici un exemple que j'ai pris de quelqu'un :
Pour exécuter ce code, il faut activer la référence : Microsoft DAO 3.x Object Library
Le formulaire login/mot de passe permettra à un utilisateur de s'identifier et à la base de le reconnaître et de décider de lui donner
ou non la permission d'accéder à la base. Pour ce faire, on aura besoin d'une table T_User et d'un formulaire " F_Connexion "
Table T_Users (TRIGRAMME, NOM, PRENOM, GROUPE, PASWD) tous les champs sont de type texte. Un enregistrement exemple
de cette table : T_User(SED, SEBASTIEN, DULOT, Administrateur, root)
L'évènement on_click du bouton Connexion :
Private Sub connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = \'" & Me.txt_user & "\' AND PASWD =\'"& Me.txt_pass & "\';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
DoCmd.close acForm, "F_CONNEXION"
User_id = rs("TRIGRAMME").value
User_groupe = rs("GROUPE").value
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
Msgbox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub
Tu veux ta réponse.
La voila.
Voici un exemple que j'ai pris de quelqu'un :
Pour exécuter ce code, il faut activer la référence : Microsoft DAO 3.x Object Library
Le formulaire login/mot de passe permettra à un utilisateur de s'identifier et à la base de le reconnaître et de décider de lui donner
ou non la permission d'accéder à la base. Pour ce faire, on aura besoin d'une table T_User et d'un formulaire " F_Connexion "
Table T_Users (TRIGRAMME, NOM, PRENOM, GROUPE, PASWD) tous les champs sont de type texte. Un enregistrement exemple
de cette table : T_User(SED, SEBASTIEN, DULOT, Administrateur, root)
L'évènement on_click du bouton Connexion :
Private Sub connexion_Click()
Me.Requery
Dim sql, User_id, User_groupe As String
Dim rs As DAO.Recordset
Static i As Byte
sql = "SELECT * FROM T_USERS WHERE TRIGRAMME = \'" & Me.txt_user & "\' AND PASWD =\'"& Me.txt_pass & "\';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "F_Autre_Formulaire", acNormal, , , , acWindowNormal
DoCmd.close acForm, "F_CONNEXION"
User_id = rs("TRIGRAMME").value
User_groupe = rs("GROUPE").value
Else
MsgBox "(Identifiant, Mot de Passe) incorrect ", vbInformation, "Connexion"
i = i + 1
End If
If i = 3 Then
Msgbox "Vous avez dépassé le nombre de tentatives autorisés", vbCritical
DoCmd.Quit
End If
End Sub
