[Resolvido]Sair do Looping Do While com Sucesso

Olá pessoal,

Tenho uma função que faz um looping Do While ok, mas não consigo interromper o looping com "Exit Do".

Código:


Public Function GerarRelatorio()
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Analise", dbOpenTable)

Do While Not rs.EOF
Me.Organismo.SetFocus

DoCmd.RunCommand acCmdRecordsGoToNext
If rs.EOF = True Then
Exit Do
DoCmd.OpenReport "Relatório de Infecções", acViewPreview, , , acDialog
End If
Loop
End Function

Olá Avelino,

Obrigado por responder. Já tentei de tudo. Com certeza, fiz isto como prática normal desse jeito abaixo, mas também não deu certo. Ao final do Looping entra assim mesmo no looping infinito. É muito importante pra mim encerrar o looping porque no evento Exit(Ao Sair) do campo Organismo, tenho uma outra função que realiza o cálculo do número de infecções.

Avelino, na questão do DoCmd.RunCommandacCmdRecordsGoToNext em vez de rs.MoveNext é que com este só retornará o total de registros e
percorrerá todos os registros na tabela e o outro percorrerá todos os registros pelo formulário onde em determinado campo (Organismo) ao entrar o cursor acionará uma outra função que é o alvo pretendido.

Código:


Public Function GerarRelatorio()
Dim rs As DAO.Recordset

Set rs = CurrentDb.OpenRecordset("Analise", dbOpenTable)

rs.MoveFirst
Do While Not rs.EOF
Me.Organismo.SetFocus

If rs.EOF = True Then      'Ou If rs.EOF = True Then Exit Do (Sem End If)

DoCmd.OpenReport "Relatório de Infecções", acViewPreview, , , acDialog
End If
Loop
rs.MoveNext

End Function


Consegui.

Bobeira minha, estava bem na minha cara.

Código:


Do While Not rs.EOF
Me.Organismo.SetFocus
If Not IsNull(Organismo) Then
DoCmd.RunCommand acCmdRecordsGoToNext
Else
Exit Do
End If
Loop