Private
Sub Form_Evaluate()
If
Driving_License.Choices(1).Value = True Then
'The Driving Licence field
has been read as “Yes”... how about the duration?
If Trim(Driving_Duration.Text) = ""
Then
'This is a problem: turn on
"Field Review" flag for the Driving_Duration field
Driving_Duration.Status = Driving_Duration.Status Or
tfFldReview
Else
'This is not a problem -
the duration has been filled in
End If
Else
'The Driving Licence field
is "No" (or blank)... how about the duration?
If Trim(Driving_Duration.Text) = ""
Then
'This is not a problem -
the duration has not been filled in, which is good!
Else
'This is a problem: turn on "Field Review" flag for
the Driving_License field
Driving_License.Status = Driving_License.Status Or
tfFldReview
End If
End If
End Sub
Note to editors: Please feel free to reproduce any of these documents but we do request that you credit ePartner Consulting Ltd and put a link back to www.epc.co.uk on any web site that they are used on. Thank you.



