sub txtTotalOK1_Onblur() if len(frmQPRDetail.txtTotalOK1.value) > 0 then if not IsNumeric(frmQPRDetail.txtTotalOK1.value) then alert ("Not a valid number") frmQPRDetail.txtTotalOK1.focus end if if frmQPRDetail.txtTotalOK1.value > 0 then if len(frmQPRDetail.txtPartNumberColor1.Value) = 0 then alert ("Part Number Required") frmQPRDetail.txtPartNumberColor1.focus end if end if end if end subFor dates:
sub txtMfgDate_OnBlur() if len(frmQPRDetail.txtMfgDate.value) > 0 then if not IsDate(frmQPRDetail.txtMfgDate.value) then alert ("Not a valid date") frmQPRDetail.txtMfgDate.focus end if end if end subIn the Save Method:
Sub cmdSave_OnClick() ' I have a great deal of code for validation in this area... if len(trim(frmQPRDetail.txtPartNumber.value)) < 12 then alert ("Enter 12 digits with no dash") frmQPRDetail.txtPartNumber.focus Exit Sub end if ' If all is well... call frmQPRDetail.Submit End subTom