Discussion :

[maninwhite]

Bonsoir à toutes et à tous

Je sollicite la communauté pour une chose simple que j'arrive à écrire en VBA Excel, mais impossible à réaliser sur Access.

J'ai une listbow et une texbox.

J'aimerai qu'en fonction du choix de ma listbox j'ai une valeur qui s'affiche dans cette textbox.

Exemple, je choisis un nom dans la listbox et j'ai la ville correspondante dans la textbox par exemple.

Merci d'avance pour votre aide.

[Dixies]

Bonsoir,

Où se trouve tes données ? Dans une table ?

Si oui, sur procedure MAJ de la liste :

Code :

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

MaTextBox=Dlookup("MaValeur","MaTable","MaCondition si yl y en a une")

Ou, si ta valeur à retourner dans la TextBox est contenue dans une colonne de ta liste :

Code :

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

MaTextBox=Column(N° de la colonne)

Bonne nuit.

[maninwhite]

Merci, mais tes codes ne m'aident pas.

Effectivement la valeur à retourner est dans une table donc je dois faire un DLookup en fonction de la valeur de ma listbox mais je ne sais pas comment l'écrire et quelle événement utiliser

[Dixies]

Re,

Ta liste déroulante t'affiche-t-elle les valeurs souhaitées quand tu clic dessus ?
Si oui donc tu as rempli la source.

Ensuite tu vas dans les propriétés de cette liste et tu déclare une procédure événementielle sur MAJ.
VBA s'ouvre et là tu écris :

Code :

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

TaTextBox=Dlookup("TonChampRecherchéDansTaTable","LeNomDeTaTable","TaCondition si yl y en a une")

Cdlt

[maninwhite]

Désolé mais je n'y arrive toujours pas

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub lstUsername_AfterUpdate()
 
Dim Test As String
 
Test = lstUsername.DataTextField
 
Me.txtUseraccess.Value = DLookup("[UserAccess]", "tblUser", "[UserName] = Test")
 
End Sub

Je n'arrive aps à récupérer la valeur texte de l'élément séletionné dans ma listbox.

[Dixies]

Bonjour,

et avec ceci ?

Cdlt.

[maninwhite]

Merci, ton exemple marche parfaitement bien et j'arrive à l'appliquer à mon cas, sauf que j'aimerai récupérer la valeur directement dans ma listbo sans passer par une textbox.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub lstUsername_AfterUpdate()
 
Dim Test As String
 
Test = lstUsername.Column(1, lstUsername.ListIndex)
 
Me.txtUseraccess.Value = DLookup("[UserAccess]", "tblUser", "[UserName] = Test")
 
End Sub

Test me renvoie bien la valeur de la Listbox, mais la ligne du dessous memet une erreur par rapport à Test donc sans doute une erreur de syntaxe

[Dixies]

Ton code ne reconnait pas ta variable en tant que tel.
Il faut la mettre entre cote.

Code :

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

Me.txtUseraccess.Value = DLookup("[UserAccess]", "tblUser", "[UserName] = '" & Test & "'")

Cdlt.

[maninwhite]

Nickel, ça marche enfin.

Je trouve le VBA Access beaucoup plus complique à écrire que celui d'Excel.

Dernière question avant de mettre en Réolu.

Plutôt qu'utiliser une variable, comment intégrer directement le code dans la ligne ci dessous :

Code :

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

Me.txtUseraccess.Value = DLookup("[UserAccess]", "tblUser", "[UserName] = '" & Test & "'")

genre

Code :

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

Me.txtUseraccess.Value = DLookup("[UserAccess]", "tblUser", "[UserName] = lstUsername.Column(1, lstUsername.ListIndex)'")

Merci

[Dixies]

Bonsoir,

Essaye :

Code :

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

Me.txtUseraccess.Value = DLookup("UserAccess", "tblUser", "UserName = '" & LstUserName.Column(1, LstUserName.ListIndex) & "'")

Cdlt

[maninwhite]

Tout simplement et ça fonctionne.

Encore merci pour ton aide.