title image


Smiley mit DeineFu() = "Hund oder Katze" wird das nix....
du könntest höchstens das Ganze in's Innere der Fu. packen, welche dann nur mehr True/False zurückgibt zB.



SELECT .... FROM tab WHERE test(tab.Feld);





Public Function test(pVar as variant) as boolean

dim krit as string

test = false

if isnull(pVar) then exit function

krit = .... deine Kriterien

'

' zB.: "Hund or Katze or Vo*"

' jetzt Trick 17 ;=)

krit = buildcriteria("XxxxX",dbText,krit)

' gibt zB.: "XxxxX='Hund' or XxxxX='Katze' or XxxxX like 'Vo*')

'

' jetzt Trick 18 ;=)

krit = replace(krit,"XxxxX","'" & pVar & "'")

' gibt zB.: "'Vogel'='Hund' or 'Vogel'='Katze' or 'Vogel' like 'Vo*')

test = EVal(krit)

'

end functionHTH Erwin...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: