Microsoft Access 掲示板

Microsoft Access 掲示板

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

17 コメント
views
4 フォロー
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

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

通報 ...