Ik zit met het volgende
Ik ben bezig met een niet al te ingewikkelde database in Access en heb deze ook bijna af. Bij de beveiliging blijkt mijn kunde echter niet voldoende
Er is ons gevraagd om de database zo te beveiligen voor onbevoegd gebruik dat bepaalde gebruikers de knoppen die toegang verschaffen tot een ander formulier niet zien. Het volstaat dus niet om gebruikers de toegang tot een formulier via de user and group permissions te ontzeggen
Even een voorbeeldje. Stel er is een formulier waarin je gebruikers kunt beheren, genaamd "gebruikersbeheer". Een baliemedewerker mag deze wel bekijken. Een sportinstructeur mag dit niet. In het hoofdmenu zit een knop met de naam " gebruikers beheren" die bij klikken het formulier "gebruikersbeheer" opent. Deze knop mag dus bij de sportinstructeur niet zichtbaar zijn
Nu heb ik de volgende code al een beetje bij elkaar gesprokkeld:
maar dat werkt natuurlijk niet zolang ik de huidige gebruiker niet zoek.
Mijn vraag is dus. Hoe krijg ik de huidig ingelogde gebruiker, zoals je die in de standaard access gebruikers en groepenbeheer kunt aanmaken, te pakken in visual basic.
Ik ben bezig met een niet al te ingewikkelde database in Access en heb deze ook bijna af. Bij de beveiliging blijkt mijn kunde echter niet voldoende
Er is ons gevraagd om de database zo te beveiligen voor onbevoegd gebruik dat bepaalde gebruikers de knoppen die toegang verschaffen tot een ander formulier niet zien. Het volstaat dus niet om gebruikers de toegang tot een formulier via de user and group permissions te ontzeggen
Even een voorbeeldje. Stel er is een formulier waarin je gebruikers kunt beheren, genaamd "gebruikersbeheer". Een baliemedewerker mag deze wel bekijken. Een sportinstructeur mag dit niet. In het hoofdmenu zit een knop met de naam " gebruikers beheren" die bij klikken het formulier "gebruikersbeheer" opent. Deze knop mag dus bij de sportinstructeur niet zichtbaar zijn
Nu heb ik de volgende code al een beetje bij elkaar gesprokkeld:
code:
1
2
3
4
5
6
7
| Private Sub Form_Load() DoCmd.Maximize Dim usr As DAO.User If usr.Name = "sportinstructeur" Then Knop35.Visible = False End Sub |
maar dat werkt natuurlijk niet zolang ik de huidige gebruiker niet zoek.
Mijn vraag is dus. Hoe krijg ik de huidig ingelogde gebruiker, zoals je die in de standaard access gebruikers en groepenbeheer kunt aanmaken, te pakken in visual basic.