Dear all,I have this code on a fom queryclose event. my problem is i need to press a button to close and reopen the document…i do not need to run this code only at that instance. how can i do this …please guide me
thanks
shana
Sub Queryclose(Source As Notesuidocument, Continue As Variant)
Dim ws As New NotesUIWorkspace
Dim cdoc As NotesUIDocument
Dim se As New notessession
Set cdoc = ws.CurrentDocument
Dim sNeAp As String
sNeAp = cdoc.FieldGetText ("LAS_MainLone_NextApprover")
If cdoc.FieldGetText ("CloseUpdate") = "" Then
If sNeAp = se.CommonUserName Or sNeAp ="Not Defined Yet" Then
iMsg =Msgbox ("Are you sure that you want to save this application?" , 4+32 ,"Confirmation...!!!" )
If iMsg =6 Then
Call cdoc.Save()
Else
Exit Sub
End If
End If
End If
End Sub