Dim filter1 As String

Private Sub Babbrechen_Click()

DoCmd.Close

End Sub

Private Sub BDetailliert_Click()

If IsNull(TVon) Then
 MsgBox ("Bitte geben Sie im Feld 'Von' das Startjahr der Auswertung ein")
 Exit Sub
End If
 
If IsNull(TBis) Then
 MsgBox ("Bitte geben Sie im Feld 'Bis' das Endjahr der Auswertung ein")
 Exit Sub
End If

SetFilter

DoCmd.OpenReport "BAnlieferungenJahresvergleichDetail", acViewPreview, , filter1

DoCmd.Maximize


End Sub

Private Sub BOk_Click()

If IsNull(TVon) Then
 MsgBox ("Bitte geben Sie im Feld 'Von' das Startjahr der Auswertung ein")
 Exit Sub
End If
 
If IsNull(TBis) Then
 MsgBox ("Bitte geben Sie im Feld 'Bis' das Endjahr der Auswertung ein")
 Exit Sub
End If

SetFilter
'MsgBox (filter1)

DoCmd.OpenReport "BAnlieferungenJahresVergleichDetail", acViewPreview, , filter1

DoCmd.Maximize

End Sub

Sub SetFilter()


filter1 = "Storniert=False AND "

If IsNull(TZNR) Or TZNR = "" Then
Else
 filter1 = filter1 + "[ZNR]=" + Format(TZNR) + " AND "
End If

If IsNull(TVon) Or TVon = "" Then
Else
 filter1 = filter1 + "Year(Datum)>=" + Format(TVon) + " AND "
End If

If IsNull(TBis) Or TBis = "" Then
Else
 filter1 = filter1 + "Year(Datum)<=" + Format(TBis) + " AND "
End If

If IsNull(TSNR) Or TSNR = "" Then
Else
 filter1 = filter1 + "SNR='" + Format(TSNR) + "' AND "
End If

If IsNull(TSANR) Or TSANR = "" Then
Else
 filter1 = filter1 + "SANR='" + Format(TSANR) + "' AND "
End If


If OAktiveMitglieder = True Then
 filter1 = filter1 + "[Aktives Mitglied]=True AND "
End If


If IsNull(TVon1) Then
  v1 = 0
Else
  v1 = TVon1
End If
 
If IsNull(TBis1) Then
  b1 = 999999
Else
  b1 = TBis1
End If


Select Case OListe
Case 1:

 filter1 = filter1 + "MGNR>=" + Format(v1) + " AND MGNR<=" + Format(b1)
 'MsgBox (filter1)
Case 2:
 filter1 = filter1 + "PLZ>='" + Format(v1) + "' AND PLZ<='" + Format(b1) + "'"
 'MsgBox (filter1)
End Select




End Sub

Private Sub Form_Open(Cancel As Integer)

OListe = 1
TVon = year(Date) - 5
TBis = year(Date)
OSortenattributeBeiFlächenbindungOptional = False
OAktiveMitglieder = True

End Sub




Private Sub TFusstext_Exit(Cancel As Integer)

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

End Sub