Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

574 / 9994

←次へ　｜　前へ→


	【12730】Re:複数条件での抽出

かるびの - 15/3/14(土) 0:46 -


	引用なし

	パスワード

　本題ではありませんが、疑問点を。
>>・txt日付（開始）
>>・txt日付（終了）

>>※（）内はテキストボックスの「名前」には含まれていません。

　開始の日付を入力するテキストボックスの名前
及び終了の日付を入力するテキストボックスの名前はそれぞれ何なのでしょうか。
　上記の説明からすると、どちらも「txt日付」となってしまいますが、
コントロールに同じ名前が付けられるのは許容されないはずです。

　さて、本題です。
>>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

　反応がないのは、当たり前です。　
　Filterプロパティには何も値が設定されていないからです。
　「Me.Filter = ××」というコードを追加してください。　　

>Me.FilterOn = True
>
>の文を追加したらフィルター自体はかかりましたが、
>何も抽出されませんでした…

　これも当然の結果です。
　Filterプロパティには何も値が設定されていないからです。

　ところで、
>>　　If Not IsNull(Me.txt発地都道府県) Then
>>　　　　strFilter = strFilter & " AND 発地都道府県 Like '*" & Me.txt発地都道府県 & "*'"
>>　　End If
　このstrFilterをそのままFilterプロパティに代入しても、エラーになりますよ。
　「 AND 」が余計です。
　複数条件を積み重ねていく場合は、この「 AND 」は不可欠なのですが、
先頭の「 AND 」は取り除く必要があります。
　その方法は考えてありますか。

743 hits

▼

【12728】複数条件での抽出 木葉 15/3/13(金) 15:40