Microsoft Access 掲示板

Microsoft Access 掲示板

レコードをVBAでまるごとコピー / 3

4 コメント
views
4 フォロー
3
hatena 2022/01/12 (水) 17:41:26

フォームのレコードソースがテーブルならば、

    Dim rs As DAO.Recordset    
    Set rs = Me.RecordsetClone
    rs.AddNew
    With Me.Recordset
        Dim i As Long
        For i = 1 To rs.Fields.Count - 1
            rs.Fields(i) = .Fields(i)
        Next
    End With
    rs.Update
    DoCmd.GoToRecord , , acLast

先頭フィールドがオートナンバー型のフィールドという前提です。

通報 ...