Enable/Disable in reference to check box

[svbl]

Hi there. I'm not sure what to reference a check box as. What I mean by this is..

I have a checkbox and a text control (the text control is disabled upon entering the form, but the check box is not). What I want to happen is if I click on the checkbox (with a check in it) then the text control would become disabled. However, incase checking the checkbox was an accident, ..... once I UNCHECK the checkbox, the text control would go back to being disable. How would I do this?

Thank you in advance.

 

[rainman89]

in the onclick event of the button.

if me.checkboxname= true
me.txtboxname.enabled= True
else
me.txtboxname.enabled= false
end if

 

[thisisntwally]

something like this should work

Private Sub chkName_Click()

If Me.txtName.Visible = True then
Me.txtName.Visible = False
Else
Me.txtName.Visible = True
end If

End Sub


edit: Rainmans looks better. Would that require a Requery?

 

[svbl]

That was easy!

Thank you Ray and thisisntwally!! =) I've been fooling around with the same code, but my problem was not being sure what to set the chkbox value as.... the part bolded in blue: If Me.txtName.Visible = True then

I kept putting in "value" then "Yes/No" and I knew "Text" would not work.

**no requery required.

Anyhow, THANK YOU THANK YOU!!!

 

[rainman89]

its always something small!

glad you got it figured out!

 

[svbl]

ok, i thought Ray's suggestion solved my problem, but it apparently did not.

Here's the problem, I put this in the On Click event of the checkbox control:

If me.[COLOR="Red"]checkboxname[/COLOR] = true Then
   Me.[COLOR="Blue"]txtboxname[/COLOR].enabled = True
else
   Me.[COLOR="blue"]txtboxname[/COLOR].enabled = false
End I

during data entry, when I click in the checkbox, txtbox becomes enable like I want.

HOWEVER, when I click out of the form and come back to the form, there's a check in the checkbox, but txtbox is disabled again UNLESS I click in the checkbox, click out of it, and click in it again.
As long as there is a check in checkbox, I want txtbox to stay enabled even if I click out of the form.

 

[Rich]

In the OnCurrent Event of the form
Me.MyControl.Enabled = Me.MyCheckbox
In the OnClick of your checkbox put Call Form_Current or even just Form_Current

 

[svbl]

An error message of, "Invalid use of Null" appears.

 

[Rich]

Me.MyControl.Enabled = Nz(Me.MyCheckbox)

 

[svbl]

Thank for you help, but it still does not seem to work. I'm not receiving any error message, but when I open the form, the txtbox control is still disabled even when there's a check in the checkbox.

 

[Rich]

What code's in the Form CurrentEvent?

 

[svbl]

I also have other codes in the forms On_Current event for other actions..

Private Sub Form_Current()
[B]Me.cmdOpenBiop.Enabled = Nz(Me.chkBiopsy)[/B]
If Not IsNull(VisitDateNB) Then
    Me.MedianDML.Enabled = True
    Me.MedianDMLleft.Enabled = True
    Me.MedianCVmotor.Enabled = True
    Me.MedianCVmotorL.Enabled = True
    Me.MedianCVsensory.Enabled = True
    Me.MedianCVsensoryL.Enabled = True
    Me.PeronealDML.Enabled = True
    Me.PeronealDMLleft.Enabled = True
    Me.PeronealCVmotor.Enabled = True
    Me.PeronealCVmotorL.Enabled = True
    Me.PeronealCVsensory.Enabled = True
    Me.PeronealCVsensoryL.Enabled = True
Else
    Me.MedianDML.Enabled = False
    Me.MedianDMLleft.Enabled = False
    Me.MedianCVmotor.Enabled = False
    Me.MedianCVmotorL.Enabled = False
    Me.MedianCVsensory.Enabled = False
    Me.MedianCVsensoryL.Enabled = False
    Me.PeronealDML.Enabled = False
    Me.PeronealDMLleft.Enabled = False
    Me.PeronealCVmotor.Enabled = False
    Me.PeronealCVmotorL.Enabled = False
    Me.PeronealCVsensory.Enabled = False
    Me.PeronealCVsensoryL.Enabled = False
    End If

If Not IsNull(MedianAMPmotor) Or Not IsNull(MedianAMPmotorL) Then
 MedianAMPmotorT.Enabled = True
 MedianAMPmotorC.Enabled = True
Else
 MedianAMPmotorT.Enabled = False
 MedianAMPmotorC.Enabled = False
End If

If Not IsNull(PeronealAMPmotor) Or Not IsNull(PeronealAMPmotorL) Then
 Me.PeronealAMPmotorT.Enabled = True
 Me.PeronealAMPmotorC.Enabled = True
Else
 Me.PeronealAMPmotorT.Enabled = False
 Me.PeronealAMPmotorC.Enabled = False
End If
End Sub

and this in the On_Click event of the check box control:

Private Sub chkBiopsy_Click()
[B]Form_Current[/B]
If Me.chkBiopsy = True Then
  Me.cmdOpenBiop.Enabled = True
Else
  Me.cmdOpenBiop.Enabled = False
End If
End Sub

 

[Rich]

Private Sub chkBiopsy_Click()
Form_Current
End Sub

 

[svbl]

Thank you for being so patient with me Rich.

I think I found the reason to why your code's not working for me. After deleting the other codes and just keeping the one you provided for me, it works perfectly fine, like how I described it.

However, maybe this is the reason why it doesn't work. The checkbox control and the other control [cmdOpenBiop] is actually connected with ONE MORE control.

So here is what the form looks like:

I have three controls, say A, B, and C. -B is the checkbox, C is cmdOpenBiop.

If A has a value in it then B becomes DISabled and C is ENabled. (C is disabled on form load).
However, if B is checked, A becomes DISabled and C is ENabled.

No matter what, only either A or B will be ENabled. I will never need both of them to be enabled, and upon entering a value in A or B, C will always need to be ENabled.

Ray's code works fine for this process, BUT like I mentioned earlier, everytime I have a check in the checkbox and then close the form and come back to view it, cmdOpenBiop becomes disabled again.
However, if I have a value in controlA.. close the form... come back to it, cmdOpenBiop is ENabled like it want it. The only problem seems to be with the checkbox.

 

[boblarson]

Ray's code works fine for this process, BUT like I mentioned earlier, everytime I have a check in the checkbox and then close the form and come back to view it, cmdOpenBiop becomes disabled again.
However, if I have a value in controlA.. close the form... come back to it, cmdOpenBiop is ENabled like it want it. The only problem seems to be with the checkbox.

Is the checkbox actually bound to a field so that it stores the value that has been selected? It almost sounds like you have the checkbox set up as an unbound control.

 

[svbl]

yes, the checkbox is a field in the form's table

I originally had it unbound because I thought I would only need to view it through the form, but I later realized I needed it for query reasons so I made it a field.