2

我有一个包含三个组合框的表单（MS-Access 2003）。第 1（类别）、第 2（CatDetail）、第 3（NbrValue）。我从第一个更新事件后填充第二个没有问题。当我尝试为第 2 次运行类似的更新事件以更新第 3 次时，我的问题就出现了。这是我的代码。

表 1（类别）

CategoryID    Category Name
1             Vacation
2             DH

第一个组合框（类别）SQL

SELECT Category.CategoryID, Category.[Category Name]
FROM Category
ORDER BY Category.[Category Name];

更新第一个组合框的 VBA 后（类别）

Option Compare Database
Private Sub Category_AfterUpdate()
Me.CatDetail = Null
Me.CatDetail.Requery
Me.CatDetail = Me.CatDetail.ItemData(0)
End Sub

表 2 (CatDetail)

CatDetail ID    CatDetail         Category
1               Vac Day Used      Vacation
2               Partial Vac Day   Vacation
3               DH Gain           DH
4               DH Used           DH

第二个组合框 SQL (CatDetail)

SELECT CatDetail.[CatDetail ID], CatDetail.[CatDetail Name], CatDetail.CategoryID
FROM CatDetail
WHERE (((CatDetail.CategoryID)=[Forms]![Combo Form]![Category]));

为第二个组合框（CatDetail）更新 VBA 后

Private Sub CatDetail_AfterUpdate()
Me.NbrValue = Null
Me.NbrValue.Requery
Me.NbrValue = Me.NbrValue.ItemData(0)
End Sub

这部分效果很好。我迷失了下一组以更新第三个组合框。

表 3（数值）

ValueID     Value    CatDetail Name
1           -1       Vac Day Used
2           -0.5     Partial Vac Day
3           1        DH Gain
4           -1       DH Used

第三个组合框 (NbrValue) SQL

SELECT Value.ValueID, Value.Value, Value.[CatDetail Name]
FROM [Value]
WHERE (((Value.[CatDetail Name])=[Forms]![Combo Form]![CatDetail]));

总而言之，我可以选择我的第一个组合框值。选择之后，第二个组合框会更新所有相应的值。问题在于第二个组合框上的更新后事件，因为我的第三个组合框返回空白。

4

1 回答 1

1

我一直这样做。在 AfterUpdate() 中设置依赖组合框的行源。

Sub Combo1_AfterUpdate()

 comboBox2.RowSource = "SELECT .... WHERE FIELD = " & Combo1.Value

 comboBox3.RowSource = ""  ' Reset the third combo until after the 2nd is set.

End Sub
Sub Combo2_AfterUpdate()

 comboBox3.RowSource = "SELECT .... WHERE FIELD = " & Combo2.Value

End Sub

如果查询实际上正在返回某些内容，这将起作用。

于 2013-02-11T17:43:58.107 回答