[access 2003] beginnersfoutje: type mismatch bij searchform

[cor-gijs]

Dit is één van de eerste dingen die ik doe met Access. Ik heb een table met leveranciersgegeven en ik heb een form gemaakt waarmee ik de leveranciersgegevens kan zien (LeveranciersInfo). Nou wil ik een searchform (LeverancierZoeken)maken waarmee ik een leverancier kan vinden door (een gedeelte van) de naam in te vullen.
Na wat zoekwerk kwam ik een mooie HowTo tegen op internet, maar dit krijg ik helaas niet werken. Ik krijg steeds een runtime error '13' - Type mismatch
Hier mijn code

code:

Private Sub cmdFindLeverancier_Click()
Dim strFilter As String
Dim varItem As Variant

strFilter = ""
    If Not IsNull(Me!txtFindLeverancier) Then strFilter = strFilter & "[CRNAAM] Like  Chr(34) & " * " &Me!txtFindLeverancier& " * " & Chr(34) &"
    
If strFilter <> "" Then strFilter = Left$(strFilter, Len(strFilter) - 5)

DoCmd.OpenForm "LeveranciersInfo", , , strFilter

End Sub

(CRNAAM is hier de kolom met de leveranciersnamen)
Wat gaat hier fout.

Ik heb al geprobeerd om dit in te vullen ipv de hierbovenstaande regel:

code:

f Not IsNull(Me!txtFindLeverancier) Then strFilter = strFilter & "[CRNAAM] Like Me!txtFindLeverancier"

Dit werkt opzich wel, maar heeft twee nadelen:
1) ik moet de volledige naam van de leverancier invullen om resultaat te krijgen, dat is bij bijv. 'Firma Bakker & Zonen & dochters' wat onhandig
2) hij haalt geen info uit het textveld 'txtFindLeverancier' maar opent een nieuw schermpje waar ik mijn zoekcriterium opnieuw in moet vullen.

[Creepy]

Aangezien het over Access gaat verplaats ik het topic naar OFF. Zie ook P&W Beleid - Welke vragen kan ik hier stellen

[Lustucru]

Je maakt een puinzooi van je quotes en dubbel quotes. Makkelijkste manier om dit te debuggen is een regel op te nemen als

code:

debug.print strfilter

Je kunt dan precies nagaan wat de inhoud van strfilter wordt.

Uiteindelijk zal het iets moeten worden als

code:

[crnaam] Like 'Blabla*'

In je code moet dan iets komen staan als:

code:

strfilter="[crnaam] Like '" & txtfield & "'"

Zoals je ziet wordt alles tussen "" letterlijk overgenomen, de rest wordt als een variabele beschouwd waarvan de waarde wordt overgenomen.

[cor-gijs]

Bedankt, dit werkt (en is een stuk korter)