Private Sub Babbrechen_Click()

DoCmd.Close

End Sub

Private Sub BOk_Click()

Dim where1 As String

where1 = ""
If OListe = 1 Then
    'MGNR
    If Not IsNull(TVon1) Then
        where1 = where1 + " AND TMitglieder.MGNR>=" + Format(TVon1)
    End If
    If Not IsNull(TBis1) Then
        where1 = where1 + " AND TMitglieder.MGNR<=" + Format(TBis1)
    End If
Else
    'PLZ
    If Not IsNull(TVon1) Then
        where1 = where1 + " AND TMitglieder.PLZ>='" + Format(TVon1) + "'"
    End If
    If Not IsNull(TBis1) Then
        where1 = where1 + " AND TMitglieder.PLZ<='" + Format(TBis1) + "'"
    End If
End If


Select Case OListe

Case 1:
 DoCmd.OpenReport "BMitgliedStammblattMGNR", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
Case 2:
 DoCmd.OpenReport "BMitgliedStammblatt", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1

End Select

If OLiefermengen Then
 DoCmd.OpenReport "BLiefermenge", acViewDesign
 
 Select Case OListe
    Case 1:
        Reports("BLiefermenge").GroupLevel(0).ControlSource = "MGNR"
    Case 2:
        Reports("BLiefermenge").GroupLevel(0).ControlSource = "PLZ"
 End Select

 DoCmd.Save
 DoCmd.Close , "BLiefermenge"
 
 DoCmd.OpenReport "BLiefermenge", acPreview, , "[Aktives Mitglied]=True AND ZNR=" + Format(Forms!MStammblatt!TZNR) + where1
End If



End Sub




Private Sub Form_Open(Cancel As Integer)

OListe = 1
OLiefermengen = False
TZNR = DFirst("ZNR", "TZweigstellen")
TFusstext = GetParameter("STAMMBLATTTEXT")

End Sub


Private Sub TFusstext_Exit(Cancel As Integer)

If IsNull(TFusstext.Value) Then
 SetParameter "STAMMBLATTTEXT", " "
Else
 SetParameter "STAMMBLATTTEXT", TFusstext.Value
End If

End Sub