Dlookup retornando todas as ocorrências.

Olá Pessoal!



Se puderem me ajudar....

Questão 1 : Tenho um formulário não acoplado, quando uso a função (?) Dlookup a mesma retorna somente o primeiro registro do funcionário. como devo fazer para retornar todos os registros do mesmo funcionário?

Questão 2: código para navegar ( próximo-anterior ) entre registros em formulário não acoplado.


Grato.

Sub MyProc
On Error Goto Err_MyProc
Dim db as Database
Dim rst As Recordset

Set db = CurrentDb()
Set rst = db.OpenRecordset("MyTable")

Do while Not rst.EOF
If rst![MyField] <> Something Then 'The real loop exit condition.
Exit Do
End If
' Rest of your code here.
rst.MoveNext
Loop

Exit do



'
rst.Close 'Close what you opened.

Exit_MyProc:
Set rst = Nothing 'Deassign all objects.
Set db = Nothing
Exit Sub

Err_MyProc:
'Error handler here.
Resume Exit_MyProc
End Sub

o codigo é mais ou menos este ai. Tem que criar um objeto Recordset e percorrer os registros, logo após mostra-los aonde você quiser.