OpenArgs 属性

重要:  本文是由机器翻译的,请参阅免责声明。请在 此处 中查找本文的英文版本以便参考。

适用于

窗体对象

报表对象

确定字符串表达式打开窗体的OpenForm方法OpenArgs参数所指定。读取/写入变体

表达式OpenArgs

表达式必填。返回一个对象应用于列表中的表达式。

备注

仅使用宏或 Visual Basic for Applications (VBA) 代码使用DoCmd对象的OpenForm方法,此属性才可用。此属性设置为只读,所有的视图中。

要使用OpenArgs属性,请使用DoCmd对象的OpenForm方法打开窗体并将OpenArgs参数设置为所需的字符串表达式。OpenArgs属性设置然后可用代码中的窗体中,如在打开的事件过程。您也可以参阅中的宏,例如打开的宏或表达式,如控件的控件来源属性设置窗体的表达式的属性设置。

例如,假设您打开的是客户端列表连续窗体。如果您希望焦点要移动到特定的客户端的记录中,打开表单时,您可以OpenArgs属性设置为客户姓名,然后使用在打开的宏FindRecord操作的客户端将焦点移到记录指定的名称。

示例

下面的示例使用OpenArgs属性打开员工窗体到特定员工记录并演示OpenForm方法将OpenArgs属性的设置。您可以根据需要运行此过程 — 例如,该事件发生的自定义对话框,用于输入雇员新信息。

Sub OpenToCallahan()
DoCmd.OpenForm "Employees", acNormal, , , _
acReadOnly, , "Callahan"
End Sub
Sub Form_Open(Cancel As Integer)
Dim strEmployeeName As String
' If OpenArgs property contains employee name, find
' corresponding employee record and display it on
' form. For example,if the OpenArgs property
' contains "Callahan", move to first "Callahan"
' record.
strEmployeeName = Forms!Employees.OpenArgs
If Len(strEmployeeName) > 0 Then
DoCmd.GoToControl "LastName"
DoCmd.FindRecord strEmployeeName, , True, , _
True, , True
End If
End Sub

下一个示例使用FindFirst方法查找名为OpenArgs属性中的员工。

Private Sub Form_Open(Cancel As Integer)
If Not IsNull(Me.OpenArgs) Then
Dim strEmployeeName As String
strEmployeeName = Me.OpenArgs
Dim RS As DAO.Recordset
Set RS = Me.RecordsetClone
RS.FindFirst "LastName = '" & _
strEmployeeName & "'"
If Not RS.NoMatch Then
Me.Bookmark = RS.Bookmark
End If
End If
End Sub

注意: 机器翻译免责声明:本文是由无人工介入的计算机系统翻译的。Microsoft 提供机器翻译是为了帮助非英语国家/地区用户方便阅读有关 Microsoft 产品、服务和技术的内容。由于机器翻译的原因,本文可能包含词汇、语法或文法方面的错误。

扩展你的技能
了解培训
抢先获得新功能
加入 Office 预览体验计划

此信息是否有帮助?

谢谢您的反馈!

谢谢你的反馈! 可能需要转接到 Office 支持专员。

×