Make fields Visible IF Check38 = 1

[cw via AccessMonster.com]

I have this code behind my Option box frame:
------------------------------------------------
Private Sub Frame35_AfterUpdate()
If MsgBox("Have you verified this change with the Customer?", vbYesNo,
"Confirm") <> vbYes Then
Cancel = True
Me.Undo
End If
End Sub
----------------------------------------------

I need to add the following code to Enable certain fields when a user chooses
Yes (Check38) in my Option group.

Me.Combo49.Enabled = True
Me.CardholdersNameAuPy.Enabled = True
Me.CardholdersName.Enabled = True
Me.Combo57.Enabled = True
Me.Combo59.Enabled = True
Me.CreditCardAuthorizationNumberAuPy.Enabled = True

Thanks for your help on this one,
cw

 

[Allan Murphy]

Try this

Private Sub Frame35_AfterUpdate()

If MsgBox("Have you verified this change with the Customer?", vbYesNo,
"Confirm") <> vbYes Then
Cancel = True
Me.Undo
else
Me.Combo49.Enabled = True
Me.CardholdersNameAuPy.Enabled = True
Me.CardholdersName.Enabled = True
Me.Combo57.Enabled = True
Me.Combo59.Enabled = True
Me.CreditCardAuthorizationNumberAuPy.Enabled = True
End If

End Sub