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