Monday, January 21, 2008

Here are two rules that you should find useful. Remember if you are modifying a field, make sure it is not marked “Read-Only”! More rules to come:

 

Date Normalization in VBScript
On Error Resume Next
me.FIELD(“InvoiceDate”).Value = FormatDateTime(me.FIELD(“InvoiceDate”).Value, vbGeneralDate )
If Err.Number 0 Then
    me.ERRORMESSAGE = “Error, Date is in Invalid Format”
    me.CHECKSUCCEEDED = False
End If

 

Type Conversion, Numerical Compare in VBScript
Dim AIValue, temp
On Error Resume Next
temp = me.Field(“AnnualIncome”).VALUE
If Err.Number 0 Then
    me.ERRORMESSAGE = “Error, Income is in Invalid Format”
    me.CHECKSUCCEEDED = False
End If
AIValue = temp + 0
if AIValue > 1500 then
    me.CheckSucceeded = true
else
    me.ErrorMessage = “Warning! Low annual income”
    me.CheckSucceeded = false
    me.FOCUSEDFIELD = me.FIELD(“AnnualIncome”)
end if

Monday, January 21, 2008 2:35:23 PM (Mountain Standard Time, UTC-07:00)  #    Comments [0]  | 

Pick a theme: