2

午後、

ComboBox のフォームが開いているときに ComboBox を更新するのに問題があります。

フォームが開いている間にデータが変更されるため、ComboBox を更新する必要がありますが、方法がわかりません。唯一の方法は、フォームを閉じてから再度開くことだと思われますが、実際にはわかりません

ComboBox の生のソースは、Simple Select クエリです。requery を使用してみましたが、何もしないようです。

Sub ComboBox_GotFocus()

Me.ComboBox.Requery

End Sub

何か案は？

乾杯、マイケル

4

1 に答える 1

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")

複数の行を追加するためにコンボボックスをループします。

于 2013-01-23T11:07:06.990 に答える