ACCESS 2013 : Protéger un formulaire avec identifiant et mdp
Résolu/Fermé
RO2430
Messages postés
15
Date d'inscription
lundi 8 juin 2015
Statut
Membre
Dernière intervention
14 juin 2015
-
8 juin 2015 à 15:35
RO2430 Messages postés 15 Date d'inscription lundi 8 juin 2015 Statut Membre Dernière intervention 14 juin 2015 - 14 juin 2015 à 12:11
RO2430 Messages postés 15 Date d'inscription lundi 8 juin 2015 Statut Membre Dernière intervention 14 juin 2015 - 14 juin 2015 à 12:11
A voir également:
- ACCESS 2013 : Protéger un formulaire avec identifiant et mdp
- Word 2013 free download - Télécharger - Traitement de texte
- Powerpoint 2013 - Télécharger - Présentation
- Excel 2013 gratuit - Télécharger - Tableur
- Fifa 2013 - Télécharger - Jeux vidéo
- Real football 2013 java - Télécharger - Jeux vidéo
1 réponse
f894009
Messages postés
17221
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
4 janvier 2025
1 712
9 juin 2015 à 08:43
9 juin 2015 à 08:43
9 juin 2015 à 10:19
9 juin 2015 à 10:32
requete suivant vos champs table et formulaire
Sql = "SELECT * FROM T_USERS WHERE [nom prenom] = '" & Me.nom & " " & Me.prenom & "' AND mdp ='" & Me.mdp & "';"
9 juin 2015 à 12:04
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
9 juin 2015 à 12:11
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").Value9 juin 2015 à 12:16
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 .