caricare una combo

[hyson]

ho un programma allacciato ad access con il controllo data1

come faccio a caricare una combo con tutti i nominativi di un campo??

ho provato cosi ma non lo accetta ce' qualche errore?




Private Sub Carica_Combo()


Combo3.Clear
If Data2.Recordset.EOF And Data2.Recordset.BOF Then
Data2.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
Combo3.AddItem Val(Text1.Text)
Data2.Recordset.MoveNext
Loop
End If
End Sub

[gaullo]

il primo controllo che fai non mi sembra molto sensato... prova a toglierlo.... inoltre è meglio immettere i dati non dalla text (che immagino tu abbia collegato alla tabella) ma direttamente dalla tabella:

Combo3.AddItem (data2.recordset("nome del campo"))

[Markho]

prova così:

Private Sub Carica_Combo()
    Combo3.Clear
    If Not Data2.Recordset.EOF And Not Data2.Recordset.BOF Then
        Data2.Recordset.MoveFirst
        Do While Not Data2.Recordset.EOF
            Combo3.AddItem (Data2.Recordset("nome del campo"))
            Data2.Recordset.MoveNext
        Loop
    End If
End Sub

il primo if serve a controllare che la tabella non abbia 0 record, altrimenti potebbe farti casini...

in + scollega la text dal Rec set

[hyson]

grazie per il codice funziona ma ora come faccio voglio che se clicco su un nome mi vada su quel record ???


aiutooooo

[hyson]

:master: :master: :master:

[Markho]

quando clicchi su un nome, ma dove, nel combo?

[hyson]

si quando clicco il nome nella combo vorrei che mi si posizionasse sul record di quel nome

[hyson]

I CAMPI CHE HO DI SEGUITO (ES:INDIRIZZO TEL CAP CITTA ECECC)DEVONO SEGUIRE IL NOME CLICCATO NELLA COMBO

[hyson]