Checkbox and a textbox help pls.

[dexter2003]

i got 2 checkboxes one is [] YES and one is []NO and a textbox.
It is like an interview question where if u say yes you gonna write something on the textbox and if its NO then you wouldnt write anything to it... now the problem..

In default the textbox is disabled. if i click the Checkbox YES the textbox will enable itself, and if i click it again it will disable itself.

The problem is when i click YES for the first time NOTHING HAPPENS the textbox is still disabled, when i click it again (checkbox YES is checked).. it disables... what seems to be the problem with it?

heres my code...


Private Sub chkdryes_Click()
If chkdryes = yes Then
txtdrugs.Enabled = True
txtdrugs.BackColor = vbWhite
Else
txtdrugs.Enabled = True
txtdrugs.BackColor = vbGray
End If
End Sub


Any ideas?

[MartinLiss]

Your If statement is invalid. Change it to

If chkdryes.Value = vbChecked Then

[shmuclez]

Just to provide a visual:

Private Sub chkdryes_Click()
If chkdryes.Value = Checked Then
' This was the problem
txtdrugs.Enabled = True
txtdrugs.BackColor = vbWhite
Else
txtdrugs.Enabled = True
txtdrugs.BackColor = vbGray
End If
End Sub

[MartinLiss]

Originally posted by shmuclez
Just to provide a visual:

Private Sub chkdryes_Click()
If chkdryes.Value = [color="#FF0080"]Checked[/color] Then
' This was the problem
txtdrugs.Enabled = True
txtdrugs.BackColor = vbWhite
Else
txtdrugs.Enabled = True
txtdrugs.BackColor = vbGray
End If
End Sub

Should be vbChecked.

[shmuclez]

worked fine for me my way, i just used Checked

[MartinLiss]

Originally posted by shmuclez
worked fine for me my way, i just used Checked

You are right. You learn something every day. I never new that Checked (and Unchecked and Gray) were valid.

[dexter2003]

Thanks for the fast reply

I thought it was YES/NO

thanks guys!!!