Oi galera,

 

Oq devo fazer para qndo preencher o campo txtCODIGO o mudar de campo, o programa ler o meu banco de dados em access e preencha o campo txtNOME com o seu devido conteudo automaticamente!

Por Favor: Colocar o código fonte completo! Sou Nivel Basico PLUS...rs

 

OBRIGADO 

 

 

'declarar na General declaration as variaveis de acesso ao banco

dim cn as connection

dim rs as recordser

 

'conectar ao banco de dados e gerar recordset ao abri o form

Private Sub Form_Load()

    Set cn = New Connection
    Set rs = New Recordset

'app.path (retorna o caminho onde sua aplicacao esta, depois concatena com o nome 'do banco, ou seja, a parte em vermelho diz onde esta seu banco )
    cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "BancoDeDados.mdb;Persist Security Info=False;Jet OLEDB:Database Password=;Jet OLEDB:Encrypt Database=False;Jet OLEDB:SFP=False"

   'a parte em verde é o nome da tabela
    rs.Open "SELECT * FROM [tabela]", cnBD, adOpenStatic, adLockOptimistic
End Sub

Private sub txtCODIGO_Lostfocus()

txtnome = rs!NOME

txtCPF = rs!CPF

'ou seja vc joga nas textbox o valor do campo (a parte azul, rs o record set e o 'nome, cpf  sao os nomes dos campos na tabela)

'pronto é so jogar cada valor de campo em cada caixa de texto

end sub

 

 

--------------------------

Espero ter ajudado, me coloco a disposicao se precisar,

como sou novo na comunidade (ajudando, sendo ajudado sou antigo)

esse é o minha primeira "ajuda"

--------------------------