Private Sub Babbrechen_Click()

DoCmd.Close

End Sub

Private Sub BOk_Click()

Select Case OListe

Case 1:
 DoCmd.OpenReport "BAbwertungenMGNR", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
Case 2:
 DoCmd.OpenReport "BAbwertungen", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)
Case 3:
 DoCmd.OpenReport "BAbwertungenSorte", acPreview, , "ZNR=" + Format(Forms!MAbwertungen!TZNR)

End Select

End Sub





Private Sub Form_Open(Cancel As Integer)

TZNR = DFirst("ZNR", "TZweigstellen")
If Month(Date) < 9 Then
 TLesejahr = year(Date) - 1
Else
 TLesejahr = year(Date)
End If
OListe = 1

End Sub