Q&A
質問の
コードはレコードセットを参照しているだけですけど、「テキスト型の取引番号レコード【左から3つ目】のレコード」とはそのレコードセットの内容を変更するという意味ですか？
###わからないこと
'最後のレコードまで繰り返す Do Until rs.EOF '当営業所の社員番号かつ取引がある場合 If (rs(0) >= 2200 And rs(0) <= 2473) And rs(1) > 0 Then '左から3つ目の取引番号フィールドに『９９９９９』を出力する Else 'レコードを削除する rs.Delete End If '次のレコードに移動する rs.MoveNext Loop
上記のコードにて保存する（削除しない）レコードの場合、テキスト型の取引番号レコード【左から3つ目】のレコードに『９９９９９』を出力するにはどのように修正すればよろしいでしょうか？
何も入力されていない、もしくは、９９９９９が入力されているフィールドに９９９９９を出力するという意味です。
意味が分かりませんが、取りあえず回答しました。
回答1件
0
ベストアンサー
Recordset.Edit メソッドを使用します。
VBA
1 '最後のレコードまで繰り返す 2 Do Until rs.EOF 3 '当営業所の社員番号かつ取引がある場合 4 If (rs(0) >= 2200 And rs(0) <= 2473) And rs(1) > 0 Then 5 '左から3つ目の取引番号フィールドに『９９９９９』を出力する 6 rs.Edit 7 rs(2) = "99999" 8 rs.Update 9 Else 10 'レコードを削除する 11 rs.Delete 12 End If 13 '次のレコードに移動する 14 rs.MoveNext 15 Loop
投稿2019/02/28 05:49
総合スコア25195
回答いただきましてありがとうございました。大変助かりました。
もう確認できたのですか？
はい。
あなたの回答
tips
プレビュー
