radicalgamer
Gebruiker
- Lid geworden
- 27 feb 2010
- Berichten
- 595
Hoi,
Ik ben bezig met een programma om bestandspermissies e.d. aan te passen, daarin staan dan een aantal gebruikers en per gebruiker staan er 3 tot 4 checkboxes achter met 'read', 'write', 'full-access' en 'deny-access'.
Nou wil ik als er op de Oke knop geklikt wordt dat de invoer gecontroleerd wordt, dus als een gebruikers 'write' toegang heeft dat 'read' ook aan staat, anders heeft de gebruiker er weinig aan
.
Maar ipv dan per gebruiker een lijst met if statements te maken zou ik graag een functie ervoor maken die je oproept als bijv. CheckPermissions("Administrator").
De namen van de checkboxes zijn voor Administrator dan ook 'Administrator_read', 'Administrator_write' enz.
Dus ik dacht iets in de zin van:
Dit is dan in die function, die dus eerst de waardes van de checkbox in kwestie ophaalt, de permissies controleert en dan eventuele wijzigingen toepast:
Nou is die waarde dus readonly...
Uiteindelijk wil ik dus een CheckBox aanspreken vanuit een string, die string is de naam van de checkbox.
Ik ben bezig met een programma om bestandspermissies e.d. aan te passen, daarin staan dan een aantal gebruikers en per gebruiker staan er 3 tot 4 checkboxes achter met 'read', 'write', 'full-access' en 'deny-access'.
Nou wil ik als er op de Oke knop geklikt wordt dat de invoer gecontroleerd wordt, dus als een gebruikers 'write' toegang heeft dat 'read' ook aan staat, anders heeft de gebruiker er weinig aan
.Maar ipv dan per gebruiker een lijst met if statements te maken zou ik graag een functie ervoor maken die je oproept als bijv. CheckPermissions("Administrator").
De namen van de checkboxes zijn voor Administrator dan ook 'Administrator_read', 'Administrator_write' enz.
Dus ik dacht iets in de zin van:
Code:
Dim Box as Checkbox
Box = Me.Controls(Me.Controls.IndexOfKey("Administrator_read"))Dit is dan in die function, die dus eerst de waardes van de checkbox in kwestie ophaalt, de permissies controleert en dan eventuele wijzigingen toepast:
Code:
Box.Checked=True 'Als voorbeeld, in het programma is dit natuurlijk afhankelijk van de andere permissies...
Me.Controls(Me.Controls.IndexOfKey("Administrator_read")) = BoxNou is die waarde dus readonly...
Uiteindelijk wil ik dus een CheckBox aanspreken vanuit een string, die string is de naam van de checkbox.
