Wie muss ich diesen Code ändern?

[silentwolf]

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.

Code [Auswählen] Erweitern


  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:)

[DF6GL]

Hallo,

mit der NZ- , bzw. IsNull-Funktion auf NULL prüfen...



.
.
strSearch = nz(Me!txtSearch,"").
.
strFilter = SearchAllFieldsFilter("tblProjekte", strSearch )

[silentwolf]

Hallo Franz,
vielen Dank für Deine Hilfe hat wunderbar funktioniert!
Das wusstest Du aber sicherlich selbst ggg

Grüße
Albert