Position is not valid

HCL Domino Domino Forum
1

Hi,

I have the functionality which should dynamically add the rows in a table.

below is d code…

Sub Click(Source As Button)

Dim sess As New NotesSession

Dim db As NotesDatabase

Dim view As NotesView

Dim doc1 As NotesDocument

Dim doc2 As NotesDocument

Dim ws As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim rti As NotesRichTextItem

Dim rti_1 As NotesRichTextItem

Dim rtnav As NotesRichTextNavigator

Dim rtt As NotesRichTextTable

Dim richStyle As NotesRichTextStyle

Dim rtrangeCell As NotesRichTextRange, rtrangeTable As NotesRichTextRange

Dim test As Variant

Dim row As Integer

Dim col As Integer

Dim itemno As Integer

Dim topics As String

Dim time_1 As Variant



Set db=sess.CurrentDatabase

Set uidoc=ws.CurrentDocument

Set view=db.GetView("CCB_Meeting_0")

test=uidoc.FieldGetText("unid_1")

Msgbox test

Set doc1=view.GetDocumentByKey(test)

Msgbox "test"

Set rti = doc1.GetFirstItem("Table")

Msgbox "test"

If rti Is Nothing Then

	Msgbox "test"

	Set rti = doc1.getfirstitem("Table")

End If



Set rtnav = rti.CreateNavigator

Set rtrangeCell = rti.CreateRange

Set rtrangeTable = rti.CreateRange



If Not rtnav.FindFirstElement(RTELEM_TYPE_TABLE) Then

	row=1

	col=3

	Call rti.AppendTable(row,col)

	Set rtt = rtnav.GetElement

	'Call rtnav.FindFirstElement(RTELEM_TYPE_TABLE)

	'Dim colorObject As NotesColorObject

	'Set colorObject = sess.CreateColorObject

	'colorObject.NotesColor = COLOR_YELLOW

	'Call rtt.SetAlternateColor(colorObject)

	Set richStyle = rtrangeTable.Style

	richStyle.Effects=5

	richStyle.Bold = True

	richStyle.FontSize = 9

	Call rti.AppendStyle(richStyle)

	

	Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

	Call rti.BeginInsert(rtnav)

	Call rti.AppendText("Item")	

	Call rti.EndInsert

	

	Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

	Call rti.BeginInsert(rtnav)

	Call rti.AppendText("Topic")		

	Call rti.EndInsert

	

	Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

	Call rti.BeginInsert(rtnav)

	Call rti.AppendText("Time")		

	Call rti.EndInsert

	

	richStyle.Bold = False

	richStyle.FontSize = 9

	Call rti.AppendStyle(richStyle)

Else

	Set rtt = rtnav.GetElement

	Call rtnav.FindFirstElement(RTELEM_TYPE_TABLE)

	Set rtt = rtnav.GetElement

	Call rtrangeTable.SetBegin(rtnav)

	Call rtrangeTable.SetEnd(rtnav)	

	Set richStyle = rtrangeTable.Style

	richStyle.Bold = False

	richStyle.FontSize = 9

	Call rti.AppendStyle(richStyle)

End If



itemno=uidoc.FieldGetText("SrNo_0")

topics=uidoc.FieldGetText("Topic_0")

time_1=uidoc.FieldGetText("timing_0")



Call rtt.AddRow(1,rtt.RowCount)

Call rtnav.FindNthElement(RTELEM_TYPE_TABLECELL, 3*(rtt.RowCount - 1) +1)

Call rti.BeginInsert(rtnav)

Call rti.AppendText(itemno)	

Call rti.EndInsert



Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

Call rti.BeginInsert(rtnav)	

Call rti.AppendText(topics)

'Call rti.AppendText(RCN)

Call rti.EndInsert



Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

Call rti.BeginInsert(rtnav)

Call rti.AppendText(time_1)		

Call rti.EndInsert

Call doc1.Save(True, True)

'Set uidoc = ws.editdocument(True,doc1, True, , True, False)

Call uidoc.Save()

Call uidoc.Close

End Sub

in this I am getting error as Position is not valid at the line Set rti = doc1.GetFirstItem(“Table”)

What can be problem? All the code below that is working but not that statement…

Thanks in advance…