G
GB
I'd really appreciate some help!
I have an order entry dB (Access 97):
I have a form with a 'Tab Control', each Tab allows the user to enter
further order item information on the order (size, qty, colour, etc).
I'd like the very last 'Tab' to allow the user to copy the record and then
goto that copied record.
Basically each order item requires only minor changes and I don't want the
user entering the same info each time.
I've tried using a 'Command Button' to 'Duplicate Record' but encounter the
following problem:
"Although a new record is created in the 'Order Details' Table the only info
that is duplicated is that info is displayed on the 'Tab' at that time."
I have 4 'Tabs' and would like all info duplicated.
----------------------------------------------------------------------------
--------------------------------
My code is:
Private Sub Add_Next_Item_Click()
On Error GoTo Err_Add_Next_Item_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Add_Next_Item_Click:
Exit Sub
Err_Add_Next_Item_Click:
MsgBox Err.Description
Resume Exit_Add_Next_Item_Click
End Sub
I have an order entry dB (Access 97):
I have a form with a 'Tab Control', each Tab allows the user to enter
further order item information on the order (size, qty, colour, etc).
I'd like the very last 'Tab' to allow the user to copy the record and then
goto that copied record.
Basically each order item requires only minor changes and I don't want the
user entering the same info each time.
I've tried using a 'Command Button' to 'Duplicate Record' but encounter the
following problem:
"Although a new record is created in the 'Order Details' Table the only info
that is duplicated is that info is displayed on the 'Tab' at that time."
I have 4 'Tabs' and would like all info duplicated.
----------------------------------------------------------------------------
--------------------------------
My code is:
Private Sub Add_Next_Item_Click()
On Error GoTo Err_Add_Next_Item_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
Exit_Add_Next_Item_Click:
Exit Sub
Err_Add_Next_Item_Click:
MsgBox Err.Description
Resume Exit_Add_Next_Item_Click
End Sub