[Resolvido]Preenchimento automático de formulário

Boa tarde Pessoal!

Sou nova aqui no forum e principiante no Access.
Gostaria de saber se alguém poderia me ajudar!

Possuo um formulário para controle de obras com os seguintes campos:
protocolo/inicio/término/status

Gostaria que, caso fosse digitado um protocolo já cadastrado, o access atualizasse os demais campos automaticamente.

Já fiz uma pesquisa e adaptei um código encontrado, obtendo:

Private Sub PROTOCOLO_AfterUpdate()
Dim wProtocolo As Long
If IsNull(PROTOCOLO) Then
MsgBox "Insira um número de protocolo!", vbCritical
PROTOCOLO.SetFocus
Else
wProtocolo = DLookup("[PROTOCOLO]", "Dados gerais", "[PROTOCOLO] = " & Val(PROTOCOLO))
If PROTOCOLO = wProtocolo Then

MsgBox "O protocolo já está cadastrado.", _
vbInformation, "Protocolo cadastrado"
Me.INICIO = DLookup("INICIO", "Dados gerais")
Me.CONCLUSAO = DLookup("CONCLUSAO", "Dados gerais")
Me.STATUS = DLookup("STATUS", "Dados gerais")
Else
INICIO.SetFocus
End If
End If
End Sub

Problema: ele sempre puxa os dados do primeiro protocolo cadastrado.

Desde já agradeço,
Graciele

OBS: não dêem risada, mas utilizo o Access97 para programar (a única versão disponível na empresa), por isso tenho dificuldades em abrir os exemplos do forum.

Olá, seja bem vinda ao forum! Você precisa colocar o filtro nos campos tambem:

Me.INICIO = DLookup("INICIO", "Dados gerais", "[PROTOCOLO] = " & Me.PROTOCOLO)

Dica: quando for referenciar um controle que esteja no formulário, coloque Me. antes, como anotado a vermelho no exemplo acima para o Access saber que você está se referindo a um controle do formulário, principalmente nesse caso que tanto o campo da tabela quanto o do formulário, tem o mesmo nome.

Bom dia Criquio!
Obrigada pelas boas vindas e pela ajuda!

Porem o formulário continua atualizando apenas com o primeiro item da minha tabela.

Será que a minha clausula de comparação está incorreta?
Os dados armazenados em "PROTOCOLO" são do tipo "Long".

Obrigada,
abç,

Graciele

Olá!

Fiz algumas alterações no código, dei uma enxugada eliminando a variável de comparação e acrescentei o filtro no campo (como o Criquio indicou) e tudo funciona \o/

Segue o código. Talvez seja útil para outros colegas do forum.

Private Sub PROTOCOLO_AfterUpdate()
If (Not IsNull(DLookup("[PROTOCOLO]", "Dados gerais", _
"[PROTOCOLO] =" & Val(Me!PROTOCOLO)))) Then
MsgBox "O protocolo já está cadastrado.", _
vbInformation, "Protocolo cadastrado"

'inicio do preenchimento dos campos
Me.INICIO = DLookup("INICIO", "Dados gerais", "[PROTOCOLO] = " & Me.PROTOCOLO)
Me.CONCLUSAO = DLookup("CONCLUSAO", "Dados gerais", "[PROTOCOLO] = " & Me.PROTOCOLO)
Me.STATUS = DLookup("REQUISITANTE", "Dados gerais", "[PROTOCOLO] = " & Me.PROTOCOLO)

End If
End Sub

Grato pelo retorno. Bom trabalho.