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