Experts Exchange connects you with the people and services you need so you can get back to work.
Improve company productivity with a Business Account.Sign Up
Dim nRow As Long
nRow = ActiveCell.Row
.Cells(nRow, 1) = .Cells(nRow - 1, 1)
.Cells(nRow, 2) = .Cells(nRow - 1, 2)
.Cells(nRow, 3) = .Cells(nRow - 1, 3)
.Cells(nRow, 4) = .Cells(nRow - 1, 4)
.Cells(nRow, 5) = .Cells(nRow - 1, 5)
Open in new window
'copy the first 5 fields from the selected record to a new record
'save current record
If Me.Dirty Then Me.Dirty = False
.Fields(0) = Me.Recordset.Fields(0)
.Fields(1) = Me.Recordset.Fields(1)
.Fields(2) = Me.Recordset.Fields(2)
.Fields(3) = Me.Recordset.Fields(3)
.Fields(4) = Me.Recordset.Fields(4)
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.