Kod:
While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name, acSaveNo
Wend
DoCmd.OpenForm "anaform"
Kod:
BM = Me.Bookmark
Me.Requery
Me.Bookmark = BM
While Forms.Count > 0
DoCmd.Close acForm, Forms(0).Name, acSaveNo
Wend
DoCmd.OpenForm "anaform"
BM = Me.Bookmark
Me.Requery
Me.Bookmark = BM