|
If Not IsLoaded(窗体名) Then
DoCmd.openForm "窗体名"
End If
DoCmd.SelectObject acForm, "窗体名"
DoCmd.GoToControl Forms![窗体名]![关键字名].Name
DoCmd.FindRecord Me![关键字名]
DoCmd.GoToControl Forms![窗体名]![关键字名].Name
如:
If Not IsLoaded("Tickets") Then
DoCmd.openForm "Tickets"
End If
DoCmd.SelectObject acForm, "Tickets"
DoCmd.GoToControl Forms![Tickets]![ControlNo].Name
DoCmd.FindRecord Me![ControlNo]
DoCmd.GoToControl Forms![Tickets]![ControlNo].Name
用户在浏览机票的窗体上双击ControlNo,自动打开Tickets窗体,并使用FindRecord功能找到该ControlNo。
说明:
isloaded()函数判断窗体是否已经打开。
前面一条提到的方法 DoCmd.OpenForm FormName, , ,关联条件, acFormEdit
,只适用于编辑窗体未打开的时候。
|
|