Question about making Greyed out boxes that are only enabled with a Checkmark (1 Viewer)

[Manweofarda]

Hi everyone, I am not a programmer by any means, just a student who is trying to create an Access database for use in medical research.

So in my form that I am creating I have several YES/NO fields.

I would like to make it so that you can only enable the YES/NO fields:
Prog_2ndline_del11q
Prog_2ndline_del17p
Prog_2ndline_Normal
Prog_2ndline_12
Prog_2ndline_del13q
Prog_2ndline_unfavorable
IF
Prog_2ndline_checkcyto is checked YES on its checkbox.

So what I did was:
---------------------------------------------------------------------------------
Option Compare Database


Private Sub Command409_Click()
Me![Date Modified].Value = Now()
End Sub

Private Sub Command181_Click()

End Sub

Private Sub Form_AfterUpdate()
Dim blnEnabled As Boolean
blnEnabled = (Prog_2ndline_checkcyto = True)
Prog_2ndline_del11q.Enabled = blnEnabled
Prog_2ndline_del17p.Enabled = blnEnabled
Prog_2ndline_Normal.Enabled = blnEnabled
Prog_2ndline_12.Enabled = blnEnabled
Prog_2ndline_del13q.Enabled = blnEnabled
Prog_2ndline_unfavorable.Enabled = blnEnabled


End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

End Sub

Private Sub Form_Current()
Dim blnEnabled As Boolean
blnEnabled = (Prog_2ndline_checkcyto = True)
Prog_2ndline_del11q.Enabled = blnEnabled
Prog_2ndline_del17p.Enabled = blnEnabled
Prog_2ndline_Normal.Enabled = blnEnabled
Prog_2ndline_12.Enabled = blnEnabled
Prog_2ndline_del13q.Enabled = blnEnabled
Prog_2ndline_unfavorable.Enabled = blnEnabled

End Sub

Private Sub Form_Load()

End Sub
---------------------------------------------------------------------------------

However, I keep getting a "Run-Time Error 424" message and when I open the code the line
Prog_2ndline_12.Enabled = blnEnabled
is highlighted

Any ideas on how to fix this? :banghead:

Thanks for your help everyone!

 

[moke123]

since a check box has a true/false value you can simply have

Prog_2ndline_del11q.Enabled = Prog_2ndline_checkcyto
Prog_2ndline_del17p.Enabled = Prog_2ndline_checkcyto
Prog_2ndline_Normal.Enabled = Prog_2ndline_checkcyto
etc.

or

blnEnabled = Prog_2ndline_checkcyto

 

[HiTechCoach]

Verify that you have a control named: Prog_2ndline_12