[Solved] Macro to save record

[seba13_13]

Hello

I am a beginner in macro. I try to do macro which save the record after text modified.
I tried:

Code: Select all

sub zapiszformularz
	DoCmd.RunCommand acCmdSaveRecord
end sub

and it work for two days! But now its error : Basic runtime error. Object variable not set. I didn't change anything in form or in macro. I don't know what happend
I also tried Me.Dirty but it show the same error.

Could anyone tell my what I'm doing wrong or has other solution to this macro?

[Bidouille]

For me, DoCmd is not Basic but VBA.
Except if you use Access2Base : viewtopic.php?f=47&t=61447

[Villeroy]

Add a push button to the form.
Action = Save (or Next Record which saves before moving)
Default button = Yes

Now the record will be saved when you hit the enter key.

[seba13_13]

I still don't know why this macro, once work, another time don't, maybe it is a matter of difference in vba and vb.
But I found another solution on polish forum - macro which save record and refresh form.

https://forum.openoffice.org/pl/forum/v ... =13&t=4721

Code: Select all

sub Zapisz
dim document   as object
dim dispatcher as object
' -------------------------------------------------
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:RecSave", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:Refresh", "", 0, Array())
End Sub