Afficher le nom et la photo de l'utilisateur connecté au chargement du formulaire menu

**djibysadji** · 12/02/2021, 16h17

Bonjour

Je voudrais afficher le nom et la photo de l'utilisateur connecté sur chargement du formulaire F_Menu, mais à l'ouverture ni la photo ni le nom ne s'affichent.
Bien sûr sur F_Menu se trouvent les contrôles TxtPhoto et TxtNomUser:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Form_Load()
Me.TxtnomUser = nomUser_G
Me.TxtPhoto.Picture = urlPhoto_G
End Sub

nomUser_G et urlPhoto_G sont des variables déjà déclarées dans le module ci_dessous:

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
40
41
42
43
44
 
Public idUser_G As Integer
Public nomUser_G As String
Public urlPhoto_G As String
Public idRole_G As Integer
 
Public Function connect(login As String, passe As String) As Boolean
Dim db As DAO.Database
Dim rs As Recordset
Dim qdef As QueryDef
Dim req As String
Set db = CurrentDb
 
req = "SELECT * FROM T_Utilisateurs WHERE login = [Plogin] and passe = [Ppasse]"
Set qdef = db.CreateQueryDef(vbNullString, req)
With qdef
.Parameters("Plogin") = login
.Parameters("Ppasse") = crypter(passe)
.ReturnsRecords = True
Set rs = .OpenRecordset()
End With
 
If (Not rs.EOF) Then
rs.MoveFirst
idUser_G = rs("User_id")
nomUser_G = rs("username")
urlPhoto = Nz(rs("Photo"), "")
idRole_G = Nz(rs("Role_id"), 0)
connect = True
Else
idUser_G = 0
nomUser_G = ""
urlPhoto = ""
idRole_G = 0
connect = False
End If
rs.Close
Set rs = Nothing
qdef.Close
Set qdef = Nothing
db.Close
Set db = Nothing
 
End Function

djibysadji