質問編集履歴

2

誤字、文章の訂正

2020/07/28 13:46

投稿

oftn
oftn

スコア19

test CHANGED
File without changes
test CHANGED
@@ -4,6 +4,10 @@
4
4
 
5
5
  調べたところSQL文のエラーのようなので、エラーになりそうな箇所を記載します。
6
6
 
7
+ 以下の処理のうち、②までは処理でき、③の処理のところになると、標記のエラーが出てしまいます。
8
+
9
+ お恥ずかしながら、DBもVBAも調べながら書いているため、エラーの解決方法も調べてもうまくわからず…。
10
+
7
11
  修正のためお力を貸してください。
8
12
 
9
13
 
@@ -56,9 +60,11 @@
56
60
 
57
61
  End If
58
62
 
59
-
60
-
63
+
64
+
65
+
66
+
61
- '希望者免除者一覧シート データ貼り付け
67
+ '希望者免除者一覧シート データ貼り付け
62
68
 
63
69
  SQL_str = "SELECT qry_DATA1K.所属部, qry_DATA1K.上長名, qry_DATA1K.所属, qry_DATA1K.社員番号, qry_DATA1K.氏名, qry_DATA1K.[ヒアリング必須者], qry_DATA1K.希望者 "
64
70
 
@@ -100,128 +106,6 @@
100
106
 
101
107
 
102
108
 
103
-
104
-
105
- '進行管理表シート システムから貼り付けシートデータ更新
106
-
107
- SQL_str = "UPDATE tbl_DATA1 INNER JOIN tbl_DATA4 ON tbl_DATA1.社員番号 = tbl_DATA4.社員番号 SET tbl_DATA1.[チェックシート] = [tbl_DATA4]![チェックシート], tbl_DATA1.[問診票] = [tbl_DATA4]![問診票];"
108
-
109
- db_Con.Execute SQL_str
110
-
111
-
112
-
113
-
114
-
115
- '進行管理表シート データ貼り付け
116
-
117
- SQL_str = "SELECT tbl_DATA1.[チェックシート], tbl_DATA1.[問診票] "
118
-
119
- SQL_str = SQL_str & "FROM tbl_DATA1 "
120
-
121
- SQL_str = SQL_str & "ORDER BY tbl_DATA1.ROW "
122
-
123
- db_rst.Open SQL_str, db_Con, 1, 2
124
-
125
- With WS1
126
-
127
- .Range("J2").CopyFromRecordset db_rst
128
-
129
- End With
130
-
131
- db_rst.Close
132
-
133
-
134
-
135
-
136
-
137
- '未入力者(対象者)シート データ貼り付け
138
-
139
- SQL_str = "SELECT qry_DATA1M.所属部, qry_DATA1M.上長名, qry_DATA1M.所属, qry_DATA1M.社員番号, qry_DATA1M.氏名, qry_DATA1M.[問診票] "
140
-
141
- SQL_str = SQL_str & "FROM qry_DATA1M "
142
-
143
- SQL_str = SQL_str & "ORDER BY qry_DATA1M.ROW "
144
-
145
- db_rst.Open SQL_str, db_Con, 1, 2
146
-
147
- With WS2
148
-
149
- .Range("B2").CopyFromRecordset db_rst
150
-
151
- db_rst.Close
152
-
153
- MaxRow = .Cells(.Rows.Count, 5).End(xlUp).Row
154
-
155
- If MaxRow >= 2 Then
156
-
157
- .Range("A2") = 1
158
-
159
- .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Formula = .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Value
160
-
161
- End If
162
-
163
- If MaxRow >= 3 Then
164
-
165
- .Range("A3") = 2
166
-
167
- End If
168
-
169
- If MaxRow >= 4 Then
170
-
171
- .Range("A2:A3").AutoFill Destination:=.Range(.Cells(2, 1), .Cells(MaxRow, 1)), Type:=xlFillDefault
172
-
173
- End If
174
-
175
- End With
176
-
177
-
178
-
179
-
180
-
181
-
182
-
183
- '希望者免除者一覧シート データ貼り付け
184
-
185
- SQL_str = "SELECT qry_DATA1K.所属部, qry_DATA1K.上長名, qry_DATA1K.所属, qry_DATA1K.社員番号, qry_DATA1K.氏名, qry_DATA1K.[ヒアリング必須者], qry_DATA1K.希望者 "
186
-
187
- SQL_str = SQL_str & "FROM qry_DATA1K "
188
-
189
- SQL_str = SQL_str & "ORDER BY qry_DATA1K.ROW "
190
-
191
- db_rst.Open SQL_str, db_Con, 1, 2
192
-
193
- With WS3
194
-
195
- .Range("B2").CopyFromRecordset db_rst
196
-
197
- db_rst.Close
198
-
199
- MaxRow = .Cells(.Rows.Count, 5).End(xlUp).Row
200
-
201
- If MaxRow >= 2 Then
202
-
203
- .Range("A2") = 1
204
-
205
- .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Formula = .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Value
206
-
207
- End If
208
-
209
- If MaxRow >= 3 Then
210
-
211
- .Range("A3") = 2
212
-
213
- End If
214
-
215
- If MaxRow >= 4 Then
216
-
217
- .Range("A2:A3").AutoFill Destination:=.Range(.Cells(2, 1), .Cells(MaxRow, 1)), Type:=xlFillDefault
218
-
219
- End If
220
-
221
- End With
222
-
223
-
224
-
225
109
  SQL_str = "SELECT * FROM tbl_DATA5"
226
110
 
227
111
  db_rst.Open SQL_str, db_Con, 2, 2

1

コードの修正をしました。

2020/07/28 13:46

投稿

oftn
oftn

スコア19

test CHANGED
File without changes
test CHANGED
@@ -2,7 +2,9 @@
2
2
 
3
3
  エラー「一つ以上の比すようなパラメータが設定されていません」と出てしまいます。
4
4
 
5
- 調べたところSQL文のエラーのようなのですが修正のためお力てください
5
+ 調べたところSQL文のエラーのようなので、エラーになりそうな箇所記載ます
6
+
7
+ 修正のためお力を貸してください。
6
8
 
7
9
 
8
10
 
@@ -36,191 +38,141 @@
36
38
 
37
39
 
38
40
 
41
+ 'DATA.accdb初期化(基本毎回作成)
42
+
39
- Option Explicit
43
+ FOLDER_NAME = ThisWorkbook.Path
40
-
41
-
42
-
43
- Sub FolderGet()
44
+
44
-
45
-
46
-
47
- With Application.FileDialog(msoFileDialogFolderPicker)
45
+ Target = FOLDER_NAME & "\" & PCST_DB
48
-
49
-
50
-
51
- .Title = "例月処理フォルダを選択"
46
+
52
-
53
-
54
-
55
- .InitialFileName = "フォルダパス"
47
+ If Dir(Target) <> "" Then
56
-
57
-
58
-
48
+
59
- If .Show = True Then
49
+ Kill Target
60
-
61
-
62
-
63
- ThisWorkbook.ActiveSheet.Range("G5") = .SelectedItems(1)
50
+
64
-
65
-
66
-
67
- End If
51
+ End If
52
+
68
-
53
+ If Dir(Target) = "" Then
54
+
69
-
55
+ Call fc_CreateDatabase
56
+
57
+ End If
58
+
59
+
60
+
61
+ '希望者免除者一覧シート データ貼り付け
62
+
63
+ SQL_str = "SELECT qry_DATA1K.所属部, qry_DATA1K.上長名, qry_DATA1K.所属, qry_DATA1K.社員番号, qry_DATA1K.氏名, qry_DATA1K.[ヒアリング必須者], qry_DATA1K.希望者 "
64
+
65
+ SQL_str = SQL_str & "FROM qry_DATA1K "
66
+
67
+ SQL_str = SQL_str & "ORDER BY qry_DATA1K.ROW "
68
+
69
+ db_rst.Open SQL_str, db_Con, 1, 2
70
+
71
+ With WS3
72
+
73
+ .Range("B2").CopyFromRecordset db_rst
74
+
75
+ db_rst.Close
76
+
77
+ MaxRow = .Cells(.Rows.Count, 5).End(xlUp).Row
78
+
79
+ If MaxRow >= 2 Then
80
+
81
+ .Range("A2") = 1
82
+
83
+ .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Formula = .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Value
84
+
85
+ End If
86
+
87
+ If MaxRow >= 3 Then
88
+
89
+ .Range("A3") = 2
90
+
91
+ End If
92
+
93
+ If MaxRow >= 4 Then
94
+
95
+ .Range("A2:A3").AutoFill Destination:=.Range(.Cells(2, 1), .Cells(MaxRow, 1)), Type:=xlFillDefault
96
+
97
+ End If
70
98
 
71
99
  End With
72
100
 
73
101
 
74
102
 
103
+
104
+
75
- End Sub
105
+ '進行管理表シート システムから貼り付けシートデータ更新
106
+
76
-
107
+ SQL_str = "UPDATE tbl_DATA1 INNER JOIN tbl_DATA4 ON tbl_DATA1.社員番号 = tbl_DATA4.社員番号 SET tbl_DATA1.[チェックシート] = [tbl_DATA4]![チェックシート], tbl_DATA1.[問診票] = [tbl_DATA4]![問診票];"
77
-
78
-
108
+
79
- Sub FileGet()
109
+ db_Con.Execute SQL_str
80
-
81
-
82
-
83
- With Application.FileDialog(msoFileDialogOpen)
110
+
84
-
85
-
86
-
111
+
112
+
113
+
114
+
87
- .Title = "進行管理表ファイルを選択"
115
+ '進行管理表シート データ貼り付け
88
-
89
-
90
-
116
+
91
- .Filters.Clear
117
+ SQL_str = "SELECT tbl_DATA1.[チェックシート], tbl_DATA1.[問診票] "
92
-
93
-
94
-
118
+
95
- .Filters.Add "Excelファイル", "*.xlsx"
119
+ SQL_str = SQL_str & "FROM tbl_DATA1 "
96
-
97
-
98
-
99
- .Filters.Add "Excelマクロ有効", "*.xlsm"
120
+
100
-
101
-
102
-
103
- .Filters.Add "Excel2003", "*.xls"
121
+ SQL_str = SQL_str & "ORDER BY tbl_DATA1.ROW "
104
-
105
-
106
-
122
+
107
- .InitialFileName = "ファイルパス"
123
+ db_rst.Open SQL_str, db_Con, 1, 2
108
-
109
-
110
-
111
- .AllowMultiSelect = False
124
+
112
-
113
-
114
-
115
- If .Show = True Then
125
+ With WS1
116
-
117
-
118
-
126
+
119
- ThisWorkbook.ActiveSheet.Range("G7") = .SelectedItems(1)
127
+ .Range("J2").CopyFromRecordset db_rst
120
-
121
-
122
-
123
- End If
124
-
125
-
126
128
 
127
129
  End With
128
130
 
129
-
130
-
131
- End Sub
132
-
133
-
134
-
135
- Sub Posting()
136
-
137
-
138
-
139
- On Error GoTo Err_Posting
140
-
141
-
142
-
143
- Dim SQL_str As String
144
-
145
-
146
-
147
- Dim db_Con As Object
148
-
149
-
150
-
151
- Dim db_rst As Object
131
+ db_rst.Close
152
-
153
-
154
-
155
- Dim db_rst2 As Object
156
-
157
-
158
-
159
- Set db_Con = CreateObject("ADODB.Connection")
160
-
161
-
162
-
163
- Set db_rst = CreateObject("ADODB.Recordset")
164
-
165
-
166
-
167
- Set db_rst2 = CreateObject("ADODB.Recordset")
168
-
169
-
170
-
171
- Dim Target As String
172
-
173
-
174
-
175
- Dim FOLDER_NAME As String
176
132
 
177
133
 
178
134
 
179
135
 
180
136
 
181
-
182
-
183
- Dim WB As Workbook
137
+ '未入力者(対象者)シート データ貼り付け
138
+
184
-
139
+ SQL_str = "SELECT qry_DATA1M.所属部, qry_DATA1M.上長名, qry_DATA1M.所属, qry_DATA1M.社員番号, qry_DATA1M.氏名, qry_DATA1M.[問診票] "
140
+
185
-
141
+ SQL_str = SQL_str & "FROM qry_DATA1M "
142
+
186
-
143
+ SQL_str = SQL_str & "ORDER BY qry_DATA1M.ROW "
144
+
187
- Dim PWB02 As Workbook
145
+ db_rst.Open SQL_str, db_Con, 1, 2
188
-
189
-
190
-
146
+
191
- Dim PWB03 As Workbook
147
+ With WS2
148
+
192
-
149
+ .Range("B2").CopyFromRecordset db_rst
193
-
194
-
150
+
195
- Dim WS1 As Worksheet
151
+ db_rst.Close
196
-
197
-
198
-
152
+
199
- Dim WS2 As Worksheet
153
+ MaxRow = .Cells(.Rows.Count, 5).End(xlUp).Row
200
-
201
-
202
-
203
- Dim WS3 As Worksheet
154
+
204
-
205
-
206
-
207
- Dim WS4 As Worksheet
208
-
209
-
210
-
211
- Dim WS5 As Worksheet
212
-
213
-
214
-
215
- Dim PWS02 As Worksheet
155
+ If MaxRow >= 2 Then
156
+
216
-
157
+ .Range("A2") = 1
158
+
217
-
159
+ .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Formula = .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Value
160
+
218
-
161
+ End If
162
+
219
- Dim PWS03 As Worksheet
163
+ If MaxRow >= 3 Then
164
+
220
-
165
+ .Range("A3") = 2
166
+
221
-
167
+ End If
222
-
168
+
223
- Dim AWS As Worksheet
169
+ If MaxRow >= 4 Then
170
+
171
+ .Range("A2:A3").AutoFill Destination:=.Range(.Cells(2, 1), .Cells(MaxRow, 1)), Type:=xlFillDefault
172
+
173
+ End If
174
+
175
+ End With
224
176
 
225
177
 
226
178
 
@@ -228,364 +180,140 @@
228
180
 
229
181
 
230
182
 
231
- Dim NenGou As String
232
-
233
-
234
-
235
- Dim FolderName As String
236
-
237
-
238
-
239
- Dim FileName As String
240
-
241
-
242
-
243
- Const FileName02 As String = "02必須者.xlsx"
244
-
245
-
246
-
247
- Const FileName03 As String = "03希望者.xlsx"
248
-
249
-
250
-
251
- Dim SetFilePath1 As String
252
-
253
-
254
-
255
- Dim SetFilePath2 As String
256
-
257
-
258
-
259
- Dim Check(5) As Boolean
260
-
261
-
262
-
263
- Dim i As Long
264
-
265
-
266
-
267
- Dim CheckStr As String
268
-
269
-
270
-
271
- Dim MaxRow As Long
272
-
273
-
274
-
275
- Dim RowPos As Long
276
-
277
-
278
-
279
- Dim TukiName As String
280
-
281
-
282
-
283
-
284
-
285
-
286
-
287
- Application.ScreenUpdating = False
288
-
289
-
290
-
291
- Application.EnableEvents = False
292
-
293
-
294
-
295
- Application.Calculation = xlCalculationManual
296
-
297
-
298
-
299
- Set AWS = ThisWorkbook.ActiveSheet
300
-
301
-
302
-
303
- With AWS
304
-
305
-
306
-
307
- NenGou = .Range("G3").Value
308
-
309
-
310
-
311
- FolderName = .Range("G5").Value
312
-
313
-
314
-
315
- FileName = .Range("G7").Value
316
-
317
-
183
+ '希望者免除者一覧シート データ貼り付け
184
+
185
+ SQL_str = "SELECT qry_DATA1K.所属部, qry_DATA1K.上長名, qry_DATA1K.所属, qry_DATA1K.社員番号, qry_DATA1K.氏名, qry_DATA1K.[ヒアリング必須者], qry_DATA1K.希望者 "
186
+
187
+ SQL_str = SQL_str & "FROM qry_DATA1K "
188
+
189
+ SQL_str = SQL_str & "ORDER BY qry_DATA1K.ROW "
190
+
191
+ db_rst.Open SQL_str, db_Con, 1, 2
192
+
193
+ With WS3
194
+
195
+ .Range("B2").CopyFromRecordset db_rst
196
+
197
+ db_rst.Close
198
+
199
+ MaxRow = .Cells(.Rows.Count, 5).End(xlUp).Row
200
+
201
+ If MaxRow >= 2 Then
202
+
203
+ .Range("A2") = 1
204
+
205
+ .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Formula = .Range(.Cells(2, 5), .Cells(MaxRow, 5)).Value
206
+
207
+ End If
208
+
209
+ If MaxRow >= 3 Then
210
+
211
+ .Range("A3") = 2
212
+
213
+ End If
214
+
215
+ If MaxRow >= 4 Then
216
+
217
+ .Range("A2:A3").AutoFill Destination:=.Range(.Cells(2, 1), .Cells(MaxRow, 1)), Type:=xlFillDefault
218
+
219
+ End If
318
220
 
319
221
  End With
320
222
 
321
223
 
322
224
 
323
- Set AWS = Nothing
324
-
325
-
326
-
327
-
328
-
329
-
330
-
331
- If Len(NenGou) = 0 Then
332
-
333
-
334
-
335
- MsgBox "年号を入力して下さい。", vbCritical, "確認"
336
-
337
-
338
-
339
- GoTo Exit_Posting
340
-
341
-
342
-
343
- End If
344
-
345
-
346
-
347
- If Len(FolderName) = 0 Then
348
-
349
-
350
-
351
- MsgBox "例月処理フォルダを選択して下さい。", vbCritical, "確認"
352
-
353
-
354
-
355
- GoTo Exit_Posting
356
-
357
-
358
-
359
- End If
360
-
361
-
362
-
363
- If Dir(FolderName, vbDirectory) = "" Then
364
-
365
-
366
-
367
- MsgBox "例月処理フォルダが存在しません。", vbCritical, "確認"
368
-
369
-
370
-
371
- GoTo Exit_Posting
372
-
373
-
374
-
375
- End If
376
-
377
-
378
-
379
- If Len(FileName) = 0 Then
380
-
381
-
382
-
383
- MsgBox "進行管理表ファイルを選択して下さい。", vbCritical, "確認"
384
-
385
-
386
-
387
- GoTo Exit_Posting
388
-
389
-
390
-
391
- End If
392
-
393
-
394
-
395
- If Dir(FileName) = "" Then
396
-
397
-
398
-
399
- MsgBox "進行管理表ファイルが存在しません。", vbCritical, "確認"
400
-
401
-
402
-
403
- GoTo Exit_Posting
404
-
405
-
406
-
407
- End If
408
-
409
-
410
-
411
- Set WB = Workbooks.Open(FileName:=FileName, UpdateLinks:=False)
412
-
413
-
414
-
415
- Call LOOPOPEN(FileName)
416
-
417
-
418
-
419
-
420
-
421
-
422
-
423
- For i = 0 To 5
424
-
425
-
426
-
427
- Check(i) = False
428
-
429
-
430
-
431
- Next i
432
-
433
-
434
-
435
-
436
-
437
-
438
-
439
- For i = 1 To WB.Sheets.Count
440
-
441
-
442
-
443
- Select Case WB.Sheets(i).Name
444
-
445
-
446
-
447
- Case WSName1
448
-
449
-
450
-
451
- Check(1) = True
452
-
453
-
454
-
455
- Case WSName2
456
-
457
-
458
-
459
- Check(2) = True
460
-
461
-
462
-
463
- Case WSName3
464
-
465
-
466
-
467
- Check(3) = True
468
-
469
-
470
-
471
- Case WSName4
472
-
473
-
474
-
475
- Check(4) = True
476
-
477
-
478
-
479
- Case WSName5
480
-
481
-
482
-
483
- Check(5) = True
484
-
485
-
486
-
487
- End Select
488
-
489
-
490
-
491
- Next i
492
-
493
-
494
-
495
-
496
-
497
-
498
-
499
- For i = 1 To 5
500
-
501
-
502
-
503
- If Check(i) = False Then
504
-
505
-
506
-
507
- If Len(CheckStr) > 0 Then
508
-
509
-
510
-
511
- CheckStr = CheckStr & "・"
512
-
513
-
514
-
515
- End If
516
-
517
-
518
-
519
- Select Case i
520
-
521
-
522
-
523
- Case 1
524
-
525
-
526
-
527
- CheckStr = CheckStr & WSName1
528
-
529
-
530
-
531
- Case 2
532
-
533
-
534
-
535
- CheckStr = CheckStr & WSName2
536
-
537
-
538
-
539
- Case 3
540
-
541
-
542
-
543
- CheckStr = CheckStr & WSName3
544
-
545
-
546
-
547
- Case 4
548
-
549
-
550
-
551
- CheckStr = CheckStr & WSName4
552
-
553
-
554
-
555
- Case 5
556
-
557
-
558
-
559
- CheckStr = CheckStr & WSName5
560
-
561
-
562
-
563
- End Select
564
-
565
-
566
-
567
- Check(0) = True
568
-
569
-
570
-
571
- End If
572
-
573
-
574
-
575
- Next i
576
-
577
-
578
-
579
- If Check(0) = True Then
580
-
581
-
582
-
583
- MsgBox CheckStr & vbCrLf & "のシートが存在しません。", vbCritical, "確認"
584
-
585
-
586
-
587
- GoTo Exit_Posting
588
-
589
-
590
-
591
- End If
225
+ SQL_str = "SELECT * FROM tbl_DATA5"
226
+
227
+ db_rst.Open SQL_str, db_Con, 2, 2
228
+
229
+ '所属一覧シート データ取得
230
+
231
+ With WS5
232
+
233
+ MaxRow = .Cells(.Rows.Count, 4).End(xlUp).Row
234
+
235
+
236
+
237
+
238
+
239
+ '02必須者.xlsxファイル最初のシート データ更新
240
+
241
+ SQL_str = "UPDATE tbl_DATAP02 INNER JOIN qry_DATA1M ON tbl_DATAP02.社員番号 = qry_DATA1M.社員番号 SET tbl_DATAP02.[問診票] = [qry_DATA1M]![問診票]"
242
+
243
+ db_Con.Execute SQL_str
244
+
245
+
246
+
247
+
248
+
249
+ '02必須者.xlsxファイル最初のシート データ貼り付け
250
+
251
+ SQL_str = "SELECT tbl_DATAP02.[問診票] "
252
+
253
+ SQL_str = SQL_str & "FROM tbl_DATAP02 "
254
+
255
+ SQL_str = SQL_str & "ORDER BY tbl_DATAP02.ROW "
256
+
257
+ db_rst2.Open SQL_str, db_Con, 1, 2
258
+
259
+ .Range("L2").CopyFromRecordset db_rst2
260
+
261
+ db_rst2.Close
262
+
263
+
264
+
265
+ ```
266
+
267
+
268
+
269
+ ```VBA
270
+
271
+ module2
272
+
273
+
274
+
275
+ db_Con.Open
276
+
277
+ db_Cmd.ActiveConnection = db_Con
278
+
279
+ db_Cmd.CommandText = "CREATE TABLE tbl_DATA1 (" & _
280
+
281
+ "対象月 TEXT(255), 所属部 TEXT(255), 担当 TEXT(255), 所属 TEXT(255), 社員番号 TEXT(255), 氏名 TEXT(255)," & _
282
+
283
+ "チェックシート TEXT(255), 問診票 TEXT(255), ヒアリング必須者免除可 TEXT(255), ヒアリング必須者免除可免除可 TEXT(255), 希望者 TEXT(255), ROW LONG)"
284
+
285
+ db_Cmd.Execute
286
+
287
+ db_Cmd.CommandText = "CREATE VIEW qry_DATA1M AS " & _
288
+
289
+ "SELECT tbl_DATA1.所属部, tbl_DATA1.担当, tbl_DATA1.所属, tbl_DATA1.社員番号, tbl_DATA1.氏名, tbl_DATA1.[問診票], tbl_DATA1.ROW " & _
290
+
291
+ "FROM tbl_DATA1 " & _
292
+
293
+ "WHERE (((tbl_DATA1.[問診票]) Is Null Or (tbl_DATA1.[問診票])='保') AND ((tbl_DATA1.[ヒアリング必須者免除可])='〇')) "
294
+
295
+ db_Cmd.Execute
296
+
297
+ db_Cmd.CommandText = "CREATE VIEW qry_DATA1K AS " & _
298
+
299
+ "SELECT tbl_DATA1.所属部, tbl_DATA1.担当, tbl_DATA1.所属, tbl_DATA1.社員番号, tbl_DATA1.氏名, tbl_DATA1.[ヒアリング必須者免除可免除可], tbl_DATA1.希望者, tbl_DATA1.ROW " & _
300
+
301
+ "FROM tbl_DATA1 " & _
302
+
303
+ "WHERE (((tbl_DATA1.[ヒアリング必須者免除可]) Is Null Or (tbl_DATA1.[ヒアリング必須者免除可])<>'〇') AND ((tbl_DATA1.[ヒアリング必須者免除可免除可])='〇') AND ((tbl_DATA1.[問診票])='済')) OR (((tbl_DATA1.[ヒアリング必須者免除可]) Is Null Or (tbl_DATA1.[ヒアリング必須者免除可])<>'〇') AND ((tbl_DATA1.希望者)='〇') AND ((tbl_DATA1.[問診票])='済')) "
304
+
305
+ db_Cmd.Execute
306
+
307
+ db_Cmd.CommandText = "CREATE VIEW qry_DATA1D AS " & _
308
+
309
+ "SELECT tbl_DATA1.所属部, tbl_DATA1.担当, tbl_DATA1.所属, tbl_DATA1.社員番号, tbl_DATA1.氏名, tbl_DATA1.[ヒアリング必須者免除可免除可], tbl_DATA1.希望者, tbl_DATA1.ROW " & _
310
+
311
+ "FROM tbl_DATA1 " & _
312
+
313
+ "WHERE (((tbl_DATA1.[ヒアリング必須者免除可免除可])='〇') AND ((tbl_DATA1.[ヒアリング必須者免除可]) Is Null Or (tbl_DATA1.[ヒアリング必須者免除可])<>'〇') AND ((tbl_DATA1.[問診票]) Is Null Or (tbl_DATA1.[問診票])<>'済' Or (tbl_DATA1.[問診票])='保')) OR (((tbl_DATA1.希望者)='〇') AND ((tbl_DATA1.[ヒアリング必須者免除可]) Is Null Or (tbl_DATA1.[ヒアリング必須者免除可])<>'〇') AND ((tbl_DATA1.[問診票]) Is Null Or (tbl_DATA1.[問診票])<>'済' Or (tbl_DATA1.[問診票])='保')) "
314
+
315
+ db_Cmd.Execute
316
+
317
+
318
+
319
+ ```