Manweofarda
New member
- Local time
- Today, 05:36
- Joined
- Mar 19, 2017
- Messages
- 1
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!
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!