Utiliza esto:
Private Sub SiguienteReg_Click()
On Error GoTo Err_SiguienteReg_Click
DoCmd.GoToRecord , , acNext
Dim intnewrec As Integer
intnewrec = Form_Articulos.NewRecord
If intnewrec = True Then
DoCmd.GoToRecord , , acLast
Dim CAMPOINFO As String
CAMPOINFO = MsgBox("ESTA EN EL ULTIMO REGISTRO", vbInformation, "INFORMACION")
End If
Exit_SiguienteReg_Click:
Exit Sub
Err_SiguienteReg_Click:
MsgBox Err.Description
Resume Exit_SiguienteReg_Click
End Sub
Saludos desde Cádiz