更多信息

1. 打开示例数据库 Northwind.mdb。
2. 在"数据库"窗口中，单击对象下的窗体，然后在"设计"视图中打开"订单子窗体"窗体。
3. 将该窗体的 Discount 控件的 onExit 属性设为以下事件过程：

   Private Sub Discount_Exit(Cancel As Integer)
   
   On Error Goto Error_Routine
   
   Dim RS As DAO.Recordset
   Set RS = Me.RecordsetClone
   RS.MoveLast
   If StrComp(Me.Bookmark, rs.Bookmark, 0) = 0 Then
   Forms![Orders]![Freight].SetFocus
   Forms![Orders]![Orders Subform].Requery
   End If
   Exit Sub
   
   Error_Routine:
   MsgBox "You must be on a record with data"
   Exit Sub
   
   End Sub

4. 保存并关闭"订单子窗体"。
5. 在"窗体"视图中打开订单窗体，然后按 TAB 键或 ENTER 键，从该窗体上的一个控件移到下一个控件。注意，如果从子窗体上显示的最后一个记录的 Discount 控件按 TAB 键或 ENTER 键，焦点将移至该窗体的 Freight 控件。