Access VBA質問箱 IV

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

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


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

542 / 9994

←次へ　｜　前へ→


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

かるびの - 15/3/25(水) 0:54 -


	引用なし

	パスワード

>コードが実行される前にまずエラーメッセージが出るようです。

　エラーメッセージが出るとき、strFilterにはどんな文字列が格納されていますか。
　次の方法で確認してみてください。

　まず、「Me.Filter = Mid(strFilter, 6)」の直前の行に
　　　Debug.Print strFilter
というコードを挿入します。

　次に、ＶＢＥでイミディエイトウィンドウを開けます。
　具体的には、ＶＢＥのメニューの「表示(V)」→「イミディエイトウィンドウ(I)」
のコマンドを実行してください。

　その上で、cmdFilter_Clickのイベントプロシージャを実行してみてください。

　イミディエイトウィンドウに、「Debug.Print ××」のコードが実行された時点
におけるstrFilter変数に格納された値が表示されます。

　strFilter中の日付に関する条件式は、
　　　日付 >= #2015/3/24# 　
のようになっていなければいけないのですが、
「2015年3月24日」などとなっていたり、「2015/03」（日にちなし）となっていたりしませんか。

>書式を日付にしているからでしょうか・・？
　strFilter変数は、テキストボックスのValueプロパティ値を基に生成しているところ、
書式をどのように設定しても、テキストボックスのValueプロパティ値には影響しませんから、
書式設定は関係ないと思います。

>そもそも間違った日付を入力できないように、
>入力規則などを設定したほうがいいでしょうか？
　入力規則でもいいでしょう。
　
　ちなみ、私は、入力規則はあまり好きではないです。
　入力規則だと、細かな設定がやりにくいからです。

　私なら、
Private Sub txt開始日_BeforeUpdate(Cancel As Integer)
　　If IsDate(Nz(txt開始日.Value,"")) = False Then
　　　　Msgbox "おかしな日付です。"
　　　　Cancel = True
　　End
End Sub
とします。
　12755のレスでは、cmdFilter_Clickイベントでメッセージを出すコードを紹介したところですが、
入力チェックをするなら、BeforeUpdateで行うのが常道です。

1,317 hits

▼

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