Article ID: 154893
Article Last Modified on 1/19/2007
150895ACC95: Microsoft Access Sample Forms Available in Download Center
175066 ACC97: Microsoft Access 97 Sample Forms Available in Download Center
Private Sub Discount_Exit(Cancel As Integer)
On Error Goto Error_Routine
Dim RS As Recordset
Set RS = Me.RecordsetClone
RS.MoveLast
If StrComp(Me.Bookmark, rs.Bookmark, 0) = 0 Then
Forms![Orders]![Freight].SetFocus
' The following line may be removed in version 2.0
Forms![Orders]![Orders Subform].Requery
End If
Exit Sub
Error_Routine:
MsgBox "You must be on a record with data"
Exit Sub
End Sub
Additional query words: navigate programmatically
Keywords: kbhowto kbprogramming kbusage KB154893