Schaltfläche mit anderer Berechtigung?

Rene · 22. Mai 2007

Guten Morgen,

ich habe eine Schaltfläche, womit eine lokale Replik erstellt wird. Zuvor wird aber eine Replikationsformel auf dem Server hinterlegt. Diese Formel ist vom User abhänging.

Es funktioniert auch alles, ABER nur wenn der User Manager Rechte in der Datenbank hat.

Jetzt ist es nicht meine Absicht, das alle Mitarbeiter Manager-Rechte bekommen.

Kann ich dem Button andere Rechte zuweisen? Oder wie kann ich den Usern (Standardzugriff ist Leser) erlauben, eine Replizierformel zu erstellen?

Es ist ein Script-Agent, 6.5 Server und Client.

Vielen Dank für eure Antworten

René

Diali · 22. Mai 2007

Zitat

Kann ich dem Button andere Rechte zuweisen?

Nein, es wird immer mit den Rechten des ausführenden gearbeitet.

Wie sieht den die Replikationsformel aus? Besonders der userabhängige Teil.

Gruß
Dirk

Rene · 22. Mai 2007

Ich bin kein Programmierer. Also zerreist mich nicht gleich in der Luft, wenn es nicht perfekt ist. Aber es funktioniert.

Hier das Button:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession	
	Dim db As NotesDatabase
	Dim dbtest As NotesDatabase	
	Dim replica As NotesDatabase
	Dim rep As NotesReplication
	Dim re As NotesReplicationEntry
	Dim user As String

	user = session.UserName
	Set db = session.CurrentDatabase
	Set dbtest = session.GetDatabase("", "Datenbanken\" & db.Filename, False)

	If Not dbtest Is Nothing Then
		Msgbox "Die Datenbank existiert bereit auf ihrem lokalem System. Sie benötigen keine weitere Replik", ,"Information"
		Exit Sub
	End If

	If ( db.Server = "" ) Then
		Msgbox "Sie haben die Datenbank lokal geöffnet. Um eine Replik zu erstellen, müssen sie die Datenbank auf einem Server öffen.", ,"DB läuft auf einem Client"
	Else
		Msgbox "Es wird jetzt eine Replik auf Ihrem System erstellt. Nach dem Bestätigen dauert es unter Umständen einen Moment.", , "Information"
		Set rep = db.ReplicationInfo
		Set re = rep.GetEntry("-", user, True)
		re.Formula = "SELECT @IsMember(@UserName;UserServiceAgent) | @IsMember(@UserName;UserVertriebAgent) | @IsMember(@UserName;Namen) | @IsMember(@UserName;Server)"
		Call re.Save
		Set replica = db.CreateReplica("", "Datenbanken\" & db.Filename)
		Dim workspace As New NotesUIWorkspace
		Call workspace.AddDatabase( "", "Datenbanken\" & db.Filename)
	End If

End Sub

Alles anzeigen

Diali · 22. Mai 2007

packe mal den code in die dafür vorgesehenen Tags ([ code]...[/code]), dann kann man es besser lesen.

Was spricht dagegen die Formel direkt einzutragen, für alle User?

Gruß
Dirk

Rene · 22. Mai 2007

Hallo Dirk,

danke für den Hinweis mit dem Schaltern für den Code. Das habe ich nicht gewusst. Funktioniert aber super.

Zitat

Was spricht dagegen die Formel direkt einzutragen, für alle User?

Weil es nicht funktioniert hat. Ich habe es nicht hinbekommen, das es für alle funktioniert.

Gruß
René

Teilen