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.
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".
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
Benutzer = Me.BenutzerID
Jetzt kannst du an allen Stellen wo du es brauchst einfach Folgendes machen
If GetSchreibrecht Then blabla
'oder
Me.DeinButton.Visible = GetSchreibrecht
'oder
Me.DeinButton.Enabled = GetSchreibrecht
gruss ekkehard
Hallo Eberhard,
Dein Vorschlag hört sich interessant an, werde ich Mal ausprobieren. Und mal sehen ob ich damit klar komme.
Gruß Uwe