Reset formulier na filter

[maomanna]

De filter werkt super!
Ook een functie waarbij de velden leeg worden gemaakt werkt goed.

Private Sub KnopWis_Click()
    cbocheck = ""
    cboscreen = ""
    cbobig = ""
    cboherbig = ""
End Sub

Nu zou ik graag willen dat als ik op de knop "reset filter" klik, dat het formulier weer naar beginstatus wijzigt.
Zeg maar hetzelfde als de knop Filter In/uitschakelen in de lint, maar dan met een knop in het formulier.

Hoe kan ik dat het beste aanpakken?

 

[OctaFish]

Die code had je toch al? Kun je de wis-actie gewoon bijzetten. Overigens zou ik altijd met Me. werken, en dat doe je niet .

Private Sub KnopWis_Click()
    With Me
        If Not sWhere & "" = "" Then
            .Filter = sWhere
            .FilterOn = True
        Else
            .cboCheck = ""
            .cboScreen = ""
            .cboBig = ""
            .cboHerbig = ""
            .Filter = ""
            .FilterOn = False
        End If
    End With
End Sub

 

[maomanna]

ok thanks!!

Wat is het voordeel van Me?
Nog geen idee hoe ik dat moet gebruiken.

 

[OctaFish]

Heel simpel: Me linkt je objecten aan je actieve formulier of rapport. Zodra je 'Me.' typt, kun je uit de lijst met beschikbare objecten kiezen. En daarmee maak je dus nooit meer een typefout. Dus cbochek zou fout kunnen zijn, terwijl Me.cbocheck altijd goed is. Bovendien is het een haartje sneller, maar dat merk je nauwelijks.