Check if view exists

HCL Domino Domino Forum
1

The R4 PAB does not have a view called “Business Card”. I am writing a script to detect R4 PAB - check if a view called “Business Card” exists. What is wrong with me code below?

Dim s As New NotesSession

Dim ws As New NotesUIWorkspace

Dim Thisdb As NotesDatabase

Dim viewname As String

Dim view As NotesView

Dim Thatdb As New NotesDatabase( “”, “names.nsf” )

Set Thatdb = s.CurrentDatabase

Set view = Thatdb.GetView(“Business Cards”)

viewname=Evaluate(|@ViewTitle|)

Messagebox viewname

If view Is Nothing Then

Messagebox "View Not Found"

End If

2

Subject: check if view exists

There is no context in which to evaluate @ViewTitle, and you are setting ThatDb to the current database rather than leaving it as names.nsf.