Access VBA教程:OpenArgs属性

确定由打开窗体的OpenForm方法的 OpenArgs参数所指定的字符串表达式。Variant 型,可读写。

expression.OpenArgs

expression   必需。返回“Applies To”列表中的一个对象的表达式。

说明

该属性仅在使用时或在Visual Basic 中使用DoCmd对象的 OpenForm方法时才可用。该属性设置在所有视图中均具有只读属性。

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

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

示例

下面的示例使用 OpenArgs属性打开“雇员”窗体中的某一特定职员记录,并说明 OpenForm方法如何设置 OpenArgs属性。可以在适当的时候执行该过程,例如,当一个用于输入雇员新信息的自定义对话框的 AfterUpdate事件发生的时候。


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

上页:Access VBA教程:OnUpdated属性 下页:Access VBA教程:Operator属性

Access VBA教程:OpenArgs属性

Access VBA教程:Operator属性 Access VBA教程:OptionValue属性
Access VBA教程:OrderBy属性 Access VBA教程:OrderByOn属性
Access VBA教程:OrganizeInFolder属性 Access VBA教程:Orientation属性
Access VBA教程:OutputAllFields属性 Access VBA教程:Page属性
Access VBA教程:PageCount属性(快照查看器) Access VBA教程:PageFooter属性
Access VBA教程:PageHeader属性 Access VBA教程:PageIndex属性
Access VBA教程:Pages属性 Access VBA教程:Painting属性
Access VBA教程:PaintPalette属性 Access VBA教程:PaletteSource属性
Access VBA教程:PaperBin属性 Access VBA教程:PaperSize属性
Access VBA教程:Parent属性 Access VBA教程:Path属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号