Private view

Hi,

when I create an unvisible private view, I use following syntax:

dim db as NotesDatabase

Dim uiDb As NotesUIDatabase

Dim uiView As NotesUIView

Dim tmpview As NotesView

dim session as New NotesSession

Set db = session.CurrentDatabase

Set tmpview = db.GetView(“(view)”)

If tmpview Is Nothing Then

'View is nothing → create view

Set uiDB = uiWS.GetCurrentDatabase

Call uiDB.OpenView(“(view)”)

'opens the view

Set uiView = uiWS.CurrentView

Call uiView.Close

'does not work

End If

I want the view to be created if it doesn’t exist; after creating the view I want to close it.

But that doesn’t work.

Who knows why and got a solution ?

Thanks and regards,

Bernd

Subject: private view

Hi

It doesn’t work mainly because it is nonsense what your doing.

Use createview in the database class to create a view. Use the view class to add columns …

I’m not sure if you can create a private view that way.

regards

Jesper Kiaer

http://www.jezzper.com