Inserir registro no formulário contínuo

Amigos, estou tentando inserir uma informação de um campo no formulário contínuo, criei um botão e inseri o código abaixo, funciona normalmente se tiver apenas um registro no formulário, mas quando tenho mais de um registro a função atualiza somente primeiro registro e não o que eu cliquei, alguém pode me ajudar.

Código:


10    If Me.diasem = "dom" Then
20    Me.usercom = DLookup("ID", "tblconsultor", "iduser =" & login.ID)
30    Else
40    Me.usercom = Forms![frmInternacao]![consultor]
50    Me.Requery
60    End If


Bom dia !
Quero ajudá-lo, no entanto, sua explicação não ficou clara.
Dê mais detalhes do que pretende.

Aguardamos.