「無效使用空的」爲OpenArgs調用的OpenForm

的代碼設置了

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

這個結果時，我找不到原因，但我不斷收到的無效使用空的字符串中的「X，123456789，測試@測試」

在聯繫方式與Form_Open事件我有：

Dim SaveString As String 
SaveString = Forms!ContactDetails.OpenArgs

但是，即使沒有任何內容爲空，這也會給我一個「無效使用空值」消息。

來源

2015-08-18 Marc L

傳送的文本的你看到了什麼，如果你的內容在Form Open中的任何其他位置之前添加MsgBox Nz（Me.OpenArgs，「nothing」）？ – HansUp

假設你有一個名爲形式： - 「LeadList」

和形式也有一個名爲文本框： -

「Entrepreneur_Name」這種形式包含以下代碼： -

Option Compare Database 
Option Explicit 

Private Sub cmdContactDetails_Click() 
Dim ArgsString As String 

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

End Sub

上述代碼通過名爲「cmdContactDetails」的名爲「 - 」LeadList「的命令按鈕調用，則將打開」ContactDetails「表單（表單」ContactDetails「必須先關閉）並打開EV耳鼻喉科將運行這段代碼： -

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函數從表單「LeadList」文本框中輸入「Entrepreneur_Name」

來源

2015-08-18 18:04:13

「無效使用空的」爲OpenArgs調用的OpenForm

回答

相關問題