我需要从另一个表单的列表框中选择的数据中填充一个文本框

Question

我正在尝试使其中一种形式的文本框从另一种形式的列表框中获取数据。另一种形式将是一个查询的弹出形式，将在单击文本框时启动。原来是这样的

1. 表格 A 已打开
2. 文本框 A 被点击
3. 单击文本框 A 会打开具有列表框的表单 B
4. 已选择列表框值
5. 按下表单 B 中的关闭按钮
6. 现在表单 A 中的文本框 A 应该包含我们在 表单 B 中的列表框

我认为可以通过创建变量（如果我没记错的话是公共变量）来完成，但我完全是新手，不知道要使用什么代码。

问题是，我有几个相同表单的文本框，它们将运行相同的代码并从相同的表单获取文本框中的值。

Answer 1

可能是这样的，

Private Sub textBoxA_OnClick()
    DoCmd.OpenForm "FormB", OpenArgs:= "textBoxA"
End Sub

Private Sub textBoxB_OnClick()
    DoCmd.OpenForm "FormB", OpenArgs:= "textBoxB"
End Sub

然后选择你想要的 ListBox 项。然后单击按钮，您可以检查是否选择了项目。然后基于此，您可以将该数据放入文本框中。

Private Sub formBButton_OnClick()
    If Me.FormBList.ListCount = 0 Then 
        MsgBox "You have not made any selection, please select an option.", _
                vbInformation
        Exit Sub    
    End If

    If Len(Me.OpenArgs & vbNullString) <> 0 Then _
        Forms("FormA").Controls(Me.OpenArgs) = Me.FormBList

    DoCmd.Close acForm, Me.Name
End Sub

Answer 2

这是我用的。

我把所有的文本框都藏起来了，让它们不可见。

我添加了一个添加按钮。

添加按钮打开表单 (frmslctattendee) 在表单中，组合框的值是从查询中选择的 那么命令按钮后面的代码如下。

Private Sub Command5_Click()
    If Forms!frmmeetings!txtat8.Visible = True Then
        Forms!frmmeetings!txtat9.Visible = True
        If Len(Forms!frmmeetings!txtat9 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat9.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat7.Visible = True Then
        Forms!frmmeetings!txtat8.Visible = True
        If Len(Forms!frmmeetings!txtat8 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat8.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat6.Visible = True Then
        Forms!frmmeetings!txtat7.Visible = True
        If Len(Forms!frmmeetings!txtat7 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat7.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat5.Visible = True Then
        Forms!frmmeetings!txtat6.Visible = True
        If Len(Forms!frmmeetings!txtat6 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat6.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat4.Visible = True Then
        Forms!frmmeetings!txtat5.Visible = True
        If Len(Forms!frmmeetings!txtat5 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat5.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat3.Visible = True Then
        Forms!frmmeetings!txtat4.Visible = True
        If Len(Forms!frmmeetings!txtat4 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat4.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat2.Visible = True Then
        Forms!frmmeetings!txtat3.Visible = True
        If Len(Forms!frmmeetings!txtat3 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat3.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat1.Visible = True Then
        Forms!frmmeetings!txtat2.Visible = True
        If Len(Forms!frmmeetings!txtat2 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat2.Value = cmbnameselect.Value
        End If
    End If

    If Forms!frmmeetings!txtat1.Visible = False Then
        Forms!frmmeetings!txtat1.Visible = True
        If Len(Forms!frmmeetings!txtat1 & vbNullString) = 0 Then
            Forms!frmmeetings!txtat1.Value = cmbnameselect.Value
        End If
    End If

    DoCmd.Close
End Sub

它完成了这项工作。 等待你的cmets。