.AddNew worked in Access 2003 but doesn't work in 2010

[dmilem]

I'm hoping someone can provide some insight on this one. The following code worked using Access 2003, but no longer works with Access 2010. It fails on the Recordset.Addnew statement. The error message says: The changes you requested to the table were not successful because they would create duplicate values in the index, primary key, or relationship.



Any suggestions would be greatly appreciated.

Private Sub cmdAddNew_Click()
On Error GoTo Err_cmdAddNew_Click
Me.AllowAdditions = True
Me.Filter = ""
Me.FilterOn = False
Me.OrderBy = "Project_ID"
Me.OrderByOn = True
Recordset.AddNew
Recordset.Update
Development_Site = GetDefaults("Site", 2)
Production_Site = GetDefaults("Site", 2)
Requery
Recordset.MoveLast
Me.AllowAdditions = False
Me.txtCreatedBy.Value = VBA.Environ$("UserName")
ShowData
Exit_cmdAddNew_Click:
Exit Sub
Err_cmdAddNew_Click:
MsgBox Err.Description
Resume Exit_cmdAddNew_Click
End Sub


Thanks!
Dionna

[rpeare]

Can I ask what your intent with the code is (each step you want to perform)?

Have you tried stepping through it with debug.print "I got to this point" type messages to find out where your code is breaking?

My guess is that it's on the line

recordset.update

and I'm also guessing that you have some sort of index set up on your table to prevent duplicates on at least one field (though probably more?)

Looks to me like you're trying to create a new record and populate 3 of the fields automatically but honestly, the order of them makes me wonder if that's actually what's going on.