[Access 2003] Zoekfunctie / filterzoek, beginners vraag?

  • Onderwerp starter Onderwerp starter t00j
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

t00j

Nieuwe gebruiker
Lid geworden
5 nov 2007
Berichten
2
Beste helmijérs

Graag zou ik een zoekfunctie in mijn formulier willen. Hoewel ik niet weet op welke criteria ik moet googlen om mijn probleem / oplossing te vinden.

"Zoek op zoekfunctie access en je vind alles!"
Ja, heb ik gedaan (of niet voldoende / of niet gericht) maar ik weet op dit moment even niet waarop ik moet zoeken. Ik heb geprobeerd om in de VB code op "selText" SetFocus en BeforeUpdate te zoeken. Maar daar kom ik niet uit.

"Wat heb je nu?"
Ik heb een formulier met 2 textboxen. TextboxA zit in de formheader en TextboxB zit in de detail gedeelte. TextboxB is een herhalende gedeelte (detailview = continuous form). Data in de tabel wordt onder elkaar getoond in het formulier. Wanneer ik een letter invoer dan rangschikt de lijst op de letter wat ik heb aangegeven. Als ik meer letters wil invoeren dan reset die de zoekactie en zoekt het als het ware op een ander letter. Wanneer ik artikel of naam kopieer in notepad en plak in access dan pakt die wel de hele invoer.

1.
--------------------------------------------------------------------------------------------------------------------------------
TextboxA
____


TextboxB

aap
noot
mies
mega
jan
kees
mark
stoel
moor
henk
mogo

--------------------------------------------------------------------------------------------------------------------------------

2.
--------------------------------------------------------------------------------------------------------------------------------
TextboxA
_m___


TextboxB

mies
mark
mega
moor
mogo

--------------------------------------------------------------------------------------------------------------------------------

"Wat wil je precies?"
Ik wil graag, hoe exacter de invoer in TextboxA wor, hoe nauwkeuriger mijn zoekresultaat word.

3.
--------------------------------------------------------------------------------------------------------------------------------
TextboxA
_mo___


TextboxB

moor
mogo

--------------------------------------------------------------------------------------------------------------------------------

Volgens mij moet dat toch vrij makkelijk gaan? Is het mogelijk dat jullie me kunnen helpen of in ieder geval in de goede richting kunnen sturen? Waar kan ik bijvoorbeeld op googlen?

met vriendelijke groet,
t000j
 
Ik heb de code van accesspower.nl <zoeken op ontwikkelend veld> maar ik weet niet waar ik de code moet plaatsen.

Private Sub psFillListBox(blnSelectie As Boolean)
On Error GoTo err_psFillListbox
'Vult listbox

'De string die de basis van de SQL wordt.
Dim strSQL As String

'Selecteer alle velden en records van de query
'Deze query aanpassen met eigen inhoud!
strSQL = "SELECT * FROM qryfrmPersonenSBD1stSelection "

'Als records wilt beperken met invullen textbox, roep je sub aan met parameter-waarde: True.
'Dan moet de resultaat van SQL worden beperkt tot records die aan opgegeven criterium voldoen.
If blnSelectie = True Then

strSQL = strSQL & WHERE txtPersoonAchternaam LIKE '*" & Me.txbSearch.Text & "*'"

End If
 
Laatst bewerkt:
Zet onderstaande VBA code bij de procedure na bijwerken (Change) van je zoekveld. Eventueel de naam van het zoekveld aanpassen.

Private Sub txbSearch_Change()
'Elke keer als er iets wijzigt in texbox, moet selectie worden veranderd.
'Met parameter: True, omdat niet alle records moeten worden getoond.

Call psFillListbox(True)

End Sub

Hiermee roep je de procedure aan na het bijwerken van je zoekveld.

mvg
Charles
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan