[Resolvido]Função DLookup - Preenchimento automático campos

Boa tarde,

tenha uma tabela de nome (clientes)com os seguintes campos:

Nome
Email
CPF
Telefone
Cidade

Caixa de texto (não acoplada) de nome "txtClientes"

Quero ao se digitar o número do cadastro nesta caixa me preenchesse automaticamente todos os campos referente ao cadastro.

Usei este código na caixa de texto:

Private Sub txtClientes_BeforeUpdate(Cancel As Integer)
Me.Nome = DLookup("Nome", "clientes", "Codigo = '" & Me.txtClientes & "'")
Me.Email = DLookup("Email", "clientes", "Codigo = '" & Me.txtClientes & "'")
Me.Cidade = DLookup("Cidade", "clientes", "Codigo = '" & Me.txtClientes & "'")
Me.CPF = DLookup("CPF", "clientes", "Codigo = '" & Me.txtClientes & "'")
Me.Telefone = DLookup("Telefone", "clientes", "Codigo = '" & Me.txtClientes & "'")

End Sub

Observação o campo "Cidade" está vinculada a outra tabela de nome "Cidades"


está acusando erro.... não entendi o porque.

Boa tarde amigo, da uma olhada e vê se isso te ajuda...

Me.txtClientes é o codigo e é numerico ?

Porque não utiliza Recordset em vez do DLookup ?

No evento depois de atualizar e não no antes de;

Private Sub txtClientes_AfterUpdate()
On Error Resume Next

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
       
    Me.txtClientes.SetFocus
    If Me.txtClientes.Value > 0 Then
        strSQL = "SELECT * FROM clientes WHERE Codigo = " & Me.txtClientes.Value 'se for numerico
        'strSQL = "SELECT * FROM clientes WHERE Codigo = '" & Me.txtClientes.Value & "'" 'se for texto
    
        Set db = CurrentDb
        Set rs = db.OpenRecordset(strSQL)
        If Not rs.BOF Then
            Me.Nome = rs("Nome")
            Me.Email = rs("Email")
            Me.CPF = rs("CPF")
            Me.Telefone = rs("Telefone")
        End If
        rs.Close
        Set rs = Nothing
        db.Close
        Set db = Nothing
    End If
End Sub

Mestre João Paulo,

Sua Recordset é maravilhosa.

Fiquei como uma dúvida.
E qual caso usaria a linha:
'strSQL = "SELECT * FROM clientes WHERE Codigo = '" & Me.txtClientes.Value & "'" 'se for texto

percebi que é no caso de texto, mas tentei usar como texto no caixa de texto txtClientes e pesquisei pelo nome mas não consegui.
Ao mesmo tempo, não sei se o raciocínio seria este mestre.

Um outro problema que estou enfrentando é que neste código testei várias vezes como os nomes que existiam no cadastro e realmente foi preenchido
os outros campos automaticamente, porém, de tanto repetir o nome cadastrado na posição 1 repetia o nome da posição 2 não sei porque.
É como se perdesse o cadastro inicial e vira-se uma cópia no registro 2. Não sei se deu para entender. Só testando mesmo.

Desculpe tantas perguntas ao mesmo tempo mas as dúvidas apareceram. rs

"...If Me.txtClientes.Value > 0 Then..." Qual seria a função de um controle ter .Value? Por que se usa.

Desde já muito obrigado a todos que se dispuseram a colaborar como alguns exemplos e dicas. Agradecido a todos.

Banco modificado:

Ola;

A questão de estar a repetir, é que o formulario está vinculado à tabela Clientes, ae tantas quantas vezes você inserir o código, ele preenche todos os campos nessa tabela.

If Me.txtClientes.Value > 0 Then, serve para não abrir o Recordset vazio, ou seja se existir dados na caixa de texto ele abre o recordset.

Mestre, JPaulo,

Obrigado, Agora entendi os procedimentos.
Fica na bênção.
Um bom dia de trabalho.