Microsoft Access 掲示板

Microsoft Access 掲示板

フォームの抽出結果のみをコンボボックスでさらに絞り込みたい / 1

37 コメント
views
4 フォロー
1
りんご 2021/06/24 (木) 10:58:45 c564b@0e907

例えば、あ行で絞り込めた時に、活用した選択クエリを、コンボボックスのコントロールソースに設定するのは、どうでしょうか？

通報 ...
  • 2
    お茶 2021/06/24 (木) 11:18:48 4af80@e7647 >> 1

    早速ありがとうございます!
    あ行で絞り込んでいるのは、埋め込みマクロ(条件式 =[苗字カナ] Like "[ア-オ]*")です。

    仮に、(やり方がよくわかっていませんが)クエリで絞り込んだ場合、あ行用のコンボボックス、か行用のコンボボックスと、それぞれに必要になるということでしょうか？

    3
    りんご 2021/06/24 (木) 11:31:45 c564b@0e907 >> 2

    えっとですね、最終的に、ひとつのコンボボックスで出来ると思うのですが、うーん。

  • 5
    りんご 2021/06/24 (木) 13:19:24 c564b@0e907 >> 1

    　テキストボックスを配置して、
    ・選択クエリの抽出条件に、Like［Forms]![フォーム1]![テキスト1] & “*”
    ・プロパティシートの変更時イベント

    Private Sub テキスト1_Change()
    Me.Requery
    Me.テキスト1.SetFocus

    If IsNull(Me.テキスト1) Then
        Me.テキスト1.SelStart = 0
    Else
        Me.テキスト1.SelStart = Len(Me.テキスト1)
    End If
End Sub

    　ボタンを配置して、
    ・マウスボタンクリック時イベント

    Private Sub ボタン1_MouseDown(ほにゃらら、自動入力されるので、省略)
　　　　　Me.テキスト1 = “[ア-オ]“
　　　　　Me.Requery
End Sub

    　コンボボックスを配置して、
    ・プロパティシートの値集合ソースに、絞り込むために活用した選択クエリを設定
    ・フォーカス取得時イベント

    Private Sub コンボ1_Enter()
        Me.コンボ1.Requery
End Sub