On Error Goto errorhandler

[foreveryoung]

Just a little problem here. Consider the following

on error goto errorhandler

docmd.openquery "thequeryname"
docmd.openquery "thequeryname1"
docmd.openquery "thequeryname2"

leave:
exit sub

errorhandler:
msgbox "Error Occured"
resume leave

ok when the code reaches docmd.openquery "thequeryname1" and I know there is a key violation on running this append query I want the code to jump to errorhandler. Instead I am getting the large message saying 0 records were not copied due to unique index etc I am sure you are aware of this message.

Anyone know how to get to the errorhandler in this situation?

Thanks
David

 

[scriverb]

I don't believe that situation is a trappable error. See trappable error list in ACCESS Help.

You can however look for the Key Violations prior to running the Append Query. Simply make another query with an inner join on the key fields and perform a DCount. If the result is greater than 0 then you have a Key Violation in the making. You can then use that perform a routine to flag and remove these records prior to running the append query.

Bob Scriver