Dim rs As Object
Set rs = Me.Recordset.Clone
rs.MoveLast
If StrComp(Me.Bookmark, rs.Bookmark, 0) = 0 Then
Forms![frmMoveToMainForm]![cboCustomerID].SetFocus
Forms![frmMoveToMainForm]![subMovetoMainForm].Requery
End If
Exit Sub
Error_Routine:
MsgBox "You must be on a record with data"
Exit Sub