Kan methode of gegevenslid niet vinden

[Lijst]

beste,

Ik krijg steeds de foutcode: kan methode of gegevenslid niet vinden.
weet iemand wat er fout is in mijn code, ik geraak er niet uit.

Private Sub Kader16_AfterUpdate()
Zoeken = ""
Zoeken.SetFocus

End Sub

Private Sub Tekst12_Click()
strRowsource = "SELECT [ARTNO_OR], [ART_OM], FABR " & "FROM Artikels schrauwen"
Keuzelijst27.RowSource = strRowsource
End Sub

Private Sub Zoeken_Change()
If Kader16 = 1 Then 'Artikel Nummer
strRowsource = "SELECT [ARTNO_OR], [ART_OM], FABR " & "FROM Artikels schrauwen" & _
"WHERE [ARTNO_OR]Like '" & Me.txtSearch.Text & "*'"
ElseIf Kader16 = 2 Then 'Omschrijving
strRowsource = "SELECT [ARTNO_OR], [ART_OM], FABR " & "FROM Artikels schrauwen" & _
"WHERE [ART_OM]Like '" & Me.txtSearch.Text & "*'"
Else 'Merk
strRowsource = "SELECT [ARTNO_OR], [ART_OM], FABR " & "FROM Artikels schrauwen" & _
"WHERE FABR]Like '" & Me.txtSearch.Text & "*'"
End If

End Sub

Alvast bedankt voor de hulp

 

[OctaFish]

Er zitten nogal wat fouten in de code dus het verbaast me niks dat je fouten krijgt. Belangrijkste (en vaak voorkomende) fout: ontbrekende spaties. daarnaast ontbreekt in de Else nog een rechte haak.. En je gebruikt een eigenschap (.Text) die je op dat moment niet mag gebruiken. Verder kan je code wat strakker, dus dat heb ik ook gelijk maar aangepast. Ik neem aan dat je fout in de sub Zoeken zit, want de eerste twee zullen wel lopen.

    strRowsource = "SELECT [ARTNO_OR], [ART_OM], FABR FROM Artikels schrauwen "
    Select Case Me.Kader16
        Case Is = 1 'Artikel Nummer
            strRowsource = strRowsource & "WHERE [ARTNO_OR] Like """ & Me.txtSearch.Value & "*"""
        Case Is = 2 'Omschrijving
            strRowsource = strRowsource & "WHERE [ART_OM] Like """ & Me.txtSearch.Value & "*"""
        Case Else 'Merk
            strRowsource = strRowsource & "WHERE [FABR] Like """ & Me.txtSearch.Value & "*"""
    End Select

Als laatste nog een 'fout' die niks met Access te maken heeft: je hebt je code niet opgemaakt met de CODE tag. En dat maakt code behoorlijk slecht leesbaar. Volgende keer dus de CODE tags of knop gebruiken.