回答編集履歴
1
推敲
test
CHANGED
|
@@ -3,7 +3,7 @@
|
|
|
3
3
|
```VBA
|
|
4
4
|
Public Function 会場データインポート(WK_会場)
|
|
5
5
|
Dim Rc1 As Recordset, Rc2 As Recordset, Rc3 As Recordset
|
|
6
|
-
Dim
|
|
6
|
+
Dim Err_flg As Boolean
|
|
7
7
|
|
|
8
8
|
Set Rc1 = CurrentDb.OpenRecordset("T_会場")
|
|
9
9
|
Set Rc2 = CurrentDb.OpenRecordset("SELECT * FROM WK_会場マスター ORDER BY 会場コード")
|
|
@@ -11,33 +11,35 @@
|
|
|
11
11
|
|
|
12
12
|
If Rc2.RecordCount > 0 Then
|
|
13
13
|
Do Until Rc2.EOF = True
|
|
14
|
+
|
|
14
15
|
Err_flg = False
|
|
16
|
+
|
|
15
17
|
If Len(Trim(Rc2![受験地区])) > 5 Then
|
|
16
|
-
Err_flg = True:
|
|
18
|
+
Err_flg = True: Call エラーデータインポート("受験地区", Rc2, Rc3)
|
|
17
19
|
End If
|
|
18
20
|
|
|
19
21
|
If Len(Trim(Rc2![会場名])) > 30 Then
|
|
20
|
-
Err_flg = True:
|
|
22
|
+
Err_flg = True: Call エラーデータインポート("会場名", Rc2, Rc3)
|
|
21
23
|
End If
|
|
22
24
|
|
|
23
25
|
If Len(Trim(Rc2![会場名略])) > 20 Then
|
|
24
|
-
Err_flg = True:
|
|
26
|
+
Err_flg = True: Call エラーデータインポート("会場名略", Rc2, Rc3)
|
|
25
27
|
End If
|
|
26
28
|
|
|
27
29
|
If Len(Trim(Rc2![所在地])) > 30 Then
|
|
28
|
-
Err_flg = True:
|
|
30
|
+
Err_flg = True: Call エラーデータインポート("所在地", Rc2, Rc3)
|
|
29
31
|
End If
|
|
30
32
|
|
|
31
33
|
If Len(Trim(Rc2![交通手段1])) > 30 Then
|
|
32
|
-
Err_flg = True:
|
|
34
|
+
Err_flg = True: Call エラーデータインポート("交通手段1", Rc2, Rc3)
|
|
33
35
|
End If
|
|
34
36
|
|
|
35
37
|
If Len(Trim(Rc2![交通手段2])) > 30 Then
|
|
36
|
-
Err_flg = True:
|
|
38
|
+
Err_flg = True: Call エラーデータインポート("交通手段2", Rc2, Rc3)
|
|
37
39
|
End If
|
|
38
40
|
|
|
39
41
|
If Len(Trim(Rc2![交通手段3])) > 30 Then
|
|
40
|
-
Err_flg = True:
|
|
42
|
+
Err_flg = True: Call エラーデータインポート("交通手段3", Rc2, Rc3)
|
|
41
43
|
End If
|
|
42
44
|
If Err_flg = False Then
|
|
43
45
|
Rc1.AddNew
|