OK I'm a little stuck. Here's what I have so far:
Dim stDocName As String
Dim RecordToCopy As Integer
Me.AllowAdditions = True
RecordToCopy = Me.WorkRecordID
'Dupe the Main Record
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, ...