Zoekfuntie in Access formulier maken

[john2]

Ik ben bezig om een zoekformulier te maken voor een database van mijn werk. Er moet onder andere aangegeven kunnen worden wat er gezocht moet worden, of het exacte woord of een deel ervan gezocht moet worden, etc. Verder moet het ook mogelijk zijn om op meerdere zoekcriteria tegelijk te zoeken, bijvoorbeeld: op artikelnummer, omschrijving en opmerking.

Hier heb ik een afbeelding van het formulier:


Als ik in het veld omschrijving of opmerking naar een deel van het woord of zin zoek, dan wordt er niks gevonden. alleen wanneer ik de volledige zin intyp dan vind die dat.


Deze programma code staat achter de velden Artikelnummer, Omschrijving en Opmerking. Deze code wil ik dus zo hebben dat als ik in één van deze velden op een gedeelte van een woord of zin zoek dat ik dan de zoekresultaten krijg. Artikelnummer is hier de primaire sleutel.

[whoami]

En wat is de vraag nu precies ?
Zowiezo horen Access specifieke problemen eerder thuis in Officesuites en -software

[john2]

De vraag is wat voor code ik het beste kan gebruiken om dit voor elkaar te krijgen. Ik heb de volgende code al geprobeerd, maar met deze kreeg ik het niet voor elkaar om er voor te zorgen dat ik in de velden Omschrijving of Opmerking op enkele trefwoorden kon zoeken;


Option Compare Database

Private Sub Keuzelijst_met_invoervak16_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[ArtikelNummer] = '" & Me![Keuzelijst met invoervak16] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Keuzelijst_met_invoervak22_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Omschrijving] = '" & Me![Keuzelijst met invoervak22] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Keuzelijst_met_invoervak24_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Opmerkingen] = '" & Me![Keuzelijst met invoervak24] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

[Compusmurf]

Je kunt dit doen door een filter toe te passen. Ik heb het even nagekeken wat de code is.

code:

    Me.Filter = strConditie
    Me.FilterOn = True

Hierbij is strConditie een variabele waarin de conditie zit, bijvoorbeeld van het invoerveld.

Je kunt dit doen bij onchange van het zoekveld maar ook dmv een button doen.

[john2]

Zorgt dit filter er voor dat ik op gedeelte van een naam kan zoeken i.p.v. dat ik deze volledig in moet typen? Waar moet ik deze tussen plaatsen? Ik heb nog niet zo veel ervaring met programmeren in VB.

[Compusmurf]

john2 schreef op woensdag 21 februari 2007 @ 14:01:
Zorgt dit filter er voor dat ik op gedeelte van een naam kan zoeken i.p.v. dat ik deze volledig in moet typen? Waar moet ik deze tussen plaatsen? Ik heb nog niet zo veel ervaring met programmeren in VB.

Ja, daar zorgt dit voor. Je kunt het beste eerst plaatsen op een button.