[AccessD] (no subject)

Dear List:

 

I am getting an error 3022 - "changes you requested were not successful
because they would product duplicate values..." etc. when the following code
gets to the .Update line.

Dim rstCOCITemp As DAO.Recordset

'add to check-out/check-in table the number of times it's in quantity

Set rstCOCITemp = db.OpenRecordset("Select * FROM tblCheckOutCheckIn")
With rstCOCITemp
    
    .AddNew
    !fldCOCIRADID = argRADID
    !fldCOCIInventoryID = argPackageID
    !fldCOCIInventoryItemID = Null
    !fldCOCICheckOut = Null
    !fldCOCICheckIn = Null
    .Update


fldCOCIRADID, fldCOCIInventoryID, fldCOCIInventoryItemID, are all indexed,
duplicates OK, default value zero.  db is set to Currentdb.

Any ideas why this chunk of code should generate an error 3022?

MTIA

 

Rocky Smolin

Beach Access Software

858-259-4334

www.e-z-mrp.com <http://www.e-z-mrp.com/> 

www.bchacc.com <http://www.bchacc.com/>