窗体openargs属性

小陈　发表于：2013-03-15 16:11:37 　

在“罗斯文”数据库“产品”窗体中有如下代码：

Private Sub 产品名称_AfterUpdate()
' 如果 OpenArgs 属性不空, 设置 SupplierID 为窗体的 OpenArgs 属性值。
' 如果单击"供应商"窗体上的“增加产品”命令钮打开“产品”窗体，OpenArgs
' 会有一个值。
    If IsNull(Forms!产品.OpenArgs) Then
        Exit Sub
    Else
        Me!供应商ID = Forms!产品.OpenArgs
    End If

End Sub

请问，如何查找OpenArgs 属性？

Top

杜超-2号发表于：2013-03-15 16:28:55

代码里选中OpenArgs，按F1

Top

小陈发表于：2013-03-15 17:58:52

初学VBA，看看F1的，不太明白，最好高手详细解释一下。

1、click事件的属性是onclick，请问，open事件的属性是不是 OpenArgs？

2、在“供应商”窗体代码如下：

Dim strDocName As String

    strDocName = "产品"
    ' 以数据输入模式打开“产品”窗体并把“供应商ID”保存在
    ' 窗体的 OpenArgs 属性中。
    DoCmd.OpenForm strDocName, , , , acAdd, , Me!供应商ID

请问，代码中所说的“供应商ID”是不是保存在打开的“产品” 窗体的 OpenArgs 属性中？