Domino 9 und frühere Versionen > Entwicklung

ENTF Taste weg nehmen

<< < (2/3) > >>

jBubbleBoy:
Unter Andere | Datenbankressourcen

Warum die das wohl  so gut Versteckt haben ;)

Googlesucher:
Danke hab mal in nem Buch nachgeschaut und bin dann doch fündig geworden hab dort einfach nur den code:

--- Code: ---CONTINUE=FALSE
--- Ende Code ---
eingetragen und nun klappt das so und der Benutzer ist gezwungen über meinen Button zu löschen.
Aber nun habe ich mich ja auch gekickt mit dem Löschen.
Ich habe eine Versteckte Ansicht wo ich alle Dokumente sehe egal ob Aktiviert oder Deaktiviert. nun hab ich versucht dort eins zu löschen aber das geht leider auch nicht.

Kann ich es auf bestimmte Ansichten beschränken indem ich die ihm noch mitgebe wo es nicht erlaubt ist die Dokumente zu löschen?

LG Paul

jBubbleBoy:
Mein Tip mach das Löschen Rollenabhängig.
Man kann auch über NotesUiWorkspace.currentView.View
die aktuelle View auslesen

Googlesucher:
hmm das habe ich ja schon mehr oder weniger denn ich habe Rollen eingefügt um den Benutzern verschiedene Rechte zu geben.
Zum einen habe ich die Rollen wegen der bearbeitung damit nur bestimmte Benutzer Einträge bearbeiten können. Zwecks dem Löschen ist es so das es keiner machen soll sondern nur deaktivieren denn das Löschen wird anderweitig gelöst. Ich will ja mit dem löschen über den Button erreichen das der Benutzername in dem Dokument angefügt wird und das klappt alles nur eben ich als Admin der Datenbank kann nun auch nicht löschen.
Jetzt ist die Frage halt kann man das beschränken und wenn ja wie müsste der Quelltext aussehen um das es bei mir am ende so aussieht:
 :'(
 :-[
 ???
 :-\
 :)
 8)
 ;D

LG Paul

P.S. hat ja auch bei nem anderem geklappt mit den Quelltext nach der Bildergeschichte vllt auch bei mir.

Googlesucher:

--- Code: ---Sub Querydocumentdelete(Source As Notesuidatabase, Continue As Variant)
Dim workspace As New NotesUIWorkspace
Dim session As New NotesSession
Dim db As NotesDatabase
Dim uiView As NotesUIView
Dim doc As NotesDocument
Dim dc As NotesDocumentCollection
Dim acl As NotesACL
Dim entry As NotesACLEntry

Set db = Source.Database
Set acl = db.ACL
Set entry = acl.GetEntry( session.CommonUserName )
Set uiView = workspace.currentview
Set dc=Source.Documents

If entry Is Nothing Then
Set entry = acl.GetEntry( session.UserName )
End If

msg="Sie sind nicht berechtigt, Dokumente in der Ansicht "+uiView.viewName+" zu löschen"
titel="Keine Löschberechtigung vergeben"

If entry Is Nothing Then
Messagebox msg,64,titel
continue=False
Elseif entry.IsRoleEnabled( "[Admin]" ) Then
Goto delDocs
End If
Exit Sub

delDocs:
continue = False
answer = Messagebox("Vorgang fortsetzen",36,Cstr(dc.count)+" Dokument(e) löschen")
If answer=6 Then
For j = 1 To dc.Count
Set doc = dc.GetNthDocument( j )
doc.remove True
Next
End If
Call workspace.ViewRefresh

End Sub
--- Ende Code ---


So nun hab ich es so eingefügt jedoch hab ich noch folgendes Problem das dem User ewigkeiten eine Massage angezeigt wird wo man immer auf nein klicken muss also habt ihr da noch eine Idee wie ich das vllt lösen kann?

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete