title image


Smiley noch ein problem
hallo erwin,



deine hilfe für rüdiger passt recht gut auf mein problem. leider kann ich deinen tip nicht umsetzen.



in meiner abfrage habe ich die tabellen stamm und kunden. ich möchte nun kriterien erstellen und verwende dafür deinen code:





Public Function myOrge(pVar)



Dim krit As String



myOrge = False

If IsNull(pVar) Then Exit Function



krit = "2420 or 2430" ' zB.: "Hund or Katze or Vo*"

krit = BuildCriteria("'" & pVar & "'", dbInteger, krit)

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

'krit = replace(krit, "XxxxX", "'" & pVar & "'") ' gibt zB.: "'Vogel'='Hund' or 'Vogel'='Katze' or 'Vogel' like 'Vo*')

myOrge = Eval(krit)



End Function





in der abfrage habe ich beim feld "Abteilung" als kriterium eingestellt myOrge("Abteilung")



als fehler kommt nun "Typen unverträglich". ich habe es auch mit myOrge("Stamm.Abteilung") und allen möglichen variationen von " und [ ] probiert - ohne erfolg.

hast du noch einen heißen tipp?

(die replace-funktion habe ich auskommentiert und die hochkommas für "pVar" weiter oben schon integriert, da Access97 "replace" nicht kennt)
Gruß
Barcetta

(Homepage: Vergleich Win/Mac, Klassik-Autos)



geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: