Doug Murphy
dw-murphy at cox.net
Mon Dec 14 14:54:24 CST 2009
I second this. Access 2002 and 2007 pre service pack would start autonumbers over in some cases. Check the table. -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Joe O'Connell Sent: Monday, December 14, 2009 12:30 PM To: Access Developers discussion and problem solving Subject: Re: [AccessD] (no subject) Rocky, If there is an autonumber field in the table, try to open the table and add a record manually. Does the autonumber field try to use a value that is already in the table? I have seen this happen a few times. The solution is to reset the initial value for the autonumber field to be one greater than the highest value already in use. Joe O'Connell -----Original Message----- From: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Monday, December 14, 2009 2:47 PM To: 'Access Developers discussion and problem solving' Subject: [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/> -- AccessD mailing list AccessD at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/accessd Website: http://www.databaseadvisors.com