如何使用 TAB 或 ENTER 从子窗体移到主窗体

时　间:2004-11-11 00:00:00
作　者:Microsoft   ID：61  城市：岳阳
摘　要:本文说明如何通过按 TAB 键或 ENTER 键将子窗体的最后一个记录上的最后一个控件移到主窗体上的指定控件。
正　文:

正    文：

　　默认情况下，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，然后单击搜索查看相关的主题。

Access软件网QQ交流群 (群号:483923997) 　　　　　　Access源码网店