Question

我之前已经意识到这个问题并且我已经尝试了很多建议，但我想在VBA编码时我只是一个新手。

这是我的情景：我有一个Access 2007＆＃34;应用程序＆＃34;有几种形式。在主窗体上，我有2个文本框。为简单起见，我们将它们称为textbox1和textbox2。

textbox1用于输入样式代码。然后，主窗体上的一个按钮以模态/对话框模式打开另一个按钮，并使用样式代码作为where clasue运行查询。模态弹出窗口为我提供了一个列表框，该列表框根据传递的查询从数据库中填充。然后，我需要选择列表中的一个产品，并在关闭弹出窗口时，使用品牌（弹出列表中的列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，Property是Text。键入时，intellisense应在键入句点后自动完成对象和属性。

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

1 个答案: