MS Access 2010 VBA 组合框答案

【问题标题】：MS Access 2010 VBA ComboboxMS Access 2010 VBA 组合框
【发布时间】：2013-05-17 03:44:18
【问题描述】：

我是 MS Access 和 VBScript 编程领域的新手。

我有一个问题需要这里的帮助。

首先，我的 MS Access 数据库中有 2 个表。 1 是 Web，1 是所有者。关系是一对多（1 个网站可以有多个所有者）

我有一个由 3 个组合框组成的表单。 combobox1 用于 webURL combobox2 用于 ownername1 combobox3 用于 ownername2

那么，当我选择不同的 webURL（在组合框 1 中）时，如何使组合框 2 和组合框 3 分别显示所有者名称 1 和所有者名称 2。此外，此 combobox2 和 combobox3 下拉列表必须包含表 Owner 中的所有所有者名（这样我可以在单击按钮更新时将所有者名更改为该特定网站的其他人）

现在我只能将 webURL 数据填充到组合框 1 中。其余的我不知道该怎么做..

这里是示例数据：

网络表格

遵循格式

webID (PK)、webURL

1 Stackoverflow.com

2 Google.com

3 雅虎，com

所有者表

遵循格式

ownerID (PK)、ownerName、webID (FK)

1 法则 1

2 汉斯 1

3 肯特 2

4 霍华德 3

5 威廉 3

非常感谢您的帮助。

谢谢！

【问题讨论】：

如何确定哪个所有者是 ownername1，哪个是 ownername2？如果您向我们展示一组简短的示例数据，这可能会很清楚。
@HansUp 很抱歉，我无法在我的帖子上发布图片，因为我没有足够的声誉。我用一些简短的数据编辑了我的帖子，希望你能理解。谢谢！

标签： vba database ms-access combobox ms-access-2010

【解决方案1】：

尝试使用combobox.rowsource = 功能。这是一个简单的例子......

Private Sub Test_Combo1_Click()
'when a value is selected or clicked from combobox1 then'

Dim var As String

'take the ID'
var = Me.Test_Combo1.Column(0)
Debug.Print var

'and use SQL statement to grab the corresponding link'
Me.Test_Combo2.RowSource = "Select ID, Link from URL where ID = " & var

End Sub

【讨论】：

这是有效的，但 Test_Combo2 下拉列表仅显示与 var 有关系的 ID。我想要的是，Test_Combo2 在框中显示与 var 相关的 ID，然后当我单击下拉列表时，它将显示整个 ID 列表。谢谢！

【解决方案2】：

我想你想要这个：

Private Sub Test_Combo1_Click()
'when a value is selected or clicked from combobox1 then'

Dim var As String

'take the ID'
var = Me.Test_Combo1.Column(0)
Debug.Print var

'and use SQL statement to grab the corresponding link'
Me.Test_Combo2.RowSource = "Select ID, Link from URL 
Me.Text_Combo2.Value = var
End Sub

【讨论】：