1

テキスト列のみのテーブルがあります。さらに、コンボボックスのあるフォームがあります。ここで、コンボボックスにフォーカスを再クエリさせたいと思います。そこで、vba にメソッドを追加します。

Private Sub combobox1_GotFocus()
    With combobox1
        .RowSource = "SELECT text " + _
           "FROM tblExample " + _
           " ORDER BY text"

        .Requery
    End With

End Sub

コンボボックス1をクリックすると、ドロップダウンリストが開きません。もう一度クリックすると開きます。ここで何が問題なのですか？2 つの .-行をコメントに入れると、コンボボックスを 1 回クリックするだけで空のリストが表示されます。

注意: 問題を単純化しました。私は同じことをする別のフォーミュラを持っていますが、それはうまくいきます。誰かがこれを修正する方法を知っていることを願っています。

4

2 に答える 2

0

コンボ ボックスを再クエリすると、一時的にフォーカスが失われます。もう一度クリックすると、すでにフォーカスがあるため、OnFocusイベントは発生しません。ユーザーがコンボ ボックスをクリックする前に、コンボ ボックスを再クエリすることができます。

于 2013-03-01T12:50:50.670 に答える