problemen met zoekfunctie VBA

[raul8711]

Geachte forummers,

Ik heb een probleem ondervonden met een zoekfunctie
in Acces.

Het volgende is het geval:

Bij het invullen van een bestaande recordwaarde in de zoekfunctie geeft het formulier alle resultaten van deze zoekopdracht, zoals het hoort.

Vul ik echter een niet bestaande waarde in, Bijvoorbeeld 3, terwijl alleen 1,2,4 en 5 bestaan. Dan
krijg ik een grijs scherm zonder tekstvelden of iets.

Wat kan ik hieraan doen? Iets toevoegen aan de code?

de code van de zoekfunctie is:

Private Sub Zoek_Click()
Dim strConditie As String

'selecteer
If Me.txtwinkel = "" Then
MsgBox "Geef het nummer van een winkel", vbExclamation

Else
If Me.txtwinkel <> "" Then
strConditie = "tblartikel_in_winkel_winkel like '" & Me.txtwinkel & "'"


End If
End If

'activeer filter
Me.Filter = strConditie
Me.FilterOn = True


'maak zoekvelden leeg
Me.txtwinkel = ""


End Sub

 

[beheer25]

Ik denk dat je dat niet makkelijk kunt oplossen als je gebruik maakt van filters.

Een alternatief kan zijn dat je in plaats van een vrij in te voeren tekstveld een keuzelijst bebruikt waaruit men kan kiezen. Daarin laat je dan m.b.v. een query alleen de geldige waarden zien.

Verder heeft de like functie die je gebruikt niet heel veel zin als je er geen wildcards omheen zet.
"tblartikel_in_winkel_winkel like '%" & Me.txtwinkel & "%'"
Dat heeft dan alleen zin als het veld in de database een tekstveld is. Als het een numeriek veld is kun je dat achterwegen laten en i.p.v. "like" "=" gebruiken.


Grtz,