将文本从一种形式移动到另一种形式

Question

我有一个弹出窗口 window，其中的组合框列出了 100 多个项目。我想这样做，当用户选择该项目并双击它时，它将将该项目添加到另一个表单（主表单）上的文本框。如果进行了多个选择并将其添加到文本框中，我希望在同一个文本框中用逗号分隔每个选择。

这可能吗？

主窗体是 [f_Requests] 并且有一个名为 txtPractices 的文本框弹出形式为 [f_Practices)

Answer 1

在组合框的 DoubleClick 事件中，编写如下代码：

Dim txtP As String
txtP = Nz(Forms!f_Requests.txtPractices,"")

If Len(txtP) > 0 Then
    Forms!f_Requests.txtPractices = txtP & " , " & nameofthecombobox
Else
    Forms!f_Requests.txtPractices = nameofthecombobox
End If

如果主窗体打开，首先检查这一点可以改进。

将文本从一种形式移动到另一种形式

Move text from one form to another

ms-access

vba

ms-access-2010