Hallo an alle :)
ich habe einen Code der ansich gut funktioniert nur wenn ich im txtFeld keinen Eintrag habe bekomme ich eine Fehlermeldung.
Wie muss ich den Code abändern damit ich auch im Textfeld leer lassen kann und keine Fehlermeldung mehr bekomme.
Private Sub txtSearch_AfterUpdate()
Dim strSearch As String, strFilter As String
strSearch = Me.txtSearch
If strSearch = "*" Then
Me.filter = ""
Me.FilterOn = False
Exit Sub
End If
strFilter = SearchAllFieldsFilter("tblProjekte", Me.txtSearch)
If strFilter <> "" Then
Me.filter = strFilter
Me.FilterOn = True
End If
End Sub
Vielen Dank:)
Hallo,
mit der NZ- , bzw. IsNull-Funktion auf NULL prüfen...
.
.
strSearch = nz(Me!txtSearch,"").
.
strFilter = SearchAllFieldsFilter("tblProjekte", strSearch )
Hallo Franz,
vielen Dank für Deine Hilfe hat wunderbar funktioniert!
Das wusstest Du aber sicherlich selbst ggg
Grüße
Albert