DB Anmeldung mit Rechten

[uwe01]

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

[DF6GL]

Hallo,

  das könnte man beliebig aufbohren und verkomplizieren....

Für Deine Anforderung:

In einem Standard-Modul:

Code [Auswählen] Erweitern

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:

Code [Auswählen] Erweitern

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.

[uwe01]

Hallo DF6GL,
Danke dir für deine schnelle Antwort, es funktioniert super.