ACCESS 2013 : Protéger un formulaire avec identifiant et mdp
Résolu
Bonjour tout le monde,
J'ai cree une table "connexion" qui contient (l'ID, nom prenom et mdp et un formulaire dont la source est cette table. Le formulaire a 3 champ nom prenom et mdp et a partir de ces 3 criteres je veux ouvrir un autre formulaire "Menu". Mais j'ai un probleme au niveau du bouton ouvrir : j'ai aps trouve de code pour ouvrir le formulaire selon les 3 conditions alors si il y a quelqu'un qui peut m'aidedr a resoudre ce probleme et merci d'avance.
Cordialement
J'ai cree une table "connexion" qui contient (l'ID, nom prenom et mdp et un formulaire dont la source est cette table. Le formulaire a 3 champ nom prenom et mdp et a partir de ces 3 criteres je veux ouvrir un autre formulaire "Menu". Mais j'ai un probleme au niveau du bouton ouvrir : j'ai aps trouve de code pour ouvrir le formulaire selon les 3 conditions alors si il y a quelqu'un qui peut m'aidedr a resoudre ce probleme et merci d'avance.
Cordialement
1 réponse
-
-
-
@RO2430Re,
requete suivant vos champs table et formulaire
Sql = "SELECT * FROM T_USERS WHERE [nom prenom] = '" & Me.nom & " " & Me.prenom & "' AND mdp ='" & Me.mdp & "';" -
Re,
Voila le code que j'ai utilise mais ca marche pas :/
Private Sub Commande10_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 [nom prenom] = '" & Me.Nom & " " & Me.Prenom & "' AND mdp ='" & Me.MDP & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "Menu", 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ées", vbCritical
DoCmd.Quit
End If
End Sub -
@RO2430Re,
Voila le code que j'ai utilise mais ca marche pas Oui, et qu'est-ce qui ne marche pas ???????????????????????????????????
vous n'avez peut-etre pas besoin de ces lignesUser_id = rs("TRIGRAMME").Value User_groupe = rs("GROUPE").Value -
Re,
Donc voila j'ai un formulaire nommé "F_Connexion" qui dispose de 3 zone de texte "Nom" "Prenom" et "MDP" ; et une table "T_Users" dont il y a 3 champs "Nom" "Prenom" "MDP" e t voici le code que j'ai mis dans le bouton "connexion" :
Private Sub Commande10_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 [nom prenom] = '" & Me.Nom & " " & Me.Prenom & "' AND mdp ='" & Me.MDP & "';"
Set rs = CurrentDb.OpenRecordset(sql)
If Not rs.EOF Then
DoCmd.OpenForm "Menu", acNormal, , , , acWindowNormal
DoCmd.Close acForm, "F_CONNEXION"
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ées", vbCritical
DoCmd.Quit
End If
End Sub
Mais a chaque fois que je veux tester ca me donne erreur.
Et merci infiniment de votre je sais que je demande beaucoup .
-
