ENTF Taste weg nehmen

[Googlesucher]

moin

möchte gerne wie hier:
http://atnotes.de/index.php/topic,35092.0.html
die ENTF-Taste wegnehmen für den normalen USER.
Also soll nix passieren wenn er die Taste drückt jedoch habe ich das dazugehörige nicht gefunden(Querydocumentdelete). Wo muss ich das denn einfügen wenn ich es auch nutzen will.
Hab grad einen Black Out.

Bitte um Hilfe

LG Paul

[Glombi]

Im Design der Datenbank unter Andere -  Datenbankressourcen - Datenbank-Script

Andreas

[Googlesucher]

Also ich hab seit deiner Antwort alles durchsucht und komme einfach nicht auf die Punkte. Kann es sein das Du eine andere Version verwendest?
ich verwende die R5 also müssten die Menüpunkte doch gleich sein.

Ich verstehe das nicht mehr!

LG Paul

[dirk_2909]

Sollte auch bei R5 gleich sein. kann es leider ;-) nicht nachvollziehen, da ich kein R5 mehr habe.

[Googlesucher]

Hmm ich find es nicht ich werde nun erstmal schluss machen für heute und vllt hab ich morgen mehr glück dabei und finde es.
Bis morgen dann und danke bis hierher für die Hilfe

LG Paul

[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

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:
 
 
 
 
 
 
 

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

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?

[BigWim]

Wenn es darum geht, die Meldung nicht mehr anzuzeigen, kommentiere die "MessageBox" aus oder lass den Text "nur" in der Statuszeile erscheinen.

Code:

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

Markus

[Googlesucher]

ok danke nun  ist es so wie ich es will und ich danke für die Hilfe

Liebe Grüße Paul