[Access / VBA] Knop: filter verwijderen

[Eusebius]

Met de wizard kun je netjes een knop maken die in een formulier het filter toepast. Nu wil ik echter deze knop zo maken, dat hij eerst checkt of het filter aan is, zo ja, hij het filter dan uitzet. Nu kan ik echter nergens de code vinden om simpelweg het filter uit te zetten!

Het zal om slechts 1 regel gaan ...

[Witte]

Errug simpel hoor!

code:

Private Sub Filter_Click()
If Me.FilterOn = False Then
  Me.FilterOn = True
Else
  Me.FilterOn = False
End If
End Sub

[Eusebius]

Hmmm kun je met Me. ook je filter besturen? Dat wist ik niet Ik zat nl steeds te klooien met

code:

DoCmd.DoMenuItem acFormBar, acRecordsMenu, 2, , acMenuVer70

die ik had via de wizard.

Feit is dat ik 12 jaar geleden voor het laatst met basic heb gewerkt; gister heb ik het één en ander in VBA gedaan, en het ging vrij goed - alleen dit ene dingetje dus niet. En je kunt het ook nergens vinden (voordat iemand RTFM roept, zie ook topic in HK)

[Eusebius]

Nope. Werkt niet

[Boss]

Misschien een Me.Requery na het filteren? Hoewel dat volgens mij niet nodig ozu moeten zijn.

[Witte]

Dit werkt bij mij prima, ik heb een knop die 'Filterknop' heet:

code:

Private Sub Filterknop_Click()
  Me.FilterOn = not(Me.FilterOn)
End Sub

Een requery is niet nodig bij filteren. Het is wel netjes om bij het openen van je formulier het filter 'goed' te zetten, uit of aan, net wat je wil.
Een en ander kan je natuurlijk ook met een wisselknop. De code zal er dan zo uitzien:

code:

Private Sub Filterwisselknop_Click()
  Me.FilterOn = Me.Filterwisselknop
End Sub

[ Voor 54% gewijzigd door Witte op 21-01-2005 11:00 ]