Dear all,
I'm trying to get a range of Togglebuttons to be enabled and fire a filter. Is there a way more efficient than this? any idea is appreciated since the coding page gets very long in this way.
Thank in advance.
Hans.
Private Sub Toggle282_AfterUpdate()
If Me.Tekst302 = 0 Then
Me.Toggle282 = False
Else
If Me.Toggle282 = True Then
DoCmd.GoToControl "query1"
DoCmd.SetFilter "", "[profiel type]=""vac""", ""
Me.Toggle25.Enabled = False
Me.Toggle23.Enabled = False
Me.Toggle37.Enabled = False
Me.Toggle31.Enabled = False
Me.Toggle44.Enabled = False
Me.Toggle41.Enabled = False
Me.Toggle47.Enabled = False
Else
DoCmd.GoToControl "query1"
DoCmd.RunCommand acCmdRemoveFilterSort
Me.Toggle25.Enabled = True
Me.Toggle23.Enabled = True
Me.Toggle37.Enabled = True
Me.Toggle31.Enabled = True
Me.Toggle44.Enabled = True
Me.Toggle41.Enabled = True
Me.Toggle47.Enabled = True
End If
End If
End Sub