Private myCriteria As String
Private Function Filterbedingung() As String
Dim ArgCount As Integer
' Initialisiere die Argumentenzahl.
ArgCount = 0
myCriteria = ""
'*************************************************************************
' Nur hier muß man die Zeilen anpassen:
' Variable1 = Feldname im Formular in dem das Suchwort eingegeben wird
' Variable2 = Feldname im Formular der gefiltert werden soll
' (Feld aus der Datenbank)
' Variable3 = Typ zum Angeben des Datenfeldes
' 1 = Datum
' 2 = String, alle die das Suchwort entahlten, egal wo
' 3 = Zahl
' 4 = String, findet nur die die genau übereinstimmen
' 5 = ja/nein vom Typ Boolen
' Optional bAnd = Hier kann man dann noch angeben ob man die Kriterien mit
' AND (True) oder OR (False) verknüpfen möchte.
' Wenn Argument bAnd weggelassen => mit AND verküpft.
' Beispiel:
' SQLString Me!Sucheingabefeld, "Datenfeld", mycriteria, ArgCount, _
' 2, False
' => Hier wird mit OR (Oder) verknuept.
' Beliebig erweiterbar, wenn man beispielsweise 5 Felder filtern
' will muß man die folgende Zeile gerade 5 mal kopieren und anpassen
'*************************************************************************
' SQLString Variable1, Variable2, mycriteria, ArgCount, Variable3
'*************************************************************************
' SQLString Me!DtDatum_Suchen, "DtDatum", myCriteria, ArgCount, 1
SQLString Me.txt_FirmName, "Kon_FirmName", myCriteria, ArgCount, 2
SQLString Me.txt_Nname, "Kon_Nname", myCriteria, ArgCount, 2
SQLString Me.txt_Vname, "Kon_Vname", myCriteria, ArgCount, 2
SQLString Me.txt_FirmName, "Kon_FirmName", myCriteria, ArgCount, 2
SQLString Me.txt_id, "Kon_id", myCriteria, ArgCount, 3
SQLString Me.txt_Kon_Typ, "Kon_Typ_id_f", myCriteria, ArgCount, 3
SQLString Me.txt_Referenz, "Referenz_id_f", myCriteria, ArgCount, 3
SQLString Me.txt_Anrede, "Anrede_id_f", myCriteria, ArgCount, 3
' Falls kein Kriterium spezifiziert wurde, gebe alle Datensätze zurück.
If myCriteria = "" Then myCriteria = "True"
Filterbedingung = myCriteria
End Function
Private Sub cmd_Filter_Click()
Me.Filter = Filterbedingung
Me.FilterOn = True
End Sub
Private Sub cmd_FilterAus_Click()
Me.FilterOn = False
myCriteria = "" 'Nur wenn ihr die Variable Global speichert
Me!txt_Anrede = Null
Me.txt_FirmName = Null
Me.txt_id = Null
Me.txt_Kon_Pos = Null
Me.txt_Kon_Typ = Null
Me.txt_Nname = Null
Me.txt_Referenz = Null
Me.txt_Vname = Null
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.Maximize
End Sub