title image


Smiley Richtig ist...


Me.Filter = BuildCriteria("Preistyp", dbText, Me!Text41) & _

" AND " & BuildCriteria("Rahmenvertragsnr", dbLong, Me!Text46)





oder auch gleich:



Me.Filter = "Preistyp='" & Me!Text41 & _

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



bzw., besser:



if Not Isnull(Me!Text41) And Not Isnull(Me!Text46) then

Me.Filter = "Preistyp='" & Replace(Me!Text41,"'","''") & _

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

end if



bzw. noch besser:



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





... wobei Feldnamen wie "Text41" nicht gerade optimal sind...


Gruß aus dem Norden
Reinhard


Bitte immer die Access-Version angeben!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: