title image


Smiley z.b. so...


Dim Kriterien As String

Kriterien=""

If Not IsNull(Me!txtVorfallsdatum) Then

Kriterien = Kriterien & " AND Vorgangsdatum = #" & Format(DateValue(Me![txtVorfallsdatum]), "mm-dd-yyyy") & "#"

End If

If Not IsNull(Me!txtZugnummer) Then

Kriterien = Kriterien & " AND ZugNr = " & Me!txtZugnummer

End If

If Not IsNull(Me!txtKBSNr) Then

Kriterien = Kriterien & " AND KBSNr = " & Me!txtKBSNr

End If

Kriterien=Mid(Kriterien,6)

DoCmd.ApplyFilter , Kriterien





da fehlt dann aber noch der fall, dass keine einträge da sind... meint der puschel

Aphorismus der Woche:
Es kommt nicht darauf an, mit dem Kopf durch die Wand zu rennen, sondern mit den Augen die Tür zu finden.
Werner von Siemens (1816 - 1892)


geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: