Hallo Leute,
ich komme einfach nicht weiter mit meinem Problem. Und benötige mal wieder eure Hilfe.
Ich habe im Internet eine Anmeldung für eine DB gefunden, läuft auch super.
Da kann man sich mit Berechtigungen Anmelden. Dann kommt es darauf an was der Benutzer für Rechte hat (schwach oder normal). Benutzer mit normalem Rechten können jedes Formular öffnen und Änderungen vornehmen, wobei mit einem schwachen Recht wird das Formular erst gar nicht geöffnet. Und man erhält die Meldung ,,Sie sind nicht berechtig das Formular zu öffnen".
Soweit der stand bis jetzt.
Nun würde ich es gerne so haben das, wenn ein Benutzer nur Leserechte hat, er im Formular keine Änderungen vornehmen kann. Und ein anderer Benutzer mit Lese/Schreibrecht auch daten ändern kann.
Nur wie bekomme ich das hin?
Habe mal eine Muster DB mit angehangen mit jetzigem Stand
Ich Danke schon mal für eure Hilfe
Hallo,
das könnte man beliebig aufbohren und verkomplizieren....
Für Deine Anforderung:
In einem Standard-Modul:
Public Function setRights(ich As Form)
Select Case DBRecht
Case "admin"
ich.RecordsetType = 0
Case "schreibrecht"
ich.RecordsetType = 0
Case "leserecht"
ich.RecordsetType = 2
Case Else
DoCmd.Close acForm, ich.Name
End Select
End Function
In jedem betroffenen Formular:
Private Sub Form_Open(Cancel As Integer)
setRights Me
End Sub
btw:
Schreibe in ALLE Modulköpfe "Option Explicit", wo noch nicht geschehen.
Debugge/kompiliere dann dringend die DB und eliminiere alle auftretenden Fehler.
Hallo DF6GL,
Danke dir für deine schnelle Antwort, es funktioniert super. :)