刷新/重新查询组合框问题

时间:2013-01-23 02:53:50

标签: vba ms-access access-vba ms-access-2003

下午,

我的ComboBox在其打开的表单处于打开状态时进行更新时遇到问题。

我的数据在表单打开时发生了变化,因此需要刷新ComboBox,但我无法弄清楚如何。似乎唯一的方法是关闭然后重新打开表单,但我不是真的

ComboBox的原始源是Simple Select查询。我尝试过使用requery,但它似乎没有做任何事情。

Sub ComboBox_GotFocus()

Me.ComboBox.Requery

End Sub

有什么想法吗?

干杯, 迈克尔

1 个答案:

答案 0 :(得分:4)

清空并重新填充组合框 最简单的是:

sSQL_Select = "SELECT * FROM SOMETABLE" 

Me.lstListBox.RowSource = "" 
Me.lstListBox.RowSource = sSQL_Select

您也可以显式地将值添加到列表框中,而不是使用SQL查询 在这里你可以做类似的事情:

Dim iList_Cnt As Integer
Dim iCnt As Integer

iList_Cnt = Me![lstListBox].ListCount

For iCnt = 0 To iList_Cnt - 1
    Me![lstListBox].RemoveItem 0
Next

然后重新填写列表框:

lstListbox.AddItem("Smtg_Col1;Smtg_Col2;Smtg_Col3")

循环组合框以添加多行。