Access VBA質問箱 IV

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

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


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

558 / 9994

←次へ　｜　前へ→


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

木葉 - 15/3/19(木) 10:02 -


	引用なし

	パスワード

ひとまず完成いたしましたのでコードを載せておきます

Private Sub cmdFilter_Click()

Dim strFilter As String

If Not IsNull(cmb取引先) Then
strFilter = " AND " & "取引先コード Like '" & cmb取引先.Value & "'"
　End If

If Not IsNull(txt発地都道府県) Then
strFilter = strFilter & " AND 発地都道府県 Like '*" & txt発地都道府県.Value & "*'"
End If

If Not IsNull(txt発地) Then
strFilter = strFilter & " AND 発地 Like '*" & txt発地.Value & "*'"
End If

If Not IsNull(txt着地都道府県) Then
strFilter = strFilter & " AND 着地都道府県 Like '*" & txt着地都道府県.Value & "*'"
End If

If Not IsNull(txt着地) Then
strFilter = strFilter & " AND 着地 Like '*" & txt着地.Value & "*'"
End If

If Not IsNull(txt開始日) Then
strFilter = strFilter & " AND 日付 >= #" & txt開始日.Value & "#"
End If

If Not IsNull(txt終了日) Then
strFilter = strFilter & " AND 日付 <= #" & txt終了日.Value & "#"
End If

　　Me.Filter = Mid(strFilter, 6)

　　　　Me.FilterOn = True

End Sub

いかがでしょうか？

動作は完全に私の希望していたものでした！

もしお時間ありましたら、不備や過不足などあればご指摘いただきたいと思います。

1,085 hits

▼

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