I have input validation in some of my fields in my form. Currently its in my Input Validation.
If I leave one of the validated fields empty I get a prompt telling me that there are no names to send mail to. It also prompts me asking if I want to save the document.
What can I do to make this a little less rough for the user? Thanks!
My Save button code:
FIELD SaveOptions := “1”;
@PostedCommand([FileSave]);
@PostedCommand([FileCloseWindow])
QuerySave Code:
Sub Querysave(Source As Notesuidocument, Continue As Variant)
'Get a handle on the Notes Session
Dim session As New NotesSession
'Get a handle on the Current NotesUIWorkspace
Dim ws As New NotesUIWorkspace
'Get a handle on the uidoc and underlying document
Dim uidoc As NotesUIDocument
Set uidoc=ws.CurrentDocument
'Get a handle on the current database
Dim db As NotesDatabase
Set db = session.CurrentDatabase
'Assign variables
Dim IssueNum As String
Dim SendTo_1 As Variant
Dim docCurrent As NotesDocument
Set docCurrent = uidoc.Document
Dim tmp As String
Dim Assignees As String
Dim agent As NotesAgent
Dim rtitem As NotesRichTextItem
Set agent = db.GetAgent("Set Sequential Number")
Call agent.run
If docCurrent.Assignees(0) <> docCurrent.tmpAssignees(0) Then
'Present the dialogbox
docCurrent.Form = "Memo"
Call ws.DialogBox( "dlgTest", True, True, True, False, False, False, "Message Content Only")
End If
docCurrent.tmpAssignees=""
docCurrent.SendTo = docCurrent.Assignees
docCurrent.Subject = docCurrent.Subject_1
docCurrent.Body = docCurrent.Body1
Set rtitem = New NotesRichTextItem( docCurrent, "Body" )
'Call rtitem.AppendText( docCurrent, "Body" )
Call rtitem.AddNewLine( 1 )
Call rtitem.AppendDocLink( db, db.Title )
'Dim docCurrent As NotesDocument
Set docCurrent=source.Document
If docCurrent.pctComplete(0)="100" Then
docCurrent.reqStatus="Complete"
End If
If docCurrent.reqStatus(0)="Complete" Then
docCurrent.pctComplete="100"
End If
'Call docCurrent.Save (True, False)
Call docCurrent.send(False)
Call docCurrent.save(True, True )
End Sub
Input Validation Code:
@If(reqDescription= “”; @Failure(“Please enter a brief description”); @Success)