title image


Smiley Filter setzen
Hallo,



Ich habe aus einer bereits geschalteten Anfrage folgemndem Quellcode bekommen:



Dim Krit as string

Krit = ""if Not Isnull(Me!Text41) then

Krit = Krit & " AND Preistyp='" & Replace(Me!Text41,"'","''")

end if

if Not Isnull(Me!Text46) then

Krit = Krit & " AND Rahmenvertragsnr=" & Me!Text46

end if

If Krit = "" then Me.FilterOn = False

else

Me.Filter = Mid(Krit, 5)

Me.FilterOn = True

end if



Ich bekomme bei der Zeile "Me.Filter = Mid(Krit, 5)" immer die Fehlermeldung "Kann Objekt nicht zuweisen", habe schon so viel versucht, bin mit meinem Latein am Ende wo liegt der Fehler?

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: