Question

我找不到原因，但在使用OpenArgs

时，我一直无效使用null

代码设置为

Private Sub cmdContactDetails_Click()
    Dim ArgsString As String

    ArgsString = Forms!LeadList![Entrepreneur Name] & "," & Forms!LeadList![Telephone Number] & "," & Forms!LeadList![Email Address]
    DoCmd.OpenForm "ContactDetails", , , , , , ArgsString
End Sub

这导致字符串＆＃34; X，123456789，test @ test＆＃34;

在Form_Open的联系方式中，我有：

Dim SaveString As String  
SaveString = Forms!ContactDetails.OpenArgs

但是这给了我一个＆＃34;无效使用Null＆＃34;即使没有任何东西是空的。

Answer 1

假设您有一个名为： - ＆＃34; LeadList＆＃34;

的表单

并且表单还有一个名为的文本框： - ＆＃34; Entrepreneur_Name＆＃34;

，此表单包含以下代码： -

Option Compare Database
Option Explicit

Private Sub cmdContactDetails_Click()
Dim ArgsString As String

    ArgsString = Me.Entrepreneur_Name
    DoCmd.OpenForm "ContactDetails", , , , , , ArgsString

End Sub

上面的代码是通过名为＆＃34; cmdContactDetails＆＃34;的命令按钮调用的。在名为的表格上： - ＆＃34; LeadList＆＃34;然后表格＆＃34; ContactDetails＆＃34;将打开（表单＆＃34; ContactDetails＆＃34;必须先关闭）并且on open事件将运行此代码： -

Option Compare Database
Option Explicit

Private Sub Form_Open(Cancel As Integer)
Dim SaveString As String

    SaveString = Forms!ContactDetails.OpenArgs
    MsgBox " >>> " & SaveString

End Sub

消息框将显示通过打开的args函数从表格＆＃34; LeadList＆＃34;中传输的文本内容。文本框＆＃34; Entrepreneur_Name＆＃34;

＆＃34;无效使用null＆＃34;调用OpenForm

1 个答案: