I am running the following commands but only the second part executes. I can't get the file to exit if the first statement is true, anyone have an idea? I know it's not UNIX but this is the best crowd for knowledge in all fields...
Sub Querysave(Source As Notesuidocument, Continue As Variant)
TempVal$ = Source.FieldGetText("kStatus")
If Trim$(TempVal$) = "Output shipped/delivered to receipient" Then
Close(immediate)
Elseif Trim$(TempVal$) = "" Then
Messagebox "Please update the status.", 0, "Required Field"
Call source.GotoField( "kStatus" )
continue = False
Exit Sub
End If
Thanks in advance for your help, regards. Jim.