Discussion :

[maninwhite]

Bonjour à toutes et à tous

Lors de l'utilisation d'une requête de MAJ (voir code ci dessous), les valeurs maj dans ma table sont de type numériques (genre1, 2 ,3 ) le choix effectué dans ma ComboBox.
J'aimerai que la valeur renvoyée soit de type Texte, genre je choisis le 1er choix dans la ComboBox, ça me renvoie Test et non pas 1.

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
Private Sub cmdMaj_Click()
 
Dim Username As String
 
Username = lstUsername.Column(1, lstUsername.ListIndex)
 
 
DoCmd.SetWarnings False
DoCmd.RunSQL ("UPDATE tblUser SET UserPassword ='" & Me.txtUserpassword & "' WHERE UserName ='" & Username & "';")
DoCmd.RunSQL ("UPDATE tblUser SET UserAccess ='" & Me.cboUseraccess & "' WHERE UserName ='" & Username & "';")
DoCmd.RunSQL ("UPDATE tblUser SET UserGender ='" & Me.cboUsergender & "' WHERE UserName ='" & Username & "';")
DoCmd.RunSQL ("UPDATE tblUser SET UserDepartment ='" & Me.cboUserdepartment & "' WHERE UserName ='" & Username & "';")
MsgBox "Modifications effectuées", vbInformation, "Modifications effectuées"
 
 
Me.txtUserpassword.Locked = True
Me.cboUseraccess.Locked = True
Me.cboUsergender.Locked = True
Me.cboUserdepartment.Locked = True
 
End Sub

Merci

[maninwhite]

J'ai enfin trouvé a solution et vais a donner afin que cela puisse aider d'autres personnes.

Il fallait rajouter

Code :

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

.Column(1)

à

Code :

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

Me.txtUserpassword

ce qui done

Code :

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

Me.cboUserdepartment.Column(1)

Merci