ACCESS フォーム 別テーブルの情報で判定する
こんにちは。
ACCESS2007でフォームを作成しました。
抽出した結果に対し、別テーブルの情報をもとに判定を行いたいと思っていますが、
どなたか、教えてください・・・。
T-注文に、商品コード、仮受付日、注文NO、数量、県
の項目があり、これをフォームにしています。
フォームは注文番号を入力し、注文内容を表示(あいまい検索)できるようにしています。
‐-------------------------------------------
注文番号 |○○○|
---------------------------------------------
商品コード|仮受付日|注文NO|数量|県|
200|20010/8/10|○○○|3|東京|
201|20010/8/12|○○○|4|東京|
203|20010/8/10|○○○|8|東京|
204|20010/8/13|○○○|8|東京|
205|20010/8/13|○○○|5|東京|
206|20010/8/13|○○○|10|東京|
---------------------------------------------
Private Sub SC01_AfterUpdate()
Dim L1 As String
If Nz(注文NO, "") <> "" Then
L1 = L1 & " AND [注文番号] Like" & "'*" & Me.注文NO & "*'"
End If
If L1 <> "" Then
Me.Filter = Mid(L1, 6)
Me.FilterOn = True
Else
Me.Filter = ""
Me.FilterOn = False
End If
End Sub
このフォームに判定という項目を追加し、
注文番号で検索した結果の一行ごとに、
"◎"、"○"、"M△"、"M×"、"△"、"×"、"受付済み"の判定を
下記の確保テーブルを参照して行いたいのですが、どのようにすればよいか
教えていただけないでしょうか?
評価基準は:
◎=商品名コードが一致し、確保日と仮受付日が一致、県が一致、受付済みがNO、確保数と数量が一致する場合。
○=商品名コードが一致し、受付済みがNO、県が一致、確保日が仮受付日より小さい、この条件を満たす確保数(合計)が数量より大きい場合。
△=商品名コードが一致し、受付済みがNO、県が一致、確保日が仮受付日より小さい、この条件を満たす確保数(合計)1以上だが、数量には満たない場合。
M○=商品名コードが一致し、受付済みがNO、県が一致、確保日の月=<仮受付日の月、この条件を満たす確保数(合計)が数量より大きい場合。
M△=商品名コードが一致し、受付済みがNO、県が一致、確保日の月=<仮受付日の月、この条件を満たす確保数(合計)1以上だが、数量には満たない場合。
×=商品名コードが一致し、受付済みがNO、県が一致、確保日の月=<仮受付日の月、この条件を満たす確保数(合計)が0、
あるいは、商品名コードが一致し、受付済みがNO、県が一致、確保日の月=<仮受付日の月、この条件のレコードが存在しない場合。
"受付済み"=注文番号と注文N0が一致し、受付済みがYESのレコードがある場合。
-------------------------------------------
テーブル名:確保
フィールド
商品コード|受付済み|確保日|確保数|注文N0|県|
200|N|20010/8/10|3|○○○|東京
201|N|20010/5/12|5|○○○|東京
203|N|20010/5/20|3|○○○|東京
203|N|20010/5/20|4|○○○|東京
203|N|20010/5/20|4|○○○|埼玉
204|N|20010/8/15|8|○○○|東京
205|N|20010/8/20|6|○○○|東京
206|N|20010/9/20|1|○○○|東京
206|N|20010/5/20|1|○○○|東京
206|N|20010/8/28|8|○○○|東京
206|N|20010/8/28|8|○○○|埼玉
-------------------------------------------
注文番号 |○○○|
---------------------------------------------
商品コード|仮受付日|注文NO|数量|県|判定
200|20010/8/10|○○○|3|東京|◎
201|20010/8/12|○○○|4|東京|○
203|20010/8/10|○○○|8|東京|△
204|20010/8/13|○○○|8|東京|×
205|20010/8/13|○○○|5|東京|M○
206|20010/8/13|○○○|10|東京|M△
---------------------------------------------