使用子表单上列表框选择的值填充文本框

Question

我知道这个问题以前有人问过，我尝试了很多建议，但我想我在 VBA 编码方面太新手了。

这是我的场景： 我有一个带有几个表单的 Access 2007“应用程序”。在主窗体上，我有 2 个文本框。为简单起见，我们称它们为 textbox1 和 textbox2。

textbox1 用于输入样式代码。主窗体上的一个按钮然后以模态/对话框模式打开另一个按钮，并使用样式代码作为 where 子句运行查询。模式弹出窗口为我提供了一个列表框，该列表框根据传递的查询从数据库中填充。然后，我需要在列表中选择一种产品，并在关闭弹出窗口后，使用品牌（弹出列表中的列表中的第 2 列）编号填充 textbox2。

请记住我是新手。任何帮助将不胜感激。

Answer 1

我会在第二个表单上放一个按钮，然后在 _Click() 函数中放这样的东西

   If ListBox1.ListIndex = -1 Then
       MsgBox "Nothing Selected!"
       Exit Sub
   End If
   UserForm1.TextBox1.Text = ListBox1.List(ListBox1.ListIndex)
   Unload Me

其中 ListBox1 是包含您需要用户从中选择的内容的列表框，其中 UserForm1 是调用表单的名称，TextBox1 是名称。

说明 列表框的 ListIndex 属性返回所选列表项的索引。如果未选择任何内容，则返回 -1。 要从另一个引用一个项目，您需要引用表单、对象和属性。

在我给出的例子中，表单是UserForm1，对象是TextBox1，属性是Text。键入时，智能感知应在您键入句点后自动完成对象和属性。