---

Hej NG

Jeg skal lige høre om der er nogen her inde som kan hjælpe mig med hvordan
kan skal skrive en kriterie til en forspørgelse hvor den skal vis med de
poster som ikke overholder de tegn som jeg siger er tillad. Tegn som er
tilladt er: A-Z 0-9 _ " ( )

Jeg ved ikke hvor det er smarts at sætte denne regle ind henne, men jeg
kunne forstille mig det kunne være i kriterier eller en SQL setning, for mig
er der lige meget.

Hilsen
Lars

Krydspostet i
dk.edb.database.ms-access

---

Lars Grau wrote:
> Jeg skal lige høre om der er nogen her inde som kan hjælpe mig med hvordan
> kan skal skrive en kriterie til en forspørgelse hvor den skal vis med de
> poster som ikke overholder de tegn som jeg siger er tillad. Tegn som er
> tilladt er: A-Z 0-9 _ " ( )
>
> Jeg ved ikke hvor det er smarts at sætte denne regle ind henne, men jeg
> kunne forstille mig det kunne være i kriterier eller en SQL setning, for mig
> er der lige meget.

Jeg antager at databasen er MS Access siden du nu har postet der også.

Prøv:

Function RegexMatch(pattern As String, expr As String) As Boolean
Dim re As RegExp
Dim match As Boolean
Set re = New RegExp
re.pattern = pattern
re.Global = True
match = re.test(expr)
Set re = Nothing
RegexMatch = match
End Function

og:

SELECT ... WHERE RegexMatch("[^A-Z0-9_""()]",felt)

Arne

---

"Arne Vajhøj" <arne@vajhoej.dk> skrev i en meddelelse
news:4a402658$0$48240$14726298@news.sunsite.dk...
> Lars Grau wrote:
>> Jeg skal lige høre om der er nogen her inde som kan hjælpe mig med
>> hvordan kan skal skrive en kriterie til en forspørgelse hvor den skal vis
>> med de poster som ikke overholder de tegn som jeg siger er tillad. Tegn
>> som er tilladt er: A-Z 0-9 _ " ( )
>>
>> Jeg ved ikke hvor det er smarts at sætte denne regle ind henne, men jeg
>> kunne forstille mig det kunne være i kriterier eller en SQL setning, for
>> mig er der lige meget.
>
> Jeg antager at databasen er MS Access siden du nu har postet der også.
>
> Prøv:
>
> Function RegexMatch(pattern As String, expr As String) As Boolean
> Dim re As RegExp
> Dim match As Boolean
> Set re = New RegExp
> re.pattern = pattern
> re.Global = True
> match = re.test(expr)
> Set re = Nothing
> RegexMatch = match
> End Function
>
> og:
>
> SELECT ... WHERE RegexMatch("[^A-Z0-9_""()]",felt)
>
> Arne

Hej

Nu ved jeg godt hvor jeg jeg skrev det er mig lige meget hvor jeg skal sætte
det ind. Skal jeg lave et Modul eller hvor skal jeg skrive det henne ?

Undskyld min uvidenhed*S*

/Lars

---

> Nu ved jeg godt hvor jeg jeg skrev det er mig lige meget hvor jeg skal sætte
> det ind. Skal jeg lave et Modul eller hvor skal jeg skrive det henne ?
>

Yes, du sætter den ind i en modul, og bruger så den function i den
forspørgsel..

//MOL
www.OleZen.dk

---

"olesen" <mogenso@gmail.com> skrev i en meddelelse
news:6728698a-54ff-41f4-a9ca-a83a79cd01c9@k38g2000yqh.googlegroups.com...

> Nu ved jeg godt hvor jeg jeg skrev det er mig lige meget hvor jeg skal
> sætte
> det ind. Skal jeg lave et Modul eller hvor skal jeg skrive det henne ?
>

Yes, du sætter den ind i en modul, og bruger så den function i den
forspørgsel..

//MOL
www.OleZen.dk

Roger, men når jeg køre en debug i VBA får jeg en fejl i linie

Dim re As Regexp "Fejlen er User-defined type not defined"

Lars