Private Sub Command8_Click()
Me.DokumentBr = Me.DokumentBr
Me.Dirty = False
DoCmd.GoToRecord , , acNewRec
Me.Table2_Subform.Requery
End Sub