title image


Smiley Fehlermeldung beim Filter
Hallo,



ich habe folgenden Filter gesetzt (dank der Hilfe des Forums :-))



Private Sub Befehl17_Click()

Dim Krit As String

Krit = ""

If Not IsNull(Me!Text9) Then

Krit = Krit & " AND FER_Nummer='" & Replace(Me!Text9, "'", "''") & "'"

End If

If Not IsNull(Me!Text11) Then

Krit = Krit & " AND Produktname=" & Me!Text11

End If

If Not IsNull(Me!Text13) Then

Krit = Krit & " AND Produktionsstandort=" & Me!Text13

End If

If Not IsNull(Me!Text15) Then

Krit = Krit & " AND Projektnr=" & Me!Text15

End If

If Krit = "" Then

Me.FilterOn = False

Else

Me.Filter = Mid(Krit, 5)

Me.FilterOn = True

End If





und bekomme die Fehlermeldung " 2001 sie haben die vorherige Operation abgebrochen"

der Debugger zeigt dabei auf die Zeile Me.Filter = Mid(Krit, 5)



Damit komme ich nicht klar in einem anderen Formular klappts tadellos?!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: