Benutzerdefinierte Ansicht öffnen

[Thunder]

Ich bins schon wieder.
Kennt jemand eine Möglichkeit, wie man beim starten einer DB eine ihm zugeordnete Ansicht automatisch öffnen lassen kann ?
zB. aus dem Namen @name([CN];@Username)   eine Ansicht öffnen, die genauso heißt, wie der User ?

[Rob Green]

hm... im PostOpen Event der Datenbank (!) kann man sowohl mit Formeln wie auch mit Script arbeiten und damit die zu öffnende Ansicht steuern. Wo das System die Infos bekommt, welche View zu öffnen ist, mußt Du vorher überlegen. Du hast es mit @name schon angedeutet. Doch bei 400 Usern müßtest Du 400 Views haben und wenn mich nicht alles täuscht, wird die DB alleine durch den Index für die einzelnen Views etwas fett ...

[Thunder]

Ist nur für meine EDV-Abteilung für die ToDo - DB.
Da gibt es nur ca.10 Ansichten. Das wäre nicht das Problem.
Es geht natürlich auch so, aber es wäre natürlich schon schön wenn...

[Rob Green]

ist das eine Frage oder eine Feststellung?  

wenn Frage: erstelle eine (1) "personal View at first use"
Select: @username=Feld_mit_Name_des_Zuständigen_Mitarbeiters
(kanonische Schreibweise, sonst @name([cn];@username)

Effekt: 1 Vorlageansicht
10 persönliche Ansichten mit persönlichen Dokumenten

Alternative B: Leserfeld mit Namen des MA und nur 1 öffentliche Ansicht.
Effekt: jeder sieht nur seine Docs

Alternative C: suche nach "single category" im Forum und/oder "embedded view"

Wenn Feststellung, Antwort: ja

[Axel]

Hi,

ich hab mal so was gemacht. Den Code habe ich in einen Agenten gepackt und den rufe ich im PostOpen-Event des Datenbank-Scriptes auf.

Hier der Code:

Sub Initialize
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace
   Dim uidb As NotesUIDatabase
   Dim strView As String
   
   Set uidb = workspace.CurrentDatabase
   
   
   'Startansicht festlegen. Kann auch z.B. aus ini-Datei geholt
                'werden.

   strView = "Name der Ansicht"

   If strView <> "" Then
      'Zielrahmen festlegen
                                Call workspace.SetTargetFrame("NotesView")
      Call uidb.OpenView(strView)
   End If  'If strView <> "" Then
   
   
End Sub

Axel