Private Sub Form_Activate()

filter = "MGNR=" + Format(Forms!FLieferungen!TMGNR)

FilterOn = True


End Sub