D
Dudley
I am trying to use Allen Browne's code to duplicate records as a command
button on a form in Access 2000 as
Private Sub Command136_Click()
Dim strSql As String
Dim lngID As Long
If Me.Dirty Then
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "Select record to duplicate"
Else
With Me.RecordsetClone
.AddNew
!PresenterID = Me.PresenterID
!SameDay = Me.SameDay
!CompanyName = Me.CompanyName
etc
.Update
Me.Bookmark = .LastModified
End With
End If
End Sub
I get a record with blank fields (except ones with default data), and I
cannot see what I am doing wrong.
Thanks for any help.
Dudley
button on a form in Access 2000 as
Private Sub Command136_Click()
Dim strSql As String
Dim lngID As Long
If Me.Dirty Then
Me.Dirty = False
End If
If Me.NewRecord Then
MsgBox "Select record to duplicate"
Else
With Me.RecordsetClone
.AddNew
!PresenterID = Me.PresenterID
!SameDay = Me.SameDay
!CompanyName = Me.CompanyName
etc
.Update
Me.Bookmark = .LastModified
End With
End If
End Sub
I get a record with blank fields (except ones with default data), and I
cannot see what I am doing wrong.
Thanks for any help.
Dudley