cs_bluntz54
Messages postés14Date d'inscriptionmercredi 5 mars 2008StatutMembreDernière intervention15 avril 2008
-
9 avril 2008 à 10:31
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 2021
-
11 avril 2008 à 10:28
Voila j'ai écrit ce bout de code sur mon formulaire comportant une Listbox :
Dim Rs As Recordset
Dim i As Integer
Set Rs = CurrentDb.OpenRecordset("Table1", dbOpenDynaset)
For i = 0 To Rs.Fields.Count - 1
MsgBox Rs.Fields(i).Name
Modifiable16.AddItem (i)
Next
Dans le but d'alimenter celle-ci par le nom des champs de ma table Table1. Le problème est que cela ne fonctionne pas. Pourriez-vous me dier pourquoi?
Je tiens a préciser que je suis novice sur Access et VBA donc n'allez pas trop loin dans vos explications svp.
Merci beaucoup
cs_bluntz54
Messages postés14Date d'inscriptionmercredi 5 mars 2008StatutMembreDernière intervention15 avril 2008 9 avril 2008 à 11:40
J'ai changé ma structure en mettant 2 zones de liste :
Private Sub Liste0_Click()
temp = Liste0
'Liste2.ControlSource = "SELECT DISTINCT Chp1 FROM table1"
Liste2.RowSourceType = "Table/Requête"
Liste2.RowSource = "select DISTINCT " & temp & " from table1"
Liste2.Requery
End Sub
ce qui est censé m'afficher ds la 1ere liste le nom des différents champs de ma table et dans l'autre les valeurs inscrites dans le champ sélectionné.
Le 1er affiche bien les champs mais le 2e n'affiche rien.