Stumped on an INSERT

[Elisa]

Hi,

I'm stumped.

To recreate the "problem"...

New database... New Table called tblKeys ... One column/field , numeric , make it the primary key so no duplicates.

In a new VBA module....

Sub subInsertRec()
Dim db As Database
Set db = CurrentDb
db.Execute "insert into tblkeys (key) values ( 123 );"
Set db = Nothing
End Sub

Run the procedure at least 2 times.

The first time... A record is added.
The second time... No record added but *no errors*!!!

I'd like to catch the addition of duplicate records.



Any answers much much much appreciated.

TIA
Elisa

[RuralGuy]

Try:
db.Execute "insert into tblkeys (key) values ( 123 );" ,dbFailOnError