G
Gary Schuldt
FrmA is active and displaying recX.
I want to:
1. Duplicate recX
2. Save recX
3. Display recX-dup (using frmA).
I used the Command Button Wizard to get the VBA code for Step 1 (see below).
However, I'm not sure how to do Steps 2 & 3. I know I could save recX by
closing frmA, but how do I know the "identity" of recX-dup so I can open
frmA to display it?
Thanks.
Gary
=====================================
Private Sub CloneRecord_Click()
On Error GoTo Err_CloneRecord_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_CloneRecord_Click:
Exit Sub
Err_CloneRecord_Click:
MsgBox Err.Description
Resume Exit_CloneRecord_Click
End Sub
===========================
I want to:
1. Duplicate recX
2. Save recX
3. Display recX-dup (using frmA).
I used the Command Button Wizard to get the VBA code for Step 1 (see below).
However, I'm not sure how to do Steps 2 & 3. I know I could save recX by
closing frmA, but how do I know the "identity" of recX-dup so I can open
frmA to display it?
Thanks.
Gary
=====================================
Private Sub CloneRecord_Click()
On Error GoTo Err_CloneRecord_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_CloneRecord_Click:
Exit Sub
Err_CloneRecord_Click:
MsgBox Err.Description
Resume Exit_CloneRecord_Click
End Sub
===========================