NAVEGA?ÃO DE REGISTROS PRIMEIRO, PRÓXIMO, ANTERIOR

Citação:

:
Acho que matei a charada, ou melhor depois da minha bicuda.
Compara com o seu e ver onde tu estava errando.
Private Sub cmdPrimeiro_Click()
lTBPerfis.MoveFirst
MontarNavegacao
MsgBox [Ô]Este é o Primeiro Registro![Ô], vbInformation, [Ô]Perfil[Ô]
End Sub

Private Sub cmdProximo_Click()
lTBPerfis.MoveNext
If lTBPerfis.EOF Then
lTBPerfis.MoveLast
MsgBox [Ô]Este é o Último Registro![Ô], vbInformation, [Ô]Perfil[Ô]
End If
MontarNavegacao
End Sub

Private Sub cmdAnterior_Click()
lTBPerfis.MovePrevious
If lTBPerfis.BOF Then
lTBPerfis.MoveFirst
MsgBox [Ô]Este é o primeiro registro![Ô], vbInformation, [Ô]Perfil[Ô]
End If
MontarNavegacao
End Sub

Private Sub cmdUltimo_Click()
lTBPerfis.MoveLast
MontarNavegacao
MsgBox [Ô]Este é o Último Registro![Ô], vbInformation, [Ô]Perfil[Ô]
End Sub