remplir un listbox automatiqument à partir d1 base

Question

Bonjour,
Quelqu'un peut m'expliquer pourquoi çà fonctionne pas
au chargement de la feuille, je suis obligé de passer par un boutton de commande

ce qui marche:

Private Sub Command1_Click()
line1:
'remplir la liste
List1.AddItem Text1.Text 
'passer a un autre enregistrement
Data1.Recordset.MoveNext 
If Text1.Text = "" Then
Exit Sub
End If
GoTo line1
End Sub

Pourquoi marche pas quand je vais:

Private Sub Form_Load()
line1:
List1.AddItem Text1.Text
Data1.Recordset.MoveNext
If Text1.Text = "" Then
Exit Sub
End If
GoTo line1
End Sub

Marque erreur d'execution '91'
variable objet ou variable bloc With non definie
Merci de votre aide 
zx10

econs · Answer

la connexion entre ton objet Data1 et Text1 ne doit pas être encore établie.

Au moment du Form_Load, peu d'objets ou de connexions sont disponibles, il faut attendre que le formulaire soit complètement chargé (d'où le non-plantage avec un command_click).

Manu

crenaud76 · Answer

Effectivement, au moment du Load, la form n'a pas encore chargé tous ces controle, notament ton controle Data (donc Data1.Recordset.MoveNext plante), qui n'est disponible qu'après le Form_Load().

Pour remedier à cela, utilise l'EVT Activate et non Load de ta form et cela fonctionnera. Cette EVT Activate survient juste àprès le Load

Christophe R.

zx10 · Answer

Merci à vous deux.
Cà marche nickel avec Activate.
Comme on dit mieux vaut un qui sait que dix qui chercent.
zx10

Remplir un listbox automatiqument à partir d1 base

3 réponses

Discussions similaires