CARREGAR COMBO

MARCELO.TREZE 29/05/2011 10:10:06
#375245 Resposta escolhida

Vamos lá de novo

Dim bb As Database
Dim rs As Recordset
Set bb = OpenDatabase(caminho)
Set rs = bb.OpenRecordset([Ô]select orcamento from tblorcam where status_orc <> [ô]rep[ô] and codcli=[Ô] & txt_codigo.Text & )

If rs.RecordCount > 0 Then
rs.MoveFirst
txtorc.Clear
Do While Not rs.EOF
txtorc.AddItem rs!orcamento
rs.MoveNext
Loop
End If


ps: tem certeza que o nome do combo é txtorc? se for sugiro que coloque o nome assim cboOrc, txt geralente usamos para textbox.

GNCNET 29/05/2011 10:46:00
#375248

Marcelo,
Obrigado demais pelas helps.
MAIS UMA

No evento click deste combo, não consigo carrega-lo corretamente. Erros de sintaxe novamente...


Private Sub txtorc_click()
Set rs = bb.OpenRecordset([Ô]select orcamento from tblorcam where codcli=[Ô] & txt_codigo.Text & [Ô] and orcamento =[Ô] & txtorc.Text)

If rs.RecordCount > 0 Then
rs.MoveFirst
Else
txt_status = rs!Status_orc
txt_data_cadastro = rs!Data
End If

End Sub

ASHKATCHUP 29/05/2011 19:00:25
#375249

Cole o erro que o VB apresenta.

ADRIANOM 29/05/2011 21:28:36
#375257

Como o ASHKATCHUP disse

Citação:

Cole o erro que o VB apresenta.

Mas em contra partida, olha se o OPENRECORDSET não se encontra aberto nesta mesma janela.
Caso esteja, você pode usar o exemplo:
Set RSRegistro = New adodb.recordset
[ô]aqui cola o select e a função para abrir.