If someone changes a value in a field and that change has repercussions for other fields on the form, you may wish to use the OldValue property. Here is a sample and just to explain, CreditRequired is a Yes/No combo box
Private Sub CreditRequired_Click()
Dim intYesNo As Integer
If CreditRequired = False And CreditRequired.OldValue = True And Not IsNull(CreditRequestDate) Then
intYesNo = MsgBox("Choose Y and the Credit details will be cleared", vbYesNo + vbDefaultButton2, "Remove Credit Details")
If intYesNo = vbYes Then
CreditRequestDate = Null
CreditCode = Null
Else
'Reset the value back to the previous value and do nothing
CreditRequired.Value = CreditRequired.OldValue
End If
End If
