Busca De Campo

[jntk]

:huh:

Pessoal, sempre usei o VB e agora estou tendo que trabalhar com VBA (no access), e estou tendo algumas dificuldades

Preciso de um códio, que busque um item numa determinada tabela com uma condição e me traga o resultado.

Tenho um exemplo disso em VB:

'declarando'
Dim db As Database
Dim sql As String
Dim dyn As Dynaset

'indicando o banco de dados'
Set db = DBEngine.Workspaces(0).OpenDatabase(App.Path & "\cep_sp.mdb", False, False)
'indicando o sql'
sql = "select * from cep where cep='" & mskcep.Text & " '"
Set dyn = db.CreateDynaset(sql)

'fazer enquanto não for fim'
    If Not dyn.EOF Then

'preencher os campos'
    txtEndereço = dyn.Fields("TipoLogradouro") & ". " & dyn.Fields("Rua")
    txtBairro = dyn.Fields("Bairro")
    txtCidade = dyn.Fields("Cidade")
    cboUf = dyn.Fields("Estado")

Else
    txtEndereço.Text = ""
    txtBairro.Text = ""
    txtCidade.Text = ""
    cboUf.Text = ""

End If
[/codebox]

Bom, o que esse código faz, o usuário preenche o campo cep, e depois que sai do campo, automaticamente o sistema, através desse codigo, traz o endereço, bairro, cidade, e UF.

Se puderem me ajudar a traduzir isso pro VBA (access), ficarei muito agradecido.

Obrigado.

Editado Abril 18, 2007 por jntk

[MrMALJ]

Bom você pode utilizar o Dlookup() para fazer essa busca, existem muitos tópicos aqui no forum sobre algo assemelhado vou te passar um

http://scriptbrasil.com.br/forum/index.php?showtopic=98527

Caso não consiga, utilize a função de busca do forum, mais por favor nos de um retorno