Speciale tekens in zoekfunctie

[JeroenMioch]

Beste mensen,

Ik loop tegen een nogal grote bug aan in het formulier van mijn database.
Als ik in mijn zoekveld "FilterNaam" een naam met een apostrophe erin zoek dan
krijg ik foutmelding 3075 operator ontbreekt.

Dit is de code waarmee ik zoek :

Private Sub FilterNaam_AfterUpdate()
    
    Me.FilterPNummer = ""
    Me.FilterKenteken = ""
    Me.Filtersticker = ""
    Me.Filter = "Naam like '*" & Me.FilterNaam & "*'"
    Me.FilterOn = True
       
Exit_FilterNaam_AfterUpdate:
    Exit Sub

Err_FilterNaam_AfterUpdate:
    MsgBox Err.Description
    Resume Exit_FilterNaam_AfterUpdate
    
End Sub

Nou kan ik wel voorkomen dat het teken word ingevoerd in het veld met een excludelist, maar dat zou niet reeel zijn, Namen met Apostrophe erin komen best vaak voor. Het verbaasd me eigenlijk dat ik pas nu achter de bug kom aangezien de applicatie al twee jaar draait.

Weet iemand hoe ik dit netjes kan oplossen ?

 

[OctaFish]

Op een formulier met 26 knoppen voor de letters gebruik ik de volgende truc om een filter op te bouwen met diacrieten er in:

    sFilter = sFilter & "WHERE Locatie LIKE " 'Start van beperking
    
    'Bepaal welke toggle button gekozen is en laat daarvan de strLetters afhangen.
    Select Case Me.fraSelect
        Case 1
            strLetters = "'[AÀÁÂÃÄÅÆaàáâãä]*'"
        Case 2
            strLetters = "'[Bb]*'"
        Case 3
            strLetters = "'[CÇcç]*'"
        Case 4
            strLetters = "'[Dd]*'"
        Case 5
            strLetters = "'[EÈÉÊËeèéêë]*'"
etc.

    'Bouw de uiteindelijke string op
    sFilter = sFilter & strLetters
    Me.Filter = sFilter
    Me.FilterOn = True

Misschien kun je er wat mee..

 

[Tardis]

Vervang in je code deze regel

Me.Filter = "Naam like '*" & Me.FilterNaam & "*'"

door

Me.Filter = "Naam like ""*" & Me.FilterNaam & "*"""

Tardis

 

[JeroenMioch]

Bedankt heren,

Ik heb uiteindelijk voor Tardis zijn oplossing gekozen omdat deze gelijk werkte en ik verder geen beperkingen zie.

Met vriendelijke groet :

Jeroen