VBA Query Syntax (like function)

[tommeke1980]

Hey,

ik had graag via VBA vanuit Word een query gelanceerd die me alle records weergeeft waarin een bepaalde zoekterm voorkomt. Mijn code werkt wel wanneer de exacte zoekterm wordt weergeven, maar levert niets op wanneer ik slechts een deel van de exacte zoekterm ingeef (bijvoorbeeld slechts 4 letters van een 10-letterwoord, of slechts 1 woord van een zin met 10 woorden). Ik had al eens geprobeerd met '= like '%zoekterm%'', maar dit blijkt niet te helpen.

Iemand een idee?

Groeten,
Tom

Set dbs = OpenDatabase(ThisDocument.Path & "\agenda.mdb")

Set rstLessen = dbs.OpenRecordset("SELECT DISTINCT lessen.lescode from lessen WHERE lessen.vak='" & lbVakken.Text & "'")
    With rstLessen
        .MoveFirst
        If .EOF = False Then
            Do Until rstLessen.EOF
                lbLessen.AddItem .Fields("lescode")
                rstLessen.MoveNext
            Loop
        End If
    End With

 

[Dnereb]

Gebruik de Like operator in je SQL
het Procent teken zorgt ervoor dat er van alles voor of achter kan staan

Set dbs = OpenDatabase(ThisDocument.Path & "\agenda.mdb")

Set rstLessen = dbs.OpenRecordset("SELECT DISTINCT lessen.lescode from lessen WHERE lessen.vak LIKE '%" & lbVakken.Text & "%';")
    With rstLessen
        .MoveFirst
        If .EOF = False Then
            Do Until rstLessen.EOF
                lbLessen.AddItem .Fields("lescode")
                rstLessen.MoveNext
            Loop
        End If
    End With

 

[FESTER]

Berend,

welkom op het forum, kunnen we hier lekker discussieren

FESTER

 

[tommeke1980]

Dnereb,

blijkbaar moest ik de % nog veranderen door * (en de ; op het einde weglaten);
't werkt nu wel, dus thx.

Tom

 

[Dnereb]

Ja sorry,
% is voor 1 letterteken, en * voor een tekenreeks.

en dat haakje kan heel goed, je moet er wel rekening mee houden dat ik dit uit het blote hoofd schrijf omdat ik niet in jouw database werk en niet van plan ben om je tabbellen te reconstrueren. Daarom kan ik de code niet testen.