I am getting the following error:Notes Error: Entry not found in index( viewname)
Here is a code snipit:
Sub DoServer(srvr As String)
Dim session As New NotesSession
Dim db As NotesDatabase
Dim view As NotesView
Dim viewO As NotesView
Dim doc As NotesDocument
Dim item As NotesItem
Dim IsGrp As String
Dim GrpNme As String
Dim SrvNme As String
Dim dbFNme As String
Dim dbFPath As String
Dim Srv As String
Dim tmp As String
Set db = session.CurrentDatabase
Set dbNAB = session.GetDatabase (srvr, "names.nsf")
Set viewNAB = dbNAB.GetView("Groups")
Set view = db.GetView("ByMajorACL")
Set nav = view.CreateViewNavfromCategory(srvr)
Set catA = nav.GetFirst()
key = catA.ColumnValues(1)
Set viewO = db.GetView ("ByOverview" )
Set docAppName = viewO.GetDocumentByKey ( key)
If Not (docAppName Is Nothing) Then
Set catB = nav.GetChild(catA)
While Not (catB Is Nothing)
If catB.IsCategory Then
x= catB.ColumnValues(2)
IsGrp= Strleft(x, "~")
tmp= Strright(x, "~")
SrvNme = Strleft(tmp,"~")
GrpNme= Strright(tmp, "~")
' add code for = if IsGrp is ""
Select Case (IsGrp)
Case "":
Set item = docAppname.AppendItemValue( "Actions", "Missing Data:" + SrvNme )
'docAppname.Actions = "Missing Data" + SrvNme
Call docAppName.Save(False, True)
Case "N":
Set item = docAppname.AppendItemValue( "Actions", GrpNme + " is not a group" )
Call docAppName.Save(False, True)
End If
End Select
' not working
Set catC = catB
Set catB = nav.GetNextCategory(catC)
End If
Wend
key = catA.ColumnValues(1)
Set docAppName = viewO.GetDocumentByKey ( key )
End If
End Sub
Any ideas?
thx Susan