VB6 - errore nel popolare combobox da database

[vorphalack]

ciao a tutti!

Il mio programmino mi da un errore che mi sta facendo (sbattere la testa)...
Ho inserito nell'evento Form_Load il codice per popolare una combo box con dati provenienti da un database access 97 tramite un normalissimo e semplicissimo controllo data. Solo che all'atto di caricare il form mi compare il fatidico errore 91: "variabile oggetto o variabile del blocco with non impostata"... vi posto il codice..

Private Sub Form_Load()
Combo3.Clear

Data2.Recordset.MoveFirst
Do While Data2.Recordset.EOF = False
Text1.Text = Data2.Recordset.Fields("anno").Value
If Text1.Text <> Text2.Text Then
Combo3.AddItem Text1.Text
Else
Data2.Recordset.MoveNext
End If
Text2.Text = Text1.Text
Loop

End Sub

Dov'èèèèèèèèèèèèèè! questo errore dov'èèèèèèèèè!!!!!!!!!!!



grazie dell'aiuto ragazzi...
cia cio ciaoooooooooooooooooo!

[raffaeu]

Grunch grunch ... :master:

Sembra tutto ok, puoi postare la riga sulla quale si ferma?
Oppure fai cosi'

Private Sub Form_Load()
On Error GoTo Err_Form_Load   
   Combo3.Clear

   Data2.Recordset.MoveFirst
   Do While Data2.Recordset.EOF = False
      Text1.Text = Data2.Recordset.Fields("anno").Value
      If Text1.Text <> Text2.Text Then
         Combo3.AddItem Text1.Text
      Else
         Data2.Recordset.MoveNext
      End If
      Text2.Text = Text1.Text
   Loop
Exit_Form_Load:
   Exit Sub
Err_Form_Load:
   MsgBox "Errore: " & Err.Number & "  Descrizione: " & Err.Description
   Exit Sub
End Sub

Prova cosi' almeno vediamo nel particolare quale è l' errore

[vorphalack]

Ho provato a usare il codice da te postato ma l'errore e la dicitura sono sempre uguali...

Mi da errore sulla riga segnata in grassetto, ma se vado a vedere i tooltip che escono in modalità debug mi da errore su tutte le righe dove richiamo il controllo data...

Private Sub Form_Load()
Combo3.Clear

Data2.Recordset.MoveFirst 
Do While Data2.Recordset.EOF = False
Text1.Text = Data2.Recordset.Fields("anno").Value
If Text1.Text <> Text2.Text Then
Combo3.AddItem Text1.Text
Else
Data2.Recordset.MoveNext
End If
Text2.Text = Text1.Text
Loop

End Sub

[vorphalack]

provo a postarti uno screenshot di come ho impostato il controllo data

[vorphalack]

OLèèèèèèèèèèèèèèèè
HO RISOLTO!!!!!!!!!

allora, il codice è rimasto sempre lo stesso, ma è cambiato l'evento in cui è stato inserito!
Infatti, inserendo lo stesso codice nell'evento Form_GotFocus il tutto magicamente inizia a funzionare!!
Una curiosità, qualcuno sa perchè nell'evento Form_Load quel codice non funzionava mentre nell'evento Form_GotFocus sì??

[raffaeu]

Mi sembra assurdo, anzi è assurdo, probabilmente l' oggetto Data si attiva all' evento gotFocus del Form e nell' evento load non c'è ancora, anzi sicuramente è cosi' ma sai access è strano di suo ...

[Dardino]

Quel tipo di eccezione viene restituita quando non è stato invocato il metodo New dell'oggetto.
in poche parole se viene definito un oggetto ma non viene inizializzatto è come se ti compri una macchina e pretendi che cammini senza accenderla.
non so che tipo di oggetto sia Data2, se lo definisci nel codice, ti consiglio di mettere prima del MoveFirst un

Data2.Recordset = New qualcosa

se si tratta di un controllo winform allora è probabile che venga generato quell'errore perchè forse viene creata l'istanza solo dopo il caricamento del form (mi sembra strano perché normalmente lo fa prima di scatenare l'evento Load).