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

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存储在变量。 请记住，如果你指示你的用户远离你的表单重新设置变量为空。