| |
こんばんは
いつもお世話になります
access DAOについて質問です
よろしくお願
テーブルAで数量が2だったら、同じレコードをコピーして同じテーブルに新しく追加するということをやりたくてコードを書きました所、
ループが終わりません
よく考えたらデータをどんどん追加するんだからいつまでたっても終わりませんよね（笑）
テーブルに追加する前の一番最初のレコード数分だけ終わったらループが終わるようにしたいんですが
どのようにすればよろしいでしょうか？
Public Function AutoNew()
Dim db As DAO.Database
Dim Data1, Data2, Data3, Data4, Data5, Data6, Data7
Set db = CurrentDb
Dim rs As DAO.Recordset
Set rs = db.OpenRecordset("テーブルA")
Do Until rs.EOF
rs.Edit
If rs!数量 > 1 Then
Data1 = rs!フィールド1
Data2 = rs!フィールド2
Data3 = rs!フィールド3
Data4 = rs!フィールド4
Data5 = rs!フィールド5
Data6 = rs!フィールド6
rs.AddNew
rs!フィールド1 = Data1
rs!フィールド2 = Data2
rs!フィールド3 = Data3
rs!フィールド4 = Data4
rs!フィールド5 = Data5
rs!フィールド6 = Data6
End If
rs.Update
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End Function
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
