MS Access：用VBA按钮选择组合框项目时，窗体中的组合框控制记录不显示

Question

我有一个表格：

所有文本框都连接到源表的位置。 顶部的组合框ConcreteItem控制当前在表单中显示的记录。 组合框可以正常工作，并且所有数据都可以正确显示，但是我还为组合框添加了“下一个项目”和“上一个项目”按钮。 我有此组合框代码：

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "ItemDescription = '" & Me.cbo_ConcreteItem.Value & "'"
If rs.NoMatch = True Then
    MsgBox "No such record"
Else
    Me.Bookmark = rs.Bookmark
End If
rs.Close

这很完美。 但是我有“ 下一项”按钮。

Dim idx As Long
    idx = cbo_ConcreteItem.ListIndex

If idx <> cbo_ConcreteItem.ListCount - 1 Then
    cbo_ConcreteItem.Value = cbo_ConcreteItem.ItemData(cbo_ConcreteItem.ListIndex + 1)
Else
    cbo_ConcreteItem.Value = cbo_ConcreteItem.ItemData(0)
End If

Me.Refresh`

不幸的是，当组合框转到下一个项目时，组合框显示正确的选择，但下方没有任何更改。 即使代码中有“刷新行”，也没有任何变化。 唯一的解决方案是实际从组合框本身进行选择。

有人可以告诉我问题是什么吗？

Answer 1

尝试在更改书签时手动触发组合框事件

设置书签后添加此行...

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "ItemDescription = '" & Me.cbo_ConcreteItem.Value & "'"
If rs.NoMatch = True Then
    MsgBox "No such record"
Else
    Me.Bookmark = rs.Bookmark
    cbo_ConcreteItem_Change
End If

rs.Close