Filter aansturen met togglebutton

[wieter]

In bijlage wordt de filter (via een textbox) aangestuurd door 2 knoppen.
Graag wil ik nu de filter(textbox) aansturen met een togglebutton.
Ik heb echter nog nooit een togglebutton i.c.m. een textbox gebruikt.
Hoe schrijf ik zo een code?

Bekijk bijlage 174358

 

[edmoor]

Kijk eens of dit is wat je wilt:

Private Sub ToggleButton1_Click()
    With ToggleButton1
        .Caption = IIf(.Value, "Alles tonen", "Zoeken")
    End With
    Select Case LCase(Togglebutton1.Caption)
        Case "zoeken"
            ' Code voor zoeken
        Case "alles tonen"
            ' Code voor Alles tonen
    End Select
End Sub

 

[wieter]

Prachtig Ed,
Achteraf lijkt het allemaal logisch, maar ik zou het zelf toch niet gevonden hebben.
Voor wie geïnteresseerd is in de oplossing, zie bijlage.
Bedankt Ed

Bekijk bijlage 174374