Hallo,
ik heb een database met daarin de gegevens van de leden van een sportclub. Ik heb ook al een formulier waarin ik de gegevens van de leden krijg als lijst. Op dat formulier heb ik een knop geplaatst om te filteren. De code van de knop:
Private Sub formulierfilter_Click()
On Error GoTo Err_formulierfilter_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 0, acMenuVer70
Exit Sub
Exit_formulierfilter_Click:
Exit Sub
Err_formulierfilter_Click:
MsgBox Err.Description
Resume Exit_formulierfilter_Click
End Sub
Deze knop werkt, als ik er op klik krijg ik inderdaad een leeg formulier met daarin velden waarin ik waarden kan invullen of uit lijsten halen, maar om de resultaten te zien moet ik nog altijd op de knop "Filter toepassen" in de werkbalk klikken en ik zou willen dat dit ook automatisch gebeurd bevoorbeeld nadat de gebruiker op de Enter-toets drukt.
Iemand suggesties hoe dit kan.
Alvast bedankt,
Jan
ik heb een database met daarin de gegevens van de leden van een sportclub. Ik heb ook al een formulier waarin ik de gegevens van de leden krijg als lijst. Op dat formulier heb ik een knop geplaatst om te filteren. De code van de knop:
Private Sub formulierfilter_Click()
On Error GoTo Err_formulierfilter_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, 0, 0, acMenuVer70
Exit Sub
Exit_formulierfilter_Click:
Exit Sub
Err_formulierfilter_Click:
MsgBox Err.Description
Resume Exit_formulierfilter_Click
End Sub
Deze knop werkt, als ik er op klik krijg ik inderdaad een leeg formulier met daarin velden waarin ik waarden kan invullen of uit lijsten halen, maar om de resultaten te zien moet ik nog altijd op de knop "Filter toepassen" in de werkbalk klikken en ik zou willen dat dit ook automatisch gebeurd bevoorbeeld nadat de gebruiker op de Enter-toets drukt.
Iemand suggesties hoe dit kan.
Alvast bedankt,
Jan
