Remplir une listebox avec mais une table acces 2003

Signaler
Messages postés
55
Date d'inscription
jeudi 26 avril 2007
Statut
Membre
Dernière intervention
6 avril 2015
-
Messages postés
46
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
30 janvier 2009
-
bonjour a tous


je suis en cour de dépression nerveuse avec un problème de listbox et de table
acces 2003

étant plus que débutant . j ais effectuée des recherches sur le site mais aucun
code ne règle mon problème.

voila ce que j ai coder

 

Private Sub File1_Click()

Dim y As Integer

Dim j As Integer

y = list1.ListIndex

Data1.Recordset.MoveFirst

Do While (j <> y)

Data1.Recordset.MoveNext

j = j + 1

Loop


End Sub


Private Sub Command1_Click()

Dim x As Integer

Dim i As Integer


Set fichier = GetObject("c:\test\secu.mdb")


i = 0


Do While (i <> x)

list1.AddItem (Data1.Recordset.Fields("t-client").Value)

Data1.Recordset.MoveNext

i = i + 1

Loop

End Sub


Private Sub Form_Load()

Dim secu As String

NomTable = "t - client"

End Sub


Private Sub liste1_Click()

Dim y As Integer

Dim j As Integer

y = list1.ListIndex

Data1.Recordset.MoveFirst

Do While (j <> y)

Data1.Recordset.MoveNext

j = j + 1

Loop

End Sub


donc le résultat est que acces s ouvre bien mais aucun élément se glisse dans
ma listbox alors si une âme charitable veux bien me corriger et me mètre des
baffes ca me  rendrer moi bête


encore merci a tous 

1 réponse

Messages postés
46
Date d'inscription
lundi 19 avril 2004
Statut
Membre
Dernière intervention
30 janvier 2009

pour ajouter un évenement dans une listbox, il faut faut faire ListBox1.Items.Add(la_donnee_a_ajouter) où ListBox1 est le nom de ta ListBox...