Sub Click(Source As Button)
On Error Goto ErrHandle
Const TABLE_NAME$ = "$Table1"
Const TABLE_TAB$ = "1"
Dim uiws As New NotesUIWorkspace
Dim session As New NotesSession
Dim doc As NotesDocument
Dim uidoc As NotesUIDocument
Set uidoc = uiws.CurrentDocument
Set doc = uidoc.Document
Call doc.ReplaceItemValue(TABLE_NAME, TABLE_TAB)
Call uidoc.RefreshHideFormulas
GoOut:
Exit Sub
ErrHandle:
Msgbox "Error #" & Err & Chr$(10) & Error$ & Chr$(10) & "Line #" & Erl & " in sub/function: " & "<Click>", 48, "Unexpected error"
Resume GoOut
End Sub