在訪問中引用子表單記錄

Question

我有以下表單，包含三個子表單：

右上角的按鈕在 excel 中打開一個用戶表單。 我希望該用戶表單已經從這些子表單中選擇了一些值。 但是，我無法在 VBA 代碼中引用子窗體中的記錄。 我已經成功地從主表單傳輸了值，例如名稱等，但沒有從子表單傳輸值。 訪問代碼：

Option Compare Database

Private Sub Toggle159_Click()
    Dim abc As String
    abc = Me.CompanyName

    Dim xlApp As Object 'Excel.Application, xlWB As Excel.Workbook
    Dim xlWB As Object
    Set xlApp = CreateObject("Excel.Application")
    Set xlWB = xlApp.Workbooks.Open("C:\NA\eb\quotegenv2.xlsm") ' specify file
    xlApp.Visible = True
    xlApp.Run "Module3.showFormWithValues", abc


End Sub

在上面的代碼中，CompanyName 是主窗體上的一個控件。 此代碼運行良好，但我嘗試使用“me.subformname.form.controlname”引用子表單中的項目，但控件名稱未出現在建議中。

模塊的excel代碼：

' placed in code Module3
    Sub showFormWithValues(txt1 As String)
        With UserForm1

            .ClientName.Text = txt1

        End With
    UserForm1.Show
    End Sub

任何幫助表示贊賞。

Answer 1

您已嘗試在打開表單之前設置ClientName 。

使用模塊 3 頂部的全局變量在showFormWithValues和表單之間共享數據。

在第一個過程之前的Module3頂部作為公共變量，如下例所示： -

Option Explicit

Public StrCN    As String

Sub showFormWithValues(txt1 As String)
    ...
End Eub

在UserForm1添加（或更新，如果它已經存在）以下內容： -

Private Sub UserForm_Activate()
Me.ClientName.Text = Module3.StrCN
End Sub