Probleme avec une Procedure

Résolu
pymm Messages postés 48 Date d'inscription mercredi 14 janvier 2004 Statut Membre Dernière intervention 8 septembre 2005 - 4 nov. 2004 à 16:40
pymm Messages postés 48 Date d'inscription mercredi 14 janvier 2004 Statut Membre Dernière intervention 8 septembre 2005 - 5 nov. 2004 à 13:28
Salut,

Je souhaite faire une procedure qui me remplie mon combobox
mais quand j'execute il me fait une erreur de quantifieur

donc si kelkun sait ce que ca veut dire je veux bien une explication. voici mon code :

Public Sub remplir_combo(R As Recordset, NomCombo As String, NomChamp As String)
R.MoveFirst
While Not R.EOF
NomCombo.AddItem (R![NomChamp])
R.MoveNext
Wend
End Sub

Merci d'avance.

Pymm

3 réponses

pymm Messages postés 48 Date d'inscription mercredi 14 janvier 2004 Statut Membre Dernière intervention 8 septembre 2005
5 nov. 2004 à 13:28
Salut,

Merci mais G juste changé le type de la variable NomCombo.
Au lieu de String g mis combobox et ca roule tout seul.

@+
Pymm
3
pymm Messages postés 48 Date d'inscription mercredi 14 janvier 2004 Statut Membre Dernière intervention 8 septembre 2005
4 nov. 2004 à 17:15
Salut c re-moi ne tenez pas compte du précédent message,
c la fin de journée plus la fin de la semaine(Ouais je c la fin de semaine commence dès lundi !!!) mais c bon il suffisait de se servir de son cerveau.

@+
Pymm
0
cs_DARKSIDIOUS Messages postés 15814 Date d'inscription jeudi 8 août 2002 Statut Membre Dernière intervention 4 mars 2013 130
4 nov. 2004 à 17:17
Essaye ceci :

R.MoveFirst
While Not R.EOF
NomCombo.AddItem R.Fields(NomChamp).value
R.MoveNext
Wend
_______________________________________

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
0
Rejoignez-nous