[VBADAO] garder en memoire le nom [Résolu]

[warrios]

bonjour,

j'ai crée un code qui me permet de me connecté a une base de données. Ce code est relié a un formulaire d'identification et a pour but en plus de l'identification de gardé en memoire le nom de la personne saisie et de le mettre dans un champ qui se trouvera sur chacun des formulaires que j'ai relié au table correspondant. Cela permettra de faire un suivi des données savoir qui a saisie les données. L'inconveignant c'est que cette partie ne fonctionne pas. Quelqu'un aurai une petite idée sur la chose??


Voici le code, iDutilisateur est le nom du champ dsont je souhaite faire apparaitre le nom de l'utilisateur.

Code :

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
Private Sub OK_Click()
 
Dim req As String
Dim reqLogin As String
Dim rs As DAO.Recordset
Dim Base As DAO.Database
 
Set Base = CurrentDb
 reqLogin = "SELECT [Utilisateurs].[NumUtilisateur] FROM Utilisateurs WHERE ((([Utilisateurs].[Identifiant])= '" & Utilisateur.Value & "' ) And (([Utilisateurs].[MotDePasse])= '" & MotDePasse.Value & "'))"
 
Set rs = CurrentDb.OpenRecordset(reqLogin)
 
If (rs.RecordCount = 0) Then
    MsgBox "Nom d'utilisateur ou mot de passe incorrect"
    rs.Close
    Exit Sub
End If
 
rs.MoveFirst
IdUtilisateur = rs!NumUtilisateur
rs.Close
 
DoCmd.OpenForm "Entete"
 
 
Set Base = Nothing
Set rs = Nothing
 
End Sub

Merci par avance

julien j.

[jean-paul lepetit]

Salut,

Il faut que tu déclares ta variable IdUtilisateur en global dans un module

Code :

Global IdUtilisateur as string

[warrios]

bonsoir

désolé du retard. tu as raison j'ai oublié de rajouter cette ligne dans un module mais en plus j'ai oublié de rajouté une ligne dans chacun de mes formulaires :

Code :

1
2
3
Private Sub Form_Load()
Me.idutilisateur.Value = Fonctions.idutilisateur
End Sub

Ca marche mieux comme ca.
je t'en remercie

bonne soirée