Environ("Username") til brugeradgangskontrol

Nedenstående aktiverer/deaktiverer en funktionsknap, alt afhængig af brugerens Windowslogon .... er det sådan du vil ????

Private Sub Form_Current()
Dim Rolle As String
   
    Rolle = DLookup("Rolle", "Tabel", "UserID = '" & Environ("Username") & "'")
   
    If Rolle = "1" Then
        Funktion.Enabled = True
    Else
        Funktion.Enabled = False
    End If

End Sub

En måde er at lave en tabel med brugernavn og så ja/nej felter for de kategorier, som du ønsker, eks.:

BrugerAdgang (tabelnavn)
id (autonr)
BrugerNavn (windowslogon)
Registrering (ja/nej)
Sikkerhed (ja/nej)
Administration (ja/nej)

og så brug:

Private Sub Form_Open(Cancel As Integer)
Me.Registrering.Enabled = DLookup("registrering", "brugeradgang", "brugernavn = '" & Environ("Username") & "'")
Me.Sikkerhed.Enabled = DLookup("sikkerhed", "brugeradgang", "brugernavn = '" & Environ("Username") & "'")
Me.Administration.Enabled = DLookup("administration", "brugeradgang", "brugernavn = '" & Environ("Username") & "'")
End Sub

På www.makeiteasy.dk under menuen downloads er det et fremragende eks. som langt hen af vejen gør præcis det du søger eks. hedder "Login-boks ved opstart og implementering af flere sikkerhedsniveauer", eks. anvender netop Environ ("Username") metoden til at validere hvilke roller en given bruger "spiller" i db via et simpelt gruppe-heraiki.

Jeg har ikke selv erfaringer med eks. men har dog kikket på det, og det fint ud.

Du kan downloade det omtalte eks. direkte, prøv evt. at tage et kik på det

Hej begge
Reelt giver I begge næsten identiske løsninger, men jensen´s løsning er lidt mere fleksibel, og viver mulighed for en lidt bredere/nemmere brugerstyring ( ligner mest mine egne idé )

Man I får point begge

Som -anders- skriver, er der andre metoder som også er brugbare

Håber fordelingen er ok