Function to catch Enter key press

Function to Catch Enter Key press and accordingly perform the required task:

function catchEnter(){
        if(window.event.keyCode == 13){
                document.all.S.click();
        }
}

Validation date and number through regular expression

Validation of number through regular expression:

function validateNumber( f ) {
        var regex = new RegExp();
        //regex = /^\d+$/;
        regex = /(^-?\d\d*\.\d*$)|(^-?\d\d*$)|(^-?\.\d\d*$)/
        if ( regex.test( f.value ) ) {
                return;
        } else {
                alert("Please enter a number value");
                f.value = "";
                f.focus();
                return;
        }
}

Validation of date through regular expression:

function CheckDate(dateV)
{
        var dateStr = dateV.value;
        if(dateStr==""){
                return;
        }
        if(dateStr=="tbd" || dateStr=="TBD"){
                return;
        }
        isValidDate(dateV, dateStr);
}

function isValidDate(dateV, dateStr)
{
        var datePat = /^(\d{1,2})(\/|-)(\d{1,2})\2(\d{2}|\d{4})$/;
        var matchArray = dateStr.match(datePat);  
        if (matchArray == null) {
                alert("Date is not in a valid format.")
                dateV.focus();
                return;
        }
        month = matchArray[1]; // parse date into variables
        day = matchArray[3];
        year = matchArray[4];
        if (month < 1 || month > 12) {  
                alert("Month must be between 1 and 12.");
                dateV.focus();
                return;
        }
        if (day < 1 || day > 31) {
                        alert("Day must be between 1 and 31.");
                        dateV.focus();
                return;
        }
        if ((month==4 || month==6 || month==9 || month==11) && day==31) {
                alert("Month "+month+" doesn't have 31 days!");
                dateV.focus();
                return;
        }
        if (month == 2) {
                var isleap = (year % 4 == 0 && (year % 100 != 0 || year % 400 == 0));
                if (day>29 || (day==29 && !isleap)) {
                        alert("February " + year + " doesn't have " + day + " days!");
                        dateV.focus();
                        return false;
                }
        }
        return;
}

Validating a rich text field

Validating a rich text field:

http://www.ibm.com/developerworks/lotus/library/rich-text-field-notes/

I have copy pasted the three methods from the above link for my reference.

Method 1

In the first method, if the field contains any input (even only a single space character), then it can pass the validation. This validation uses the Querysave event of the form that contains the field. The following LotusScript sample code performs this validation:

Sub Querysave(Source As Notesuidocument, Continue As Variant)             If ( Source.FieldGetText( "rtfield" ) = "" ) Then                  Messagebox( "Please enter some text." )                  Call Source.GotoField( "rtfield" )                  Continue = False          End If End Sub

The code checks for any character in the field rtfield. If the field contains input (even if it consists solely of one or more space characters), then validation succeeds. If the field is empty, then the code returns an error message, and doesn’t save the document (by setting Continue to False).

Method 2

In the second method, the rich text field must contain at least one non-space character (in other words, an input consisting entirely of one or more spaces is not allowed). This check also uses the Querysave event of the form:

Sub Querysave(Source As Notesuidocument, Continue As Variant)                   Dim rtitem As NotesRichTextItem          Set doc = Source.Document          Set rtitem = doc.GetFirstItem( "rtfield" )          Dim text As String                   text$ = Source.FieldGetText("rtfield")          trimmed$ = Trim(text)                         if ( trimmed$ = "") Then                  Msgbox "Please enter some text."                  Continue = False                  source.GotoField("rtfield")                  source.Refresh(True)          Else                  Continue = True                           End If End Sub

Method 3

Our third method validates a rich text field in which an input consisting solely of an attachment, embedded object, or link is allowed, even if it includes no accompanying text. Once again, we use the Querysave event of the form containing the field:

Sub Querysave(Source As Notesuidocument, Continue As Variant)                   Dim rtitem As NotesRichTextItem          Set doc = Source.Document          Set rtitem = doc.GetFirstItem( "rtfield" )          Dim text As String                   text$ = Source.FieldGetText("rtfield")          trimmed$ = Trim(text)                   If(doc.Hasembedded)  Then                  Continue = True                                             Elseif ( trimmed$ = "") Then                  Msgbox "Please enter some text."                  Continue = False                  source.GotoField("rtfield")                  source.Refresh(True)          Else                  Continue = True                      End If End Sub

This code will work if there is an attachment anywhere in the document, even if it's not in the field that is being validated.