質問編集履歴

2

SQL、テーブルについて追記しています。

2021/04/21 08:17

投稿

ukana
ukana

スコア7

test CHANGED
File without changes
test CHANGED
@@ -164,7 +164,7 @@
164
164
 
165
165
  以下追記です。
166
166
 
167
- フィルター3のSQLです。
167
+ フィルター3のSQLです。
168
168
 
169
169
  ```
170
170
 
@@ -174,7 +174,7 @@
174
174
 
175
175
  ```
176
176
 
177
- フィルター1のSQLです。
177
+ フィルター1のSQLです。
178
178
 
179
179
  ```
180
180
 
@@ -190,4 +190,30 @@
190
190
 
191
191
 
192
192
 
193
+ テーブルについては以下です。
194
+
195
+ ・履歴テーブル(入力毎に増え最大200ほど)
196
+
197
+ ID:オートナンバー型
198
+
199
+ 日付:日付/時刻型
200
+
201
+ 区分、担当者、所属、種類:数値型(長整数型)
202
+
203
+ 規定量、測定量、総重量:数値型(倍精度浮動小数点型、小数点以下3桁)
204
+
205
+ 発注、BNo、NGNo:テキスト型(フィールドサイズ20)
206
+
207
+
208
+
209
+ ・充填量テーブル(規定でそこまで増えません。データ数1500ほど)
210
+
211
+ 規定量:数値型(単精度浮動小数点型、小数点以下3桁)
212
+
213
+ 発注:テキスト型(フィールドサイズ7)
214
+
215
+ 回収ID:数値型
216
+
217
+
218
+
193
219
  情報が足りていなければ申し訳ありません。追記します。

1

フィルター1、3のSQL追記しました。

2021/04/21 08:17

投稿

ukana
ukana

スコア7

test CHANGED
File without changes
test CHANGED
@@ -162,4 +162,32 @@
162
162
 
163
163
 
164
164
 
165
+ 以下追記です。
166
+
167
+ フィルター3のSQLです。
168
+
169
+ ```
170
+
171
+ SELECT DISTINCTROW [フィルター1].ID, CInt(DCount("[フィルター1].[ID]","フィルター3","[フィルター1].[ID]<=" & [フィルター1].[ID])) AS [No], [フィルター1].[BNo], [フィルター1].日付, [フィルター1].[NGNo], [フィルター1].発注, 充填量.規定量, [フィルター1].規定量 AS F1規定量, IIf([No]=1,0,[総重量]-(DLookUp("[総重量]","フィルター3","[No]=" & Nz([No]-1,1)))) AS 測定量, [フィルター1].測定量 AS F1測定量, [フィルター1].総重量, [フィルター1].[所属], [フィルター1].種類, [フィルター1].区分, [フィルター1].担当者
172
+
173
+ FROM フィルター1 LEFT JOIN 充填量 ON [フィルター1].発注 = 充填量.発注
174
+
175
+ ```
176
+
177
+ フィルター1のSQLです。
178
+
179
+ ```
180
+
181
+ SELECT 履歴.ID, Year([日付]) AS 移充填年, Month([日付]) AS 移充填月, 履歴.種類, 履歴.[所属], 履歴.[BNo], 履歴.日付, 履歴.区分, 履歴.[NGNo], 履歴.発注, 履歴.規定量, 履歴.測定量, 履歴.担当者, 履歴.総重量
182
+
183
+ FROM 担当者 INNER JOIN 履歴 ON 担当者.ID = 履歴.担当者
184
+
185
+ WHERE (((Year([日付]))=[Forms]![入力画面]![年選択]) AND ((Month([日付]))=[Forms]![入力画面]![月選択]) AND ((履歴.種類)=[Forms]![入力画面]![種類選択]) AND ((履歴.[所属])=[Forms]![入力画面]![所属選択]));
186
+
187
+
188
+
189
+ ```
190
+
191
+
192
+
165
193
  情報が足りていなければ申し訳ありません。追記します。