toch weer probleempje met filter

[jo geuens]

hoi deze filter werkt goed in een ander form maar hier vind deze niets
hier moet toch nog een fout zitten he
Bekijk bijlage filter1.zip

 

[OctaFish]

Typisch een kwestie van de klok horen luiden, maar waar zit toch die klepel .

Private Sub cboartikel_Click()

    If Me.cboartikel <> "" Then
        Me.Filter = "[Artikelnaam]=""" & Me.cboartikel.Column(1) & """"
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If

End Sub

Hier wil je filteren op een veld dat niet het resultaat is uit de keuzelijst (da's namelijk een ArtikelID). Je moet dus een ander veld uit de keuzelijst inlezen.

Private Sub cboleverancier_Click()

    If Me.cboleverancier <> "" Then
        Me.Filter = "[LeverancierID]=" & Me.cboleverancier
        Me.FilterOn = True
    Else
        Me.Filter = ""
        Me.FilterOn = False
    End If
End Sub

Hier filter je wel op een getalveld, dus hier moet je juist niet op een string filteren.

 

[jo geuens]

zo werk het wel merci