这是将参数传递给“子”形式的行:
DoCmd.OpenForm“Main”,acNormal ,,,, acWindowNormal,tr.GetEmployeeName(uname)
然后这是“子”表单加载时的代码:
Private Sub Form_Load()
Dim i As String
i = CStr(Login.OpenArgs)
MsgBox i
End Sub
非常感谢!
答案 0 :(得分:1)
参数已作为字符串传递,并且是“子”形式的属性:
Private Sub Form_Load()
Dim i As String
i = Me.OpenArgs
MsgBox i
End Sub
编辑:我差点错过了 - 已经有一段时间了。 。 。
更多编辑:看起来您将OpenArgs视为父表单的属性。我将假设您的父表单是“登录”,并且您的子表单是“Main”,因为您似乎在该行代码中调用名为“Main”的表单。
openArgs是现在打开的表单的属性,从父级传递给子级。因此,您引用OpenArgs属性,如上所示。
除非我遗漏了什么,否则无论如何。 。 。