ACCESSでの抽出

質問

工事の進捗を管理するにあたってのことでの質問でございます。
まず工事受注（契約）をします。すると、契約時の着工と完工日というのが契約書に書かれます。よって、当初はこの契約書をもとに最終代金の回収日を把握致します。しかし、工事額が大きい現場に関しては、契約後に着工予定日、完工予定日（契約工期）が変更になるケースが度々ございます。よって、社内では、施主様と『着工面談』（着工前最終打合せ）を行った際に施主様と締結する『着工議事録』に記載された工期を最終的な工期として予定を把握することに致しております。

そこで、アクセスで下記のようなテーブルを２つ作りました。
(1)ＴＢ＿受注　　　　(2)ＴＢ＿正式工程
　・受注ＮＯ　　　　　・正式工程ＮＯ
　・契約日　　　　　　・受注ＮＯ
　・施主名　　　　　　・着工日
　・工事場所　　　　　・完工日
　・受注金額
　・着工予定日
　・完工予定日
受注時点では、ＴＢ＿受注の工程を採用しますが、工程が確定するとＴＢ＿正式工程の工期を採用するので、下記のようなクエリーをつくりました。（部分省略します）

　着工予定日　完工予定日　着工日　　　　　完工日
　ＴＢ＿受注　ＴＢ＿受注　ＴＢ＿正式工程　ＴＢ＿正式工程

　着工採用　　　　　完工採用
　追加フィールド(1)　追加フィールド(2)

　追加フィールド(1)には、
　IIF(ISNULL([着工日]),[着工予定日],[着工日])
追加フィールド(2)には、
　IIF(ISNULL([完工日]),[完工予定日],[完工日])
とし、クエリーを実行すると「着工採用」「完工採用」には自分が思い描くとおりの日付が表示してくれました。
　これをフォーム上でこんなことをしたいのです。
　上のクエリーをフォームの表で一覧にすることは可能でした。
　そのフォームから、○月の引渡、もしくは○月の着工だけを抽出して一覧にすることがいまいち上手くいかないのです。
　フォーム名を「工程管理」とし、・「着工自」・「着工至」・「引渡自」・「引渡至」というテキストボックスを用意し、そこに入力された日付の範囲をフォーム上で抽出したいのです。
　クエリーのフィールどに、抽出(1)と追加して、フォームの「着工自」から「着工至」の間の範囲の着工日付の現場を抽出するようにと下記のような式を入力しました。
抽出(1): IIf([forms]![工程管理]![着工自] Is Null,
True,[着工採用]>=[forms]![工程管理]![自])
And IIf([forms]![工程管理]![着工至] Is Null,
True,[着工採用]<=[forms]![工程管理]![着工至])
この抽出条件を「True」と入れました。
引渡も抽出(2)として同じようにするつもりだったのですが、この(1)の結果が思わしくないので後回しにしてます。
フォームの「着工自」、「着工至」テキストボックスのイベントで、更新後処理をイベントプロシージャーで、ME.REQUERYとして日付が入力されたら更新するようにもしたのです。
それなのに、フォームを開こうとするとパラメーターの入力ダイアログ”着工採用”がポップされ、ＯＫを押してフォームに出てくるデーターは、「着工自」、「着工至」に入力した範囲の工程ではなく全データーが表示されます。自分としては指定した期間の抽出が可能ではないかと思ったのですが、これはいったいどこをどう直したらよいのかアドバイスいただけませんでしょうか。よろしくお願い致します。

回答No.3

CHRONOS_0 · ベストアンサー

>パラメーターの入力ダイアログ”着工採用”がポップされ
これは[着工採用]というのはAccessにとっては不明なものだよと聞いてきているのです
フィールド名に間違いはありませんか?
前後に余計なスペースが付いていたりしていませんか

>抽出(1): IIf([forms]![工程管理]![着工自] Is Null,
>True,[着工採用]>=[forms]![工程管理]![自])
>And IIf([forms]![工程管理]![着工至] Is Null,
>True,[着工採用]<=[forms]![工程管理]![着工至])
間違いではありませんが
着工採用フィールドの抽出条件欄に

Between Nz([forms]![工程管理]![着工自],#1900/1/1#) and Nz([forms]![工程管理]![着工至],#2900/12/31#)
のほうが簡単ですよ

>　IIF(ISNULL([着工日]),[着工予定日],[着工日])
こっちも(1)ＴＢ＿受注から(2)ＴＢ＿正式工程に外部結合させ

Nz([着工日]),[着工予定日)
とするほうがすっきりしてるかな

回答No.2

deecyan

すみません　＃１のコードがまちがってます
下記に変更してください

Private Sub コマンド22_Click()
If IsNull(dfr) Then
　　If IsNull(dto) Then
　　　　DoCmd.ShowAllRecords
　　　　Exit Sub
　　Else
　　　　apf = "day3 < #" & cdt(dto) & "#"
　　End If
Else
　　If IsNull(dto) Then
　　　　apf = "day3 >= #" & Format(dfr, "YYYY/MM") & "/01#"
　　Else
　　　　apf = "day3 between #" & Format(dfr, "YYYY/MM") & "/01# and #" & cdt(dto) & "#"
　　End If
End If

DoCmd.ApplyFilter , apf
End Sub
Function cdt(dd1 As Date) As String
　　Dim tdt As Date
　　tdt = Format(Year(dd1) & "/" & Month(dd1) + 1 & "/01")
　　cdt = Format(tdt - 1, "yyyy/mm/dd")
　　MsgBox cdt
End Function

回答No.1

deecyan

フォームを開くときに　クエリーは実行されますので
パラメーターの入力ダイアログ”着工採用”が出ます　
ここに抽出する日をいれろ　って聞いてきたのに　何も入れなかったので
全部抽出された。ということです。

さて　どうするか　
ApplyFilter　を使って　抽出されたデータを　もう一度抽出すればいいのです

＞本文中の　上のクエリーをフォームの表で一覧にすることは可能でした。
まではＯＫですので　それ以降
こうしてください

「dfr」・「dto」・というテキストボックスを用意し、（それぞれ　着工自・着工至の意味）
プロパティで　yyyy/mm　とする　（○月の着工とゆうのは年がはいってないので　使い物になりません　年月でいれましょう）

ボタンを追加します（テキストボックスのイベントで、更新後処理でもいいけど　入れた後フォーカスが移らないと処理されないので
また　着工自・着工至　を入れると2回しょりがされるので）

ボタンのイベントプロシージャーで

If IsNull(dfr) Then
　　If IsNull(dto) Then
　　　　DoCmd.ShowAllRecords
　　　　Exit Sub
　　Else
　　　　apf = "day3 <= #" & Format(dto, "YYYY/MM") & "/31#"
　　End If
Else
　　If IsNull(dto) Then
　　　　apf = "day3 >= #" & Format(dfr, "YYYY/MM") & "/01#"
　　Else
　　　　apf = "day3 between #" & Format(dfr, "YYYY/MM") & "/01# and #" & Format(dto, "YYYY/MM") & "/31#"
　　End If
End If

DoCmd.ApplyFilter , apf

にする　
＃day3 は　着工採用に読み替えてください