After a great deal of searching and tying many different things, I found the code below as a way to stop at the last record.
Dim intNewRecord As Integer
Forms![Wine SF1]![sf-Wines].SetFocus
DoCmd.GoToRecord , , acNext
intNewRecord = IsNull(Forms![Wine SF1]![sf-Wines]![WinesID])
If intNewRecord Then
DoCmd.GoToRecord , , acLast
MsgBox "You are at the Last of Record!"
End If
The 'Wines' are my Forms and Tables.
I hope this helps.