从列表框中获取值并将其传递到表单上的对象

Question

我想在表单上的列表框中找到一个数值，并将其放入表单本身的文本框中。我想这样做，然后使用该值作为唯一的ID号链接到表单上找到的子表单之一。有可能吗？

Answer 1

我在其中一个表单上有这样的内容，我建议将其设置为全局变量，然后将该变量用作控件源。

在VBA中

创建一个模块并调用它。

Public Function Something() As Variant

'Finds the Current Selected value from Form Element
Something = Forms("MainMenu").texbox.Column(1) ' 0 is the First Column

End Function

这是存储变量的内容。然后你需要从表单中调用它。如果你想将它传递给另一种形式我假设你有一个按钮或其他形式打开其他表格。在运行任何其他代码之前的同一触发器上，您需要输入：

Call Something

当你调用它时，它会将文本框中的值设置为该变量。

存储此变量之后，您只需将文本框的控制源放在另一个表单上：

=Something()

然后，当您的其他表单被激活时，它将显示ID存储在变量中的内容。 请记住，如果您将用户从表单中移除，则将变量重新设置为空。