DavidLeal 2/9/2015, 04:36
Danilo, mais uma vez fico agradecido pela sua disponibilidade. Felizmente eu já consegui sanar o meu problema com esta expressão:
Private Sub Comando49_Click()
On Error GoTo Err_Comando49_Click
Dim StrLast As Integer
StrLast = DLast("CodPedido", "TblPedido")
If Me.CodPedido = StrLast Then
MsgBox "Você está no último registro", vbInformation, "Atenção"
Exit Sub
End If
DoCmd.GoToRecord , , acNext
Exit_Comando49_Click:
Exit Sub
Err_Comando49_Click:
MsgBox Err.Description
Resume Exit_Comando49_Click
Exit Sub
End Sub