更多信息

1. 打開(kāi)示例數(shù)據(jù)庫(kù) Northwind.mdb。
2. 在"數(shù)據(jù)庫(kù)"窗口中，單擊對(duì)象下的窗體，然后在"設(shè)計(jì)"視圖中打開(kāi)"訂單子窗體"窗體。
3. 將該窗體的 Discount 控件的 onExit 屬性設(shè)為以下事件過(guò)程：

   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. 保存并關(guān)閉"訂單子窗體"。
5. 在"窗體"視圖中打開(kāi)訂單窗體，然后按 TAB 鍵或 ENTER 鍵，從該窗體上的一個(gè)控件移到下一個(gè)控件。注意，如果從子窗體上顯示的最后一個(gè)記錄的 Discount 控件按 TAB 鍵或 ENTER 鍵，焦點(diǎn)將移至該窗體的 Freight 控件。