Sub Postopen(Source As Notesuidatabase)
Dim UserRoles As Variant
Dim int_x As Integer
UserRoles = Evaluate( {@UserRoles} )
For int_x = 0 To Ubound( UserRoles) Step 1
If UserRoles(int_x) = "" Then
Source.Close
End If
NextBesser wäre es natürlich, den Anwender erst gar nicht in die Datenbank zu lassen
Besser wäre es natürlich, den Anwender erst gar nicht in die Datenbank zu lassenIch hätte auch gesagt, dass der Zugriff über eine Rollen eindeutig in der ACL zu definieren ist.
ZitatBesser wäre es natürlich, den Anwender erst gar nicht in die Datenbank zu lassen
Macht man das nicht über die ACL ?
leider auch vorraussetzt, dass der User Edit-Rechte in der Vorlagendatenbank hat.
Es gibt immer mal wieder den Fall, dass man in einer Datenbank eben Leserechte braucht, dass man aber verhindern will, dass ein "normaler" Anwender eine Datenbank öffnet und darin navigiert.
ACL = Leser hält ihn hiervon ja nicht ab.