Dlookup com Loop alguem pode judar?

olá galera ... estou tentando resolver um problema a dias e não consigo ... meu prazo para entrega esta acabando .. assim como meu estagio obrigatório .. e este seria o resultado final do meu estagio .... bom vamos lá ..

tem um banco de dados Access responsável por cadastro de agravos em saúde ... com isto tenho um banco de resultados de exames atualizados todos os dias pela centro de controle de doenças... fiz alguns comandos que pegam todos os resultados de SP e filtra pelo registro do individuo daquela região e cria uma nova tabela chamada JOIN-SUVIS onde contem o numero de registro, a data da coleta, a data do resultado e o resultado.

com o comando Dlookup eu consegui adicionar estes dados da JOIN-SUVIS direto no formulário SUVIS...
porem cada vez que eu clico em atualizar ele só atualiza o primeiro registro ... se eu mantiver o atualizar pressionado ele vai atualizando um por vez conforme vai passando pelos cadastros ...

eu acho que seria necessário uma especie de Loop para que ele se repetisse até o final dos registros... mas não consigo fazer ...

este é o comando que utilizei

Private Sub Comando110_Enter()

Me.RESULTADO = DLookup("[RESULTADO]", "JOIN-SUVIS", "[SINAN_J] = " & Me.sinan)
Me.DATA_RESULTADO = DLookup("[DATA_RESULTADO]", "JOIN-SUVIS", "[SINAN_J] = " & Me.sinan)
Me.DATA_DE_COLETA = DLookup("[DATACOLETA]", "JOIN-SUVIS", "[SINAN_J] = " & Me.sinan)

End Sub


mais uma informação ... alguns registros de pacientes ... não possuem resultados de exames .... portanto o campo fica vazio ....

alguém pode me ajudar .... por misericórdia ... estou arrancando os cabelos já

Olá! Poste seu aplicativo que damos uma olhada.

não consigo enviar o aplicativo .. ele não carrega

Ontem eu coloquei um anexo no fórum.

O fórum só aceita arquivos.zip até o tamanho de 2.998 Mb
Antes de criar o arquivo.zip, use a compactação e reparação de banco de dados do Access
isso diminui e muito  o tamanho do arquivo.
Comprima o arquivo criando o .zip se usa o Winrar veja como  ali embaixo na minha assinatura.
Se não conseguir anexar o arquivo pelo fórum, utilize o Mega ou Dropbox e coloque o link
aqui pra podermos baixa.

[ ]'s

Noobezinho

abre com o Shift

formulario suvis botão atualizar

https://www.dropbox.com/s/axc5aou01tvce8b/for.rar?dl=0