Formulär med villkorad visning av verktygsfält "Ribbon"

[MvS]

Hej där ute i forumet!

Jag försöker med mina högst begränsade kunskaper i VBA att göra två saker:

1. Att få en login-ruta att öppna ett formulär med olika villkor. Jag har fyra behörighetsnivåer varav nivå 1 är högsta behörigheten. För att ge ett presentabelt användargränssnitt använder jag kod-snutten: DoCmd.ShowToolbar "Ribbon", acToolbarNo för att förhindra onödigt fingrande i strukturen av obehöriga. Men jag vill kunna styra det hela så att den eller de som har högsta behörigheten (dvs 1) undantas från denna restriktion och att formuläret öppnas med "Ribbon" för dem.
2. Det andra är att när formuläret öppnas för alla, att i en kontroll ange "current user" dvs. inloggat användarnamn. Käll-(login)formuläret heter "frmLogin" med aktuell kontroll "cboUser" och målformuläret "Master" med aktuell kontroll "inlogg_ctrl". 

Någon bevandrad inom VBA som kan hjälpa mig? Login-skriptet har jag hittat på nätet men försöker med mina ringa kunskaper att "skohorna" in mina tillägg, givetvis med uselt resultat...

Bifogar det aktuella skriptet nedan. 

 

//Magnus

Login VBA.txt