problem with saving record

[jahribba]

hi...i've got an application in acces that has been written origanally for access97. Now we are migrating to Access2000 and i've got a problem. When i erase the line(with the star in front) everything works fine otherwise i get a fault message 2046, that deals about saving a record........anyone gots an idea............?
tnx.

Private Sub cmdNieuw_Click()

stDocName = "frmNieuwContactpersoon"

*DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.OpenForm stDocName, , stLinkCriteria
End Sub

 

[khood]

jahribba,

Not sure if this will help, but their is a known bug related to this error. Try the knowledgebase article:

http://support.microsoft.com/default.aspx?scid=KB;EN-US;q244695&

K.Hood

 

[BlackKnight]

Hi,

I copied/pasted your code. It worked correctly. Is the recordsource of the form you are trying to save the record working correctly? It may have ambiguous joins preventing the save or sometimes the UniqueTable property has to be set to the table the record is to be saved.

Private Sub cmdNieuw_Click()

stDocName = "frmNieuwContactpersoon"

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

DoCmd.OpenForm stDocName, , stLinkCriteria
End Sub

Have a good one!
BK