Hallo
Dit is wat ik graag had gewild.
Ik heb een paar checkboxen staan op mijn formulier met naam "Volledigewandenbeheer"
als ik 1 van de checkboxen aan vink moeten de ander verdwijnen (alsook hun label).
Omdat er hier veeeeeel code voor nodig is (meer copy paste dan wat anders) ben ik van plan om dit in een module te steken en dan in mijn formulier die module aan te roepen.
Dit is wat ik heb voor 1 checkbox (ik heb er 9 staan op mijn formulier):
In mijn formulier Volledigewandenbeheer:
En dit als module VWCHEKBOX:
Hij toont wel die msgbox maar voor de acties eronder niet uit.
Als ik de acties rechtstreeks in mijn formulier plaats werkt het perfect. Ik snap het niet echt.
Hulp en/of een efficiëntere manier van werken zijn altijd welkom.
Dit is wat ik graag had gewild.
Ik heb een paar checkboxen staan op mijn formulier met naam "Volledigewandenbeheer"
als ik 1 van de checkboxen aan vink moeten de ander verdwijnen (alsook hun label).
Omdat er hier veeeeeel code voor nodig is (meer copy paste dan wat anders) ben ik van plan om dit in een module te steken en dan in mijn formulier die module aan te roepen.
Dit is wat ik heb voor 1 checkbox (ik heb er 9 staan op mijn formulier):
In mijn formulier Volledigewandenbeheer:
Code:
Private Sub chkboxhswg_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxhswg.CheckedChanged
Call CONTROLECECKBOX()
End Sub
En dit als module VWCHEKBOX:
Code:
Module VWCHEKBOX
Public Sub CONTROLECECKBOX()
My.Forms.Volledigewandenbeheer.chkboxhswgp.Visible = True
My.Forms.Volledigewandenbeheer.lblhswgp.Visible = True
My.Forms.Volledigewandenbeheer.chkboxhswgp.Visible = True
My.Forms.Volledigewandenbeheer.lblhswgp.Visible = True
My.Forms.Volledigewandenbeheer.chkboxhswr.Visible = True
My.Forms.Volledigewandenbeheer.lblhswr.Visible = True
My.Forms.Volledigewandenbeheer.chkboxhswiso.Visible = True
My.Forms.Volledigewandenbeheer.lblhswiso.Visible = True
My.Forms.Volledigewandenbeheer.chkboxhswmr.Visible = True
My.Forms.Volledigewandenbeheer.lblhswmr.Visible = True
My.Forms.Volledigewandenbeheer.chkboxfswg.Visible = True
My.Forms.Volledigewandenbeheer.lblfswg.Visible = True
My.Forms.Volledigewandenbeheer.chkboxfswc.Visible = True
My.Forms.Volledigewandenbeheer.lblfswc.Visible = True
My.Forms.Volledigewandenbeheer.chkboxbswr.Visible = True
My.Forms.Volledigewandenbeheer.lblbswr.Visible = True
My.Forms.Volledigewandenbeheer.chkboxbswg.Visible = True
My.Forms.Volledigewandenbeheer.lblbswg.Visible = True
If My.Forms.Volledigewandenbeheer.chkboxhswg.Checked = True Then
My.Forms.Volledigewandenbeheer.chkboxhswgp.Visible = True
My.Forms.Volledigewandenbeheer.lblhswgp.Visible = True
My.Forms.Volledigewandenbeheer.chkboxhswgp.Visible = False
My.Forms.Volledigewandenbeheer.lblhswgp.Visible = False
My.Forms.Volledigewandenbeheer.chkboxhswr.Visible = False
My.Forms.Volledigewandenbeheer.lblhswr.Visible = False
My.Forms.Volledigewandenbeheer.chkboxhswiso.Visible = False
My.Forms.Volledigewandenbeheer.lblhswiso.Visible = False
My.Forms.Volledigewandenbeheer.chkboxhswmr.Visible = False
My.Forms.Volledigewandenbeheer.lblhswmr.Visible = False
My.Forms.Volledigewandenbeheer.chkboxfswg.Visible = False
My.Forms.Volledigewandenbeheer.lblfswg.Visible = False
My.Forms.Volledigewandenbeheer.chkboxfswc.Visible = False
My.Forms.Volledigewandenbeheer.lblfswc.Visible = False
My.Forms.Volledigewandenbeheer.chkboxbswr.Visible = False
My.Forms.Volledigewandenbeheer.lblbswr.Visible = False
My.Forms.Volledigewandenbeheer.chkboxbswg.Visible = False
My.Forms.Volledigewandenbeheer.lblbswg.Visible = False
Else
End If
End Sub
End Module
Hij toont wel die msgbox maar voor de acties eronder niet uit.
Als ik de acties rechtstreeks in mijn formulier plaats werkt het perfect. Ik snap het niet echt.
Hulp en/of een efficiëntere manier van werken zijn altijd welkom.