Hiding Fields Based on Checkbox

[zashaikh]

I am having issues hiding a field. Basically, I have two fields. One is a CheckBox. The other is a Textfield.

IF the CheckBox is Checked, then I want to "show" the Textfield. If it is not checked, then I want to hide the textfield. I do this by setting the Textfield property to visible=no. And I have the following VBA code.

Private Sub CheckBox_AfterUpdate()


Dim selCheckBox As Boolean
selCheckBox = Me.[IsInDDS]
Select Case selCheckBox
Case "True"
Me.[TextField].Visible = True
Case "False"
Me.[TextField].Visible = False
End Select
End Sub

This works as I want.

But everytime I load the form, I want "TextField" to be displayed if there is a value in it (or if CheckBox is checked yes).

[Bob Fitz]

Have you tried your code in the form's OnCurrent event as well.

[davegri]

As suggested by B Fitz, you can do it this way to avoid repeating the code:

Private Sub Form_Current()
    Call CheckBox_AfterUpdate
End Sub

[zashaikh]

Thank you. I believe it is working now. Basically, if CheckBox is checked, it will show the textfield. If unchecked, it will not.

THanks!

[ssanfu]

You really only need one line of code in Sub CheckBox_AfterUpdate()

Private Sub CheckBox_AfterUpdate()
   Me.[TextField].Visible = Me.[IsInCIS]
End Sub

where
[TextField] is the text box control name and
[IsInCIS] is the checkbox control name


just sayin.......