Bonjour,
un autre post ( et oui c'est loin d'etre mon premier problème) car j'suis encore perdu !!!
Je souhaite pour mon application utiliser un formulaire de connexion
j'ai crée une table "Tab_Users" et un formulaire " Connexion ". Table Tab_Users (TRIGRAMME, NOM, PRENOM, PASSWD) tous les champs sont de type texte. J'utilise donc ce code :
Ce formulaire de connexion servira à sécuriser un minimum l'acces à l'application. Je voudrais surtout pouvoir filtrer l'affichage d'un sous formulaire en mode feuille de données en fonction du NOM de la personne qui se connecte. Je m'explique, dans ma table principale il y a un champ NOM. Chaque enregistrement se voit attribué une personne. Dans le sous form il y a une requête sélect en source controle qui affiche certain champs. Ce sous form est en mode feuille de données.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39 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 PASSWD ='"& Me.txt_pass & "';" Set rs = CurrentDb.OpenRecordset(sql) If Not rs.EOF Then DoCmd.OpenForm "menu principal 1", acNormal, , , , acWindowNormal DoCmd.close acForm, "F_CONNEXION" User_id = rs("TRIGRAMME").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
Je voudrais donc que sur l'ensemble des enregistrements présent dans la table principale, seul les enregistrements correspondant à la pers qui se connecte soit affiché.
Je n'ai pas de problème en général avec les filtres, mais la je suis bloqué pour intégrer ca dans le code. Je manque vraiment de connaissance en VBA, les messages d'erreur et moi on a commencé à sympathisé... et ils ont vraiment l'air de vouloir devenir amis avec moi...
Si quelqu'un à assez de motivation pour me donner un piste je lui en serait très reconnaissant !!!
merci d'avance![]()
![]()
Partager