質問編集履歴
1
コードの修正
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -10,8 +10,11 @@
|
|
|
10
10
|
Do Until rs.EOF
|
|
11
11
|
'当営業所の社員番号の場合
|
|
12
12
|
If (Left(rs2(0), 4) >= 2200 And Left(rs2(0), 4) <= 2473) And rs2(1) <> "" Then
|
|
13
|
+
'社員番号を変数に格納する
|
|
13
14
|
Number(i) = Left(rs2(0), 4)
|
|
15
|
+
'次の添え番に変更する
|
|
14
16
|
i = i + 1
|
|
17
|
+
'当営業所の社員番号以外のレコードの場合
|
|
15
18
|
Else
|
|
16
19
|
'レコードを削除する
|
|
17
20
|
|