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 VBScriptOn Error Resume Nextme.FIELD(“InvoiceDate”).Value = FormatDateTime(me.FIELD(“InvoiceDate”).Value, vbGeneralDate )If Err.Number 0 Then me.ERRORMESSAGE = “Error, Date is in Invalid Format” me.CHECKSUCCEEDED = FalseEnd If
Type Conversion, Numerical Compare in VBScriptDim AIValue, temp On Error Resume Nexttemp = me.Field(“AnnualIncome”).VALUEIf Err.Number 0 Then me.ERRORMESSAGE = “Error, Income is in Invalid Format” me.CHECKSUCCEEDED = FalseEnd IfAIValue = temp + 0if AIValue > 1500 then me.CheckSucceeded = trueelse me.ErrorMessage = “Warning! Low annual income” me.CheckSucceeded = false me.FOCUSEDFIELD = me.FIELD(“AnnualIncome”)end if
Pick a theme: BlogXP business calmBlue Candid Blue dasBlog dasblogger DirectionalRedux Discreet Blog Blue Elegante essence Just Html MadsSimple Mobile Mono Movable Radio Blue Movable Radio Heat nautica022 orangeCream Paintball Portal Project84 Project84Grass Slate Sound Waves Tricoleur useit.com Voidclass2
Powered by: newtelligence dasBlog 2.1.8102.813
© Copyright 2010, Nathan Corson
E-mail