Hallo Phil,
So jetzt wollte ich Dir noch einen Konstruktiven Vorschlag machen, damit der "Leser" zumindest nicht so einfach in die Datenbank schauen kann:
im QueryOpen der View einbauen:
Sub QueryOpen(Source as NotesUIView, Continue as Variant)
continue = false
Dim S As New notesSession
Dim eval As Variant
eval = Evaluate({@UserRoles="[A]"})
if s.CurrentDatabase.Server = "" then
REM Lokal darf man reinsehen
continue = true
elseif eval(0) = "1" then
REM admins mit der Rolle [a] dürfen reinsehen:
continue = true
End if
End Sub
OK ich geb zu das lässt sich aushebeln - aber immerhin ein Anfang ;)
Grüsse, Pete(r)
PS.: will noch jemand was dazu beitragen? vielleicht bekommen wir noch die 100 voll !
@Forum Admin: welches Icon kommt denn dann:
!!!blink***fitz***leucht!!! :o
- ok, schade kein anderes, hab einen mit 207 Antworten (http://atnotes.de/index.php?topic=16422.0) gefunden -
Sorry, wollte eigentlich meinen Beitrag bearbeiten - hab ihn ausversehen zitiert.... sinds schon 98
- nachtrag: @klauss - danke für die #100 jetzt kann ich auch in Ruhe schlafen gehen.... ^-^