ACCESS 2013 : Protéger un formulaire avec identifiant et mdp
Résolu
RO2430
Messages postés
15
Date d'inscription
Statut
Membre
Dernière intervention
-
RO2430 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
RO2430 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- ACCESS 2013 : Protéger un formulaire avec identifiant et mdp
- Word 2013 - Télécharger - Traitement de texte
- Excel 2013 - Télécharger - Tableur
- Powerpoint 2013 - Télécharger - Présentation
- Real football 2013 - Télécharger - Jeux vidéo
- Fifa 2013 - Télécharger - Jeux vidéo
requete suivant vos champs table et formulaire
Sql = "SELECT * FROM T_USERS WHERE [nom prenom] = '" & Me.nom & " " & Me.prenom & "' AND mdp ='" & Me.mdp & "';"
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
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 lignes
User_id = rs("TRIGRAMME").Value User_groupe = rs("GROUPE").ValueDonc 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 .