M
Many Krebs via AccessMonster.com
I have a button on my data entry form to duplicate the previous record to
make it easy during data entry. If a user has several records that are
similar, I want the duplicate record button to send the current record
notification email to a User and then save the current record and then
replicate it for the next entry and increase the auto number by +1
After the save, the record is still visible on the form, but when I click
anywhere on the screen it removes/clears the form.
Please help. Here’s my code:
DoCmd.SendObject acSendNoObject, blah, blah, blah....
If vbNo Then
MsgBox "This Record Will Be Save. Please Click OK."
Forms!frmLogIssues.Status = "Assigned"
'DoCmd.RunCommand acCmdSaveRecord
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
‘to increase the tracking number by +1
TrackingNo = TrackingNo + 1
' DoCmd.GoToRecord , , acNewRec
Else
' If vbYes Then
MsgBox "You Chose Not To Send This Email. This Issue Will Not Be
Save. Please Click OK."
make it easy during data entry. If a user has several records that are
similar, I want the duplicate record button to send the current record
notification email to a User and then save the current record and then
replicate it for the next entry and increase the auto number by +1
After the save, the record is still visible on the form, but when I click
anywhere on the screen it removes/clears the form.
Please help. Here’s my code:
DoCmd.SendObject acSendNoObject, blah, blah, blah....
If vbNo Then
MsgBox "This Record Will Be Save. Please Click OK."
Forms!frmLogIssues.Status = "Assigned"
'DoCmd.RunCommand acCmdSaveRecord
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 5, , acMenuVer70 'Paste Append
‘to increase the tracking number by +1
TrackingNo = TrackingNo + 1
' DoCmd.GoToRecord , , acNewRec
Else
' If vbYes Then
MsgBox "You Chose Not To Send This Email. This Issue Will Not Be
Save. Please Click OK."