質問編集履歴
1
コードの記載
test
CHANGED
File without changes
|
test
CHANGED
@@ -6,8 +6,28 @@
|
|
6
6
|
|
7
7
|
テーブルの最初のレコードから最後のレコードまで繰り返し、左から4つ目のフィールドの値が0の場合は、レコードを削除し、1以上の場合は何もせずに次のレコードに移動するというプログラムを作成しています。
|
8
8
|
|
9
|
-
|
9
|
+
最後のレコードまで繰り返すところは記述できましたが、レコードの削除と値が0であるか判定する方法がわかりません。
|
10
10
|
|
11
11
|
|
12
12
|
|
13
13
|
どなたかわかる方はいらっしゃいますでしょうか?
|
14
|
+
|
15
|
+
|
16
|
+
|
17
|
+
```
|
18
|
+
|
19
|
+
'最後のレコードまで繰り返す
|
20
|
+
|
21
|
+
Do Until rs.EOF
|
22
|
+
|
23
|
+
'0の場合
|
24
|
+
|
25
|
+
'レコードを削除する
|
26
|
+
|
27
|
+
'次のレコードに移動する
|
28
|
+
|
29
|
+
rs.MoveNext
|
30
|
+
|
31
|
+
Loop
|
32
|
+
|
33
|
+
```
|