DOIS BANCOS DE DADOS

ERIVELTONVGA 12/09/2009 22:29:31
#322727

BOA NOITE PESSOAL, TO COM UM PROBLEMA.
TENHO UM SISTEMA QUE DESENVOLVI DE [Ô]PROCEDIMENTO DE TROCA[Ô], é QUE O RESPONSAVEL DESTE SERVIÇO NA EMPRESA SOLICITOU QUE QUANDO ELE COLOCASSE O CODIGO DO CLIENTE ELE PREENCHESSE OS CAMPOS NECESSARIO AUTOMATICAMENTE PRA MIM ISTO é FACIL, MAS NÃO ESTOU CONSEGUINDO DESTA VEZ é POR QUE TENHO QUE PUXAR AS INFORMACOES DE OUTRO BANCO E DA ERRO 3464, SEGUE O CODIGO

Private Sub cbocod_click()
Dim db As dao.Database
Set db = DBEngine.OpenDatabase(App.Path & [Ô]\siafi.mdb[Ô])

Dim tb As dao.Recordset
Set tb = db.OpenRecordset([Ô]SELECT * FROM clientes WHERE cod_cli=[ô][Ô] & cbocod.Text & [Ô][ô][Ô])


If Not tb.EOF Then
TXTCLIRAZAO.Text = tb.Fields([Ô]raz_soc[Ô])
TXTCPF.Text = tb.Fields([Ô]cpfcgc[Ô])
TXTCLIEND.Text = tb.Fields([Ô]end_res[Ô])
End If
End Sub

EU CAMPOS DA TABELA ESTAO CERTOS E AGORA NÃO SEI O QUE FAZER, CONSEGUIR COMUNICACAO COM ESTE BANCO EU CONSEGUI, COM O CODIGO DO CLIENTE NO GOTFOCUS

Private Sub cbocod_GotFocus()
Set tb = db.OpenRecordset([Ô]select * From clientes [Ô])

If tb.RecordCount > 0 Then
tb.MoveFirst
cbocod.Clear
Do While Not tb.EOF
cbocod.AddItem tb([Ô]cod_cli[Ô])
tb.MoveNext
If tb.BOF Then Exit Do
Loop
End If
End Sub

MAS QUANDO EU CLICO EM CIMA DO CODIGO DO CLIENTE PARA APARECER OS DADOS NOS CAMPOS, DA O ERRO 3464 QUE CITEI LOGO ACIMA.

SE ALGUEM PUDER ME AJUDAR. AGRADEÇO