Microsoft Access 掲示板

Microsoft Access 掲示板

レコードの複製(1行コピーして一度に10行複製) / 9

9 コメント
views
4 フォロー
9
hatena 2024/08/01 (木) 11:58:09

正規化できるまでのつなぎとして「10行複製のボタン」をとりあえず作成するなら、下記のようなイメージ。

複製するフィールドは F1, F2, F3 と仮定。
フォームのカレントレコードの値を10レコード分複製

Public Sub Sample()
    Dim rs As DAO.Recordset, i As Long
    Set rs = Me.RecordsetClone
    For i = 1 To 10
        rs.AddNew
        rs!F1 = Me.F1
        rs!F2 = Me.F2
        rs!F3 = Me.F3
        rs.Update
    Next
End Sub
通報 ...