タイトル | : 表形式フォームでのフィルターについて |
記事No | : 83297 |
投稿日 | : 2018/04/04(Wed) 12:55 |
投稿者 | : stal |
OS: WINDOWS10 Access Version: ACCESS 2010
毎度お世話になっております。 たびたび申し訳ありませんが質問させてください。
表形式フォームで以下の実装を行っております。
@ 表形式フォームのフォームヘッダーにテキストボックスを配置 A @に同じくフォームヘッダーに「SEARCH」というボタンを配置 B 「SEARCH」ボタンをクリックするとテキストボックスに入力された値をもとに表に表示されているレコードがフィルターで絞り込みが行われる。
実装したコードは以下の通り
Private Sub SEARCH_Click()
Dim sFilter As String
sFilter = ""
If IsNull(Me.SH_BOX.Value) = False Then
sFilter = sFilter & " SHIPPER LIKE '*" & Me.SH_BOX.Value & "*' and"
End If
If sFilter = "" Then
MsgBox "検索条件を入力してください" Me.SH_BOX.SetFocus Exit Sub
End If
sFilter = Left(sFilter, Len(sFilter) - 3)
Me.Filter = sFilter Me.FilterOn = True
End Sub
問題が上記で実装するとレコードに登録されている純粋なテキストはフィルターがかかるのですが カレンダー型のDATEやルックアップで別テーブルから参照しているテキストはフィルターがかからない状況です。
どうしてフィルタリングされないのかさっぱりわからずお知恵を拝借できれば幸いです。
何卒宜しくお願い致します。
|