Listbox completement bloqué svp aide merci

Signaler
Messages postés
42
Date d'inscription
vendredi 25 avril 2003
Statut
Membre
Dernière intervention
28 octobre 2003
-
cs_doggy
Messages postés
50
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2004
-
je pete un plomb, je vous explique mon prob peut etre q un sait.
j'ai créé un petit prog simple pour apprendre les bases de données avec seulement nom prenom et num auto puis j ai ajouté une recherche par nom qui marche bien,et comme il se peu que je rentre plusieur fois le meme non de famille alors j ai rajouté un listbox comme ca quand je cherche exemple dupont dans le liste box il s'affiche tout les dupont exemple dupont andre,dupont louis,dupont jean ect..
la mon prob c que sur ma listbox j aimerais clicker sur le nom et prenom que je recherche et qu'il s'affiche
sur nom = nom prenom= prenom et num = num
mais la sur code je plante complet je sais pas quoi fair
aider moi svp car je ne peu plus avancer voici mes code pour ma recherche

Private Sub recherchenom_Click()

On Error Resume Next
Resume

Dim STEPH As Database
Dim resultat As Recordset

Set STEPH = OpenDatabase("C:\Documents and Settings\STEPHANE\Bureau\num\STEPH.mdb")REC "SELECT * FROM STEPH WHERE nom '" & REC.Text & "'"
Set resultat = STEPH.OpenRecordset(REC)
If Not resultat.EOF Then

NUME.Text = resultat!NUM
NOM.Text = resultat!NOM
PRENOM.Text = resultat!PRENOM
End If

Do Until resultat.EOF

listbox.AddItem resultat!NOM & resultat!PRENOM
j'aimerais aussi laisser un espace entre nom et prenom mais je sais pas la si c est possile
resultat.MoveNext
Loop
resultat.Close

End Sub

merci d'avance a mon sauveur
steph :question)

1 réponse

Messages postés
50
Date d'inscription
jeudi 26 décembre 2002
Statut
Membre
Dernière intervention
12 janvier 2004

Salut,
Je pense que le problème vient de ta boucle Do...
Si tu remplaces ta boucle par :

dim i as integer
i=0
Do Until resultat.EOF

'le " " c'est pour ajouter l'espace ;)
listbox.list(i) = resultat!NOM & " " & resultat!PRENOM
'j'aimerais aussi laisser un espace entre nom et prenom
'mais je sais pas la si c est possile
resultat.MoveNext
i=i+1
Loop