vba 如何调用其他已加载窗体控件的值

在Visual Basic for Applications (VBA) 中，如果你想获取另一个已经加载的窗体中的控件值，你需要先通过窗体对象来定位到那个具体的控件，然后通过控件名或控件的属性来读取其值。这里是一个基本步骤：

1. 首先，假设你有一个名为`Form1`的窗体，并在其上有个名为`txtValue`的文本框控件。在VBA中，`Form1`和`txtValue`都是对象，可以通过`.Name`属性来引用。

2. 获取窗体对象：

   Dim myForm As Object ' 创建一个形式对象的引用
   Set myForm = ThisWorkbook.Worksheets("Sheet1").Shapes("Form1") ' 或者根据窗体的放置位置查找

3. 访问控件并获取其值：

   Dim controlValue As String
   controlValue = myForm.Controls("txtValue").Value ' 如果你想从文本框获取文本，就用 `.Text`

注意：这里的`ThisWorkbook.Worksheets("Sheet1").Shapes("Form1")`是用来找到嵌入式窗体的例子，如果窗体是作为独立运行的用户界面，则可能需要使用不同的查找方式。

相关问题

如何调用已加载窗体控件的值

在VBA中，如果你已经加载了一个窗体并想要获取其中控件的值，你可以通过以下步骤来访问：

1. **确定窗体名**: 首先，你需要知道你要操作的具体窗体的名称。这通常是窗体的标题，比如"Form1"、"frmMyForm"等。如果你不确定，可以用`Forms`对象的`Controls`集合来查找特定的控件。

2. **引用控件**: 使用窗体名加上点`.`，再加上控件的名称或索引来引用它。例如，如果你有一个名为TextBox1的文本框，你会这么写：`Forms("Form1").TextBox1`。

3. **读取值**: 调用控件的`Value`属性即可获取其内容。例如，`Dim controlValue As String = Forms("Form1").TextBox1.Value`

下面是一个完整的示例代码：

Sub GetControlValue()
    Dim controlName As String = "TextBox1" ' 替换为你实际的控件名
    Dim control As Object = ThisWorkbook.Worksheets("Sheet1").Controls(controlName)
    
    If Not IsNull(control) Then ' 确保控件存在
        Dim controlValue As Variant
        Set controlValue = control.Value ' 获取控件值
        Debug.Print "控件值为：" & controlValue
    Else
        MsgBox "找不到指定的控件!"
    End If
End Sub

在上述例子中，`ThisWorkbook.Worksheets("Sheet1")`是假设你在工作表的控件上操作，如果在窗体上则应改为`Forms("Form1")`。

access vba子窗体控件加载窗体的办法

在VBA (Visual Basic for Applications) 中，你可以通过以下步骤在Access 的子窗体上加载另一个窗体：

1. 打开包含子窗体的主窗体设计视图。
2. 双击子窗体以打开它的设计模式。
3. 在子窗体的设计区域，找到并选择 "Form" 对象，这通常是一个空白区域，表示可以添加控件或者绑定操作的对象。
4. 点击 "Design Time Tools" 菜单（如果你的版本是Office 2007或更早），然后选择 "Insert" -> "Form Control"，或者直接点击工具栏上的 "Form Control" 图标，从下拉列表中选择 "Subform"。
5. 将新插入的 Subform 控件设置为其需要显示的数据源，右键点击它，选择 "Properties"，在 "RecordSource" 属性中指定你要加载的其他窗体的名称或查询。
6. 如果你想动态地加载窗体，可以在 VBA模块中编写代码。例如，在模块中创建一个Sub过程，接收一个窗体名称作为参数，然后设置子窗体的 `Me.Controls("SubformName").RecordSource` 为所需窗体的名称。

Private Sub LoadSubForm(ByVal targetForm As String)
    Me.SubformName.RecordSource = targetForm
End Sub

然后在需要的地方调用这个Sub，传入窗体的名称，如 `LoadSubForm "YourFormName"`。