ACCESSの日付入力について

質問

私は建設会社に勤務していますが、ACCESSのことで困っています。

現在ACCESS2000を使用していますが、どの現場監督がどの工事をしたかをデータベースにしようとしています。その途中、フォームの中のフォームヘッダー欄で現場監督をコンボ入力したら、詳細欄に担当した工事が一覧で表示できるようにはなりましたが、更に日付（工事期間）を入力したら、期間内の工事が出るように設定にしたいのですが、うまくいきません。
現在の設定状況としては、フォームヘッダーのコンボボックス「form監督検索」で指定すると、選択クエリ「qu_監督検索クエリ」からデータがくるようになっていますが、「工期自」と「工期至」を入力すると、その期間内の工事を拾うようにして、もし未入力の場合だったら、全ての工事、「工事自」だけ未入力だったら最初から「工事至」まで、「工事至」だけ未入力の場合は「工事自」から現在までとしたいのです。

複雑な内容で大変申し訳ありませんがよろしくお願いします。

回答No.1

Gin_F

フィルタ機能を使った方が簡単だと思います。

コンボボックス（現場監督）・テキストボックス×２・コマンドボタンを
配置して、コマンドボタンのクリック時イベントで以下のようなコードを
記述すれば大丈夫だと思います。

Dim strWhere As String

If IsNull(Me!現場監督) Then
　　strWhere = "[現場監督]='" & Me![現場監督] & "' And "
End If

If IsNull(Me!工事自) Then
　　strWhere = strWhere & "[工事自]>=#" & Me![工事自] & "# And "
End If

If IsNull(Me!工事至) Then
　　strWhere = strWhere & "[工事至]<=#" & Me![工事至] & "# And "
End If

If Len(strWhere) > 0 Then
　　Me.Filter = Left(strWhere, Len(strWhere) - 4
　　Me.FilterOn = True
Else
　　MsgBox "抽出条件を入力してください。"
End If

お礼

早速の回答ありがとうございます。早速参考にさせていただきます。
あつかましいとは思いますが、もう一つお伺いしたいのですが、「工事自」や「工事至」を選択クエリの抽出条件では出来るのでしょうか。よろしくお願いします。