Hallo zusammen,
ich erstelle mit folgendem Script einen View, wenn dieser nicht schon existiert:
Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
Dim s As New NotesSession
Dim viewPriv As NotesView
Dim viewTemplate As NotesView
Set viewPriv = s.CurrentDatabase.GetView("VSdata")
If viewPriv Is Nothing Then
Set viewTemplate = s.CurrentDatabase.GetView("pVSdata")
Dim formula As String
formula = |jahr := @Text(@Year(t1)); | & _
|_monat := @Month(t1); | & _
|monat := @If( _monat<10; | & _
|"0" + @Text(_monat); | & _
|@Text(_monat)); | & _
|jahr + " - " + monat; | & _
|SELECT jahr = "| & uidoc.FieldGetText("sJahr") & |" & monat = "| & uidoc.FieldGetText("sMonat") & |";|
Set viewPriv = s.CurrentDatabase.CreateView("VSdata", formular, viewTemplate, False)
End If
End Sub
Mein Wunsch nun wäre daraus einen priv. View zu machen, da jeder User über eine Aktion seine Selektion ändern kann.
Da dieses für jeden inividuell sein soll, müsste ich private Views erstellen, aber wie lässt sich das machen ?
Hat von Euch evtl. einer einen Tip ?
Gruss JoFa