!Appendtable method Crash

HCL Domino Domino Forum
1

Using the Appendtable method , my Designer crash do you know why ? i don’t understand

Sub Click(Source As Button)

Dim wksp As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim doc As NotesDocument



Dim rtitem As Variant

Set uidoc = wksp.CurrentDocument

Set doc = uidoc.Document



Set rtitem = doc.GetFirstItem( "Prix" )

restart :

Dim yourName As String, Message As String

yourName$ = Inputbox$("Simple= s // Double= d // Parc = p // Cogolin = c ")



If yourName$ = "s" Then       

	Gosub SimpleString

Elseif yourName$ ="d" Then 

	Gosub DoubleString

Else  

	Gosub restart

SimpleString:

	rows = 1

	columns = 2

	ruler = 1600

	Return

DoubleString :

	rows = 2

	columns = 2

	ruler = 1445

End If





Call rtitem.AppendTable(rows, columns, ,(ruler),styles)

Call doc.Save(True,False)

Call uidoc.Close

Set uidoc = wksp.EditDocument(True,doc)

End Sub