Hoofdmenu Access Database

[Ghostwalker]

Goedemorgen Forumleden,

Even een korte vraag.
Ik heb in mijn database een mooi inlogscherm.
Middels VBA programmering hebben de verschillende functionarissen toegang tot de verschillende formulieren.

Echter ik ben over dit programma administrator en ik vindt het niet netjes om met de shift key de beveiliging te omzeilen om zo in het hoofdmenu te komen.

Wat ik dus zoek is een VBA code die mij rechtstreeks naar mijn hoofdmenu van mijn database stuurt.

Iemand hier een suggestie?

Hieronder de VBA code:

Case 1 ' level1 menu
' validate Wachtwoord expiry
If PasswordPeriod < Date - 30 Then
strMsg = "Uw wachtwoord is verlopen, u moet nu uw wachtwoord wijzigen."
MsgBox strMsg, vbInformation, "Expired Wachtwoord"
DoCmd.OpenForm "frm_change_Password", , , "PID=" & Me.PID
Else
DoCmd.Close acForm, "frm_main"
DoCmd.OpenForm "frmSub"
End If

 

[OctaFish]

Dat lijkt mij simpel een kwestie van gebruikersrechten; als je een admin niveau hebt, dan open je het admin formulier i.p.v. een gebruikersniveau. Een beveiligde db is beveiligd, ook al log je in als admin. Je kunt met de Shift de beveiliging omzeilen, maar niet terwijl de db is geopend. Je zou dan (zo doe ik het zelf ook) met een knop de SHIFT beveiliging uit kunnen zetten, daarna de db opnieuw openen zonder beveiliging, en bij afsluiten de SHIFT toets weer aan zetten. Dat houdt dus wel in, dat je de db twee keer moet openen. Het zal je niet verbazen dat ik in de praktijk dit niet al te vaak doe...