Private Sub SatzAuswahl()
On Error Resume Next
Dim vDatum As String
Dim bDatum As String
Dim kriterium As String
Dim kriteriumPrivat As String
g_selectionFormula = ""
 
DruckTabelle = Const_DBDir + Const_DBName
 
vDatum = Format(vonDatum, "YYYY,mm,dd")
bDatum = Format(bisDatum, "YYYY,mm,dd")
kriterium = kriterium + " AND {Termine.vonDatum} >= date(" & vDatum & ") AND" & _
  "{Termine.vonDatum} <= date(" & bDatum & ")"
kriteriumPrivat = Mid(kriterium, 6)
 
If cb_Mitarbeiter <> "" Then kriterium = kriterium + " AND" & _
  "{Termine.Mitarbeiter}=" + "'" + cb_Mitarbeiter + "'"
 
If chk_privat.Value = 1 And (cb_Mitarbeiter = "" Or cb_Mitarbeiter = _
  Hauptmenue.v_User) Then
  kriterium = Mid(kriterium, 6)
  kriteriumPrivat = kriterium
  kriteriumPrivat = "(" + kriteriumPrivat + " AND {Termine.Mitarbeiter}=" + "'" _
    + Hauptmenue.v_User + "'" + " AND {Termine.KzPrivat}= True)"
 
  kriterium = "(" + kriterium + " AND {Termine.KzPrivat}= False)"
 
  kriterium = kriterium + " OR " + kriteriumPrivat
Else
  kriterium = kriterium + " AND {Termine.KzPrivat}= False"
  kriterium = Mid(kriterium, 6)
End If
 
g_selectionFormula = kriterium
 
End Sub
 
Report.SelectionFormula = g_selectionFormula