Hi!
I started from forum thread t=225857 and tried to do some adjustments... Not working so good.
First part works:
Private Sub CmdLisääTyhjä_Click()
Dim iNewID As Long
DBEngine.BeginTrans
Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("tblTilaukset", dbOpenDynaset)...