正 文:
默认情况下,Microsoft Access 可以根据窗体的 tab 次序,按 TAB 键或 ENTER 键,将焦点从窗体的一个控件移到另一个控件,这包括移到子窗体控件。但是,按 TAB 或 ENTER 键并不将焦点从子窗体控件移回主窗体。
注意事项:执行本文中的步骤将会修改样例数据库 Northwind.mdb。需要备份 Northwind.mdb 文件,并在数据库备份上执行这些步骤。
备注:本文中的样例代码使用 Microsoft 数据访问对象。为使该代码正常运行,必须引用 Microsoft DAO 3.6 Object Library。为此,在 Visual Basic 编辑器中,单击工具菜单上的引用,确保选中了 Microsoft DAO 3.6 Object Library 复选框。
1.打开样例数据库 Northwind.mdb。
2.在“数据库”窗口中,单击对象下的窗体,并在“设计”视图中打开“订单子窗体”。
3.将窗体的“折扣”控件的 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 键从窗体上的一个控件移到下一个控件。注意:在您从子窗体上显示的最后一个记录的“折扣”控件中按 TAB 或 ENTER 时,窗体的“运费”控件获得焦点。
参考
有关设置窗体选项卡顺序的详细信息,请单击[b]帮助[/b]菜单上的Microsoft Access帮助,在“Office 助手”或“操作向导”中输入窗体中选项卡的顺序,然后单击搜索查看该主题。
有关Bookmark属性的详细信息,请在 Visual Basic 编辑器中,单击帮助菜单上的Microsoft Visual Basic帮助,并在“Office 助手”或“应答向导”中键入 Bookmark,然后单击搜索查看相关的主题。