Forum Discussion
demaionewton
Nov 04, 2022Copper Contributor
Cloning a record works ONLY if I add a MsgBox
I have a very simply VBScript that clones a record taken almost step-by-step from an Access Macro. Here's the copy:
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdCopy
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
MsgBox ("Go on")
DoCmd.RunCommand acCmdPasteAppend
Without the MsgBox, I get an error that says the Append command isn't available now. However, if I have the MsgBox and click OK the script runs fine. What do I need to do so that I don't need the MsgBox? I can't figure out why it's throwing the error without the message box. Ideas?
- Did a bit of research and found that I don't need the 2 lines:
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
These don't seem to be necessary. Removing them and the MsgBox eliminates the bug.
- Tom_van_StiphoutSteel ContributorThis might be a case where DoEvents could make a difference.
- demaionewtonCopper Contributor
Tom_van_Stiphout Great Idea! I hadn't thought of that.
- demaionewtonCopper ContributorDid a bit of research and found that I don't need the 2 lines:
DoCmd.RunCommand acCmdRecordsGoToNew
DoCmd.RunCommand acCmdSelectRecord
These don't seem to be necessary. Removing them and the MsgBox eliminates the bug.