[Access] zoekfunctie bouwen voor applicatie *

[bokkie11]

hoi ik heb een access applicatie gemaakt alleen wil ik nu nog een zoek functie er in hebben.

ik heb 2 velden gemaakt :
1 invoer veld txtZoek
1 keuzelijst kzl_zoektabel

in de keuzelijst staan alle velden(van 1 tabel) in de database en in txtzoek komt de expressie te staan waar gezocht naar moet worden.

nu had ik de volgende functie gemaakt:

code:

Private Sub knpzoek_Click()
If IsNull(Me![txtZoek]) Or (Me![txtZoek]) = "" Then
  MsgBox Me.kzl_zoektabel, vbOKOnly, "verkeerde zoek criteria!"
  Me![zoektekst].SetFocus
Else
  'Performs the search using value entered into zoektekst
  'and evaluates this against values in the tabels you selected in var
  Me.Filter = Me.kzl_zoektabel.Value & "=" & Me.txtZoek.Value
  Me.FilterOn = True
End If
End Sub

opzich werkt het wel alleen krijg ik elke keer een pop-up venster (parameter waarde opgeven) dat vraagt om een waarde terwijl ik deze al heb ingevoerd

[Verwijderd]

Hoe geef je die waarde dan in?
Anders krijg je namelijk dat popup venster niet, access komt dan die parameter tekort

Heb je al gedebugt om te controleren of je parameter inderdaad overkomt?

[ Voor 25% gewijzigd door Verwijderd op 07-04-2004 14:56 ]

[bokkie11]

de waarde geef ik in in het tekst veld txtzoek

[bokkie11]

ja hij komt wel over want het pop-up ding geeft de ingevoerde waarde weer

en daar onder een tekstvak om de waarde in te voeren

[bokkie11]

iemand een idee ???

[Lister]

Ik neem aan dat je op een string zoekt en dan moet je quotes om de tekst heen zetten.
Dus zoiets:

code:

Me.Filter = Me.kzl_zoektabel.Value & "='" & Me.txtZoek.Value & "'"