|
【Win8/access2013】
こんにちは。初めてこちらで質問させていただきます。
宜しくお願いします。
アクセスの能力としては、ようやく基礎の操作を覚えたぐらいの小鹿レベルです。
お手数ですが、なるべく簡易な語彙で教えていただけると助かります。
取引先ごとの運賃を管理しております。
帳票型フォームにて複数条件での絞り込みができたらと考えております。
配置については以下の通りです。
○フォームヘッダー
検索する内容を入力するためのテキストボックス(複数)と、
その内容を検索するためのボタン(名前:cmdFilter、標題:検索)を設置しました。
検索用のテキストボックスは以下の7つです。
・cmb取引先(これはコンボボックスで取引先を選択できるようにしています)
・txt発地都道府県
・txt発地(市町村)
・txt着地都道府県
・txt着地(市町村)
・txt日付(開始)
・txt日付(終了)
※日付については、(開始)から(終了)までの間のものを抽出します。
※地名の部分4つはあいまい検索にしたいです。
※()内はテキストボックスの「名前」には含まれていません。
○詳細
ヘッダーと同じもの(「名前」はcmb、txtを省いたものにしています)に加え、
整列番号、取引先コード、重量、金額、備考の列があります。
手順としては、ヘッダーのテキストボックスに必要な条件を入力し、
検索ボタンを押すと詳細にて抽出が行われる、といった具合です。
未入力の場合は、その部分は無視した状態で抽出します。
そこで、まずはステップを踏んでいこうと思いまして、
1.発地都道府県だけのフィルター設定をする
2.日付のフィルターを設定する
3.一連の流れを作る
と考えていたのですが、1.から躓いてしまい…
お恥ずかしい限りですが、ご指導いただければと思います。
1.で試してみたコードは以下の通りですが、全く反応なしでした…
Private Sub cmdFilter_Click()
Dim strFilter As String
If Not IsNull(Me.txt発地都道府県) Then
strFilter = strFilter & " AND 発地都道府県 Like '*" & Me.txt発地都道府県 & "*'"
End If
End Sub
|
|