Microsoft Access 掲示板
検索コンボボックスの選択肢追加 / 11
17
コメント
views
4
フォロー
11
【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
★残り問題点
①（空欄）が選択肢の一番下に表示されるのを一番上に持ってきたい
②選択肢の中に空のものがあるのを表示しないようにしたい。
通報 ...