Zoekopdracht

[Jackson1]

Goedenavond allemaal,

Ik heb een zoekfunctie gemaakt in een access base. De zoekfunctie werkt goed alleen ik moet wel de exacte omschrijving intypen. Nu wil ik dat hij de waarde ook vind als ik maar een gedeelte van het woord intyp. Het is waarschijnlijk iets met een"*" in het paarse gedeelte van de code (zie onder). Ik heb voor mijn gevoel alle combinaties al geprobeerd maar krijg het niet werkend. Iemand een idee?


Private Function FilterMaken()

Dim varWhere() As String
Dim intIndex As Integer, i As Integer

intIndex = 0

' Check for omschrijving
If Nz(Me.omschrijving, "") <> "" Then
intIndex = intIndex + 1
ReDim Preserve varWhere(intIndex)
varWhere(intIndex) = "[omschrijving] = '" & Me.omschrijving.Value & " '"

End If

' Check for Naam
If Nz(Me.CMBnaam, "") <> "" Then
intIndex = intIndex + 1
ReDim varWhere(intIndex)

varWhere(intIndex) = "[naam] = '" & Me.CMBnaam.Value & "'"

End If


End Function

 

[Bakk4318]

" & Me.omschrijving.Value & " '"

Wordt

" & "*" & Me.omschrijving.Value & "*" & " '"

 

[Greenery80]

Like

Wat je ook kunt gebruiken is "LIKE" ipv "is gelijk aan".
Wat je dan eigenlijk zegt is: het lijkt op -ipv- is gelijk aan.

varWhere(intIndex) = "[omschrijving] LIKE '*" & Me.omschrijving.Value & "*' "

 

[Jackson1]

Het werkt

Bedankt voor jullie reacties.

Ik heb de code van Charles gebruikt werkt perfect:thumb: