Microsoft Access 掲示板

Microsoft Access 掲示板

検索コンボボックスの選択肢追加 / 9

17 コメント
views
4 フォロー
9
cerophan 2020/08/07 (金) 21:59:18 0029a@1c915

修正しました！
しかし、まだ問題点が残っています。

①年月がなぜか選べなくなった。（選択すると表示されるレコードが０になる）
②（空欄）の選択肢を一番上に持ってくる方法がわからない。

【VBA】
Private Sub cbo年月_AfterUpdate()

    If Me.cbo年月 = "(空欄)" Then
        Me.Filter = ""
        Me.FilterOn = True
    Else
        Me.Filter = "年月=" & Me.cbo年月
        Me.FilterOn = True
    End If
End Sub

【値集合ソース】
SELECT DISTINCT "(空欄)" AS 年月
FROM T_案件
WHERE (((T_案件.年月) Is Null))
UNION SELECT DISTINCT 年月
FROM T_案件
ORDER BY 年月 DESC;

★下記のVBAにすると、きちんと絞り込み表示ができます。
Private Sub cbo年月_Click()
    DoCmd.SetFilter "", "[年月] Like [Forms]![F_案件]![cbo年月]", ""
End Sub

通報 ...
  • 11
    cerophan 2020/08/07 (金) 22:57:47 0029a@1c915 >> 9

    【VBA】すみません・・修正しました。

    Private Sub cbo年月_AfterUpdate()

        If Me.cbo年月 = "(空欄)" Then
            Me.Filter = "年月 Is Null"
            Me.FilterOn = True
        Else

            Me.Filter = "年月 ='" & Me!cbo年月 & "'"
            Me.FilterOn = True
        End If
    End Sub

    ★残り問題点
    ①（空欄）が選択肢の一番下に表示されるのを一番上に持ってきたい
    ②選択肢の中に空のものがあるのを表示しないようにしたい。