🚀 go-pugleaf

I hope someone out there can help. I've worked on it all day and can't get
it to work.

I have a TADOTable on a form called tblList that is connected to an
Access2000 table called 'Reason Codes', set at design time in the
properties. I use a TADOConnection in a Data Module. tblList is displayed in
a TDBGrid via a TDataSource(dsList). Here's the code:

AnsiString NewCode = "1019";
AnsiString NewDescription = "Some Reason";

try {
   tblList->Append();
   tblList->FieldByName("Code")->AsInteger = StrToInt(NewCode);
   tblList->FieldByName("Description")->AsString = NewDescription;
   tblList->Post();
} catch(...) {
   ShowMessage("Code already used.");
   tblList->Cancel();
}

The 'Code' field is the Primary Key. When I try to post a Code that is
already used, I get to exceptions that are displayed (EOleException &
EDatatbaseError) BEFORE the catch block is executed. I have tried an
OnPostError() event and nothing will stop the first two exceptions from
being displayed before going to my handler(s). What gives?

Jeff.