But my code is not disabling the fields? I use both the OnCurrent & AfterUpdate Events.
Dim bln As Boolean
bln = (Nz(Me.PaymentMethod, "") = "Check")
Me.CheckNo.Enabled = bln
Me.CardHolder.Enabled = Not bln
Me.CreditCard.Enabled = Not bln
Me.Refresh