Befehlsschaltfläche Sperren oder Ausblenden

[uwe01]

Hallo,
ich habe da eine DB wo sich jeder User mit seinen Namen und Passwort anmelden muss. Nun würde  Ich aber gerne nicht jeden User alle Befehlsschaltflächen freigeben.
Jetzt zu meiner Frage, kann man in einem erstellten Start Formular die eine oder andere Befehlsschaltfläche für bestimmte User Sperren oder  ausblenden. Und geht es vielleicht über die Anmeldung in der DB, da sich ja jeder User Anmeldet. Ich habe da mal eine kleine Test DB mit angehängt.
Ich habe da echt kein Plan, und habe auch noch nichts Passendes im Internet gefunden.
Hat da vielleicht jemand eine Idee, oder kann mir da jemand Helfen.

[Beaker s.a.]

Hallo Uwe,
Du hast ja in der Usertabelle die Eigenschaft "Schreibrecht". Auf diese
kannst du ja auch von überall her zugreifen.
Am einfachsten geht das IMO mit einer öffentlichen Property und einer
Function im Modul "mod_Benutzerdaten".

Code [Auswählen] Erweitern

Option Compare Database
Option Explicit
'!!! Diese Zeile musst du in ALLE Module eintragen.
' Das geht auch automatisch -> Menu "Extras" - "Optionen" - Häkchen setzten bei "Variablendeklaration erforderlich"
'-------------------------------------------------------------------------------

Private m_Benutzer As Long

Public Property Let Benutzer(ByVal lNewValue As Long)
    m_Benutzer = lNewValue
End Property

Public Property Get Benutzer() As Long
    Benutzer = m_Benutzer
End Property

Public Function GetSchreibrecht() As Boolean
    GetSchreibrecht = DLookup("Schreibrecht", "tbl_Benutzer", "BenutzerID = " & Benutzer)
End Function

Im Log-In-Formular setzt du dann nach erfolgreichem Log-In die
Property auf die BenutzerID

Code [Auswählen] Erweitern

        Benutzer = Me.BenutzerID
Jetzt kannst du an allen Stellen wo du es brauchst einfach Folgendes machen

Code [Auswählen] Erweitern

If GetSchreibrecht Then blabla
'oder
Me.DeinButton.Visible = GetSchreibrecht
'oder
Me.DeinButton.Enabled = GetSchreibrecht

gruss ekkehard

[uwe01]

Hallo Eberhard,
Dein Vorschlag hört sich interessant an, werde ich Mal ausprobieren. Und mal sehen ob ich damit klar komme.
Gruß Uwe