Bonjour, j'ai un problème

j'ai une base de donnée simple, avec trois colones : nom, prénom, et age

Je voudrais pouvoir créer une liste de choix qui se créerai automatiquement en fonction des données de la colone age. Elle serai une liste de tous les ages trouvés dans la colone, dans doublon bien sur. Ensuite je veux pouvoir choisir un age dans cette liste et voir s'afficher dans un fenetre tous les enregistrements sous forme de tableau qui correspondent aux critéres age choisit.

je n'y arrive pas

merci de m'aider

Bonjour,

Tu créer un module au tu mets :

Public Sub modProConnexionAuto(parSQL As String)
Set work = Workspaces(0)
Set db = work.OpenDatabase("chemin de la base")
Set rs = db.OpenRecordset(parSQL, dbOpenSnapshot, dbSQLPassThrough)
End Sub

Public Sub modProConnexionAutoFin()
rs.Close
db.Close
End Sub

Puis dans ton formulaire ou se trouve la liste tu rajoute dans le load :

proRemplirLst

Et pour finir tu rajoute encore dans le reste du formulaire la procédure qui permet de remplir la liste :

lstContacts.Clear

modProConnexionAuto "select * from nom de ta table"
With rs
Do Until .EOF
nomliste.AddItem !lenom de ton champ
lstContacts.ItemData(nomliste.NewIndex) = !lenomdelid de ton champ
.MoveNext
Loop
End With
modProConnexionAutoFin


Voilà normalement ça marche ! :)) Peux tu m'envoyer un mail pour me dir si ça marche.

Cordialement ;

Arnaud Guyonne

PS : Passez voir mon site : http://www.arnotic.net








-------------------------------
Réponse au message :
-------------------------------

Bonjour, j'ai un problème

j'ai une base de donnée simple, avec trois colones : nom, prénom, et age

Je voudrais pouvoir créer une liste de choix qui se créerai automatiquement en fonction des données de la colone age. Elle serai une liste de tous les ages trouvés dans la colone, dans doublon bien sur. Ensuite je veux pouvoir choisir un age dans cette liste et voir s'afficher dans un fenetre tous les enregistrements sous forme de tableau qui correspondent aux critéres age choisit.

je n'y arrive pas

merci de m'aider
-------------------------------