listbox vraiment besoin d aide svp

Question

qui peut m aider a terminer ma source?
elle s'appelle CARNET elle est sur le site mon nom brico
il me manque 1 detail pour terminer 
ma question:
   j'ai creé un petit prog pour repertorier des  nom prenon et  tel, tout simple avec une base de donnée.
 il se peux maintenant qu'il y est des nom en doublon alors  j ai rajouté un listbox pour ma recherche
 comme ca si j ai rentré 10 fois exemple dupont ,quand je tape dupont et je lance ma recherche tous les dupont s'affichent dans un listbox 
mais ce que je veux faire c'est de clicker sur un des dupont de la listbox et afficher son nom  prenom et  tel de cette personne voici mon code du prog.
allez voir ma soure c'est plus simple de le voir en direct
merci d'avance
@+ brico

Option Explicit

Private Sub ajouter_Click()
Data1.Recordset.AddNew
End Sub

Private Sub Command1_Click()
On Error Resume Next

Data1.Recordset.MoveLast
End Sub

Private Sub Command2_Click()
On Error Resume Next

Data1.Recordset.MovePrevious

End Sub

Private Sub Command3_Click()
On Error Resume Next

Data1.Recordset.MoveNext
End Sub

Private Sub Command4_Click()
On Error Resume Next

Data1.Recordset.MoveFirst
End Sub

Private Sub Command5_Click()
Data1.Recordset.Edit
End Sub

Private Sub Command6_Click()
Liste.Clear
End Sub

Private Sub Liste_Click()
je ne sais pas koi mettre ici
End Sub

Private Sub recherche_Click()
On Error Resume Next
Resume
Dim STEPH As Database
Dim resultat As Recordset
Set STEPH = OpenDatabase("C:\Documents and Settings\STEPHANE\Bureau\repertoire\steph.mdb")rec "SELECT * FROM STEPH WHERE nom '" & rec.Text & "'"
Set resultat = STEPH.OpenRecordset(rec)
If Not resultat.EOF Then
num.Text = resultat!num
nom.Text = resultat!nom
prenom.Text = resultat!prenom
tel.Text = resultat!tel

End If
rec = a
Do Until resultat.EOF
Liste.AddItem resultat!nom & " " & resultat!prenom
resultat.MoveNext
Loop
resultat.Close

End Sub

Private Sub supprimer_Click()
Data1.Recordset.AddNew
End Sub

cs_Esquisse · Answer

Hum...

Il faut que tu charge en mémoire un tableau (ou même une listbox invisible si ca peux t'aider...) et que pour chaque dupont dans la liste tu est son Num (qui je pense est ta clef primaire...).

Car sinon tu tu pourra pas distinguer quel Dupont est différent d'un autre dupont... c'est le but des clef primaire ;)

exemple de déclaration : DIM MyTAB (0 to 100) as long

ensuite tu recup le num du dupont qui a été cliqué et tu fait une simple requete du style :

"Select Prenom From STEPH WHERE num = " & MyTAb(Liste.ListIndex) & ";"

Listbox vraiment besoin d aide svp

1 réponse

Discussions similaires