acSaveRecord.....in access2000 1

[grobbu]

Hello....
Every time I call the code beneath here I get an error 2046......Anyone an idea how this comes....If u need more info or Code just mail it here or to jahribba@yahoo.com

tnx....

Private Sub cmdNieuwDocument_Click()
DoCmd.OpenQuery "qryTabelSjabloonLegen"

stDocName = "frmNieuwDocument"
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm stDocName, , , , acFormAdd
End Sub

 

[SBendBuckeye]

Try DoCmd.RunCommand acCmdSave. This does the menu command directly without simulating the menu system.

Good Luck!
Please remember to give helpful posts the stars they deserve! This makes the post more visible to others in need!