Variable voor de hele database

[test1000]

Hoi,

Met de code bij punt 1 kan ik de securitygroep uit de tabel T_users halen.
Securitygroep = supervisor, administrator, beheerder etc
Afhankelijk van de securitygroep zijn knoppen wel of niet zichtbaar op het formulier.
Nu zou ik graag in het switchboard form bij laden deze code plaatsen zodat ik dat niet in elke formulier bij laden met invullen.
Dan zou ik enkel

If security = 'supervisor' then button1.visible = false. If security = 'administrator'  etc

ed
'
Een soort variable dat je over de hele database kan gebruiken.

Punt 1 : bij form load

Dim Security As String
    Gebruiker = Environ("username")
'    'haalt veld usersecurity op uit tabel T_USERS om een rechtenniveau aan te geven
    Security = Nz(DLookup("[Usersecurity]", "T_users", "[Userlogin] = '" & Gebruiker & "'"), "unknown")

Alvast bedankt.

 

[OctaFish]

Een soort variable dat je over de hele database kan gebruiken.

Dat bestaat: een TempVar variabele. Die maak je aan op het moment dat je hem wilt vullen, en daarna kun je de variabele overal gebruiken. Tot in queries aan toe zelfs .

 

[OctaFish]

Heb de code er ook maar even bijgezocht:

    TempVars.Add Gebruiker, Environ("username")
    TempVars.Add "TotaalRecordsPD", Nz(DCount("*", "BronTabelPD"), 0)
    TempVars.Add "Security", Nz(DLookup("[Usersecurity]", "T_users", "[Userlogin] = """ & TempVars("Gebruiker") & """"), "unknown")