How to set visible property based on check box on subform 1

[mongous]

I have a tabbed form with a subform on the second tab. I have a label on the first tab (main form) with visible set to false.

I want it to show ONLY IF the checkbox on the subform is checked, which will change with each record.

I am not sure WHERE to put the code. Form_load? Form_Current? Here is what I was thinking:

Private Sub Form_Load()
    If Me!sfrAppData.Form!DoNotInterview.Checked = True Then
    Me!lblIneligible.Visible = True
    Else: Me!lblIneligible.Visible = False
    End If
End Sub

As you can tell, I haven't quite figured out how to properly reference the controls either....

Any help would be appreciated!

 

[jebry]

Hi!

Try this:

Private Sub Form_Current()
Me!lblIneligible.Visible = Me!sfrAppData.Form!DoNotInterview.Checked
End Sub

hth


Jeff Bridgham
bridgham@purdue.edu

 

[mongous]

It states it can't find the field 'sfrAppData' referred to in your expression.(?)

 

[PHV]

I would try something like this:
Me!lblIneligible.Visible = Me![NameOfTabControl].Pages("NameOfTab")![NameOfsfrAppDataControl].Form!DoNotInterview.Checked
End Sub


Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[mongous]

Object doesn't support this property or method.

Here's how it looks:

Private Sub Form_Current()
Me!lblIneligible.Visible = Me![TabCtl0].Pages("Application Info")![DoNotInterview].Form!DoNotInterview.Checked
End Sub

 

[jebry]

Hi!

Here is the general syntax:

Me!NameOfSubformControl.Form!NameOfControlOnSubform

Since you want the lable to show when the box is checked you can use this code, in general form:

Private Sub Form_Current()

Me!NameOfYourLabel.Visible = Me!NameOfYourSubFormControl.Form!NameOfYourCheckBoxOnYourSubForm.Value

Please note that we are using the current event here so the label will change with the record. Also note that it should not matter that the subform is on a tab, this should still work.

hth


Jeff Bridgham
bridgham@purdue.edu

 

[mongous]

Ok thanks. It will be Friday before I can wrok on it again, but I will give it a try and post back.

Thanks again for your help!

 

[mongous]

Ok, I still get the msg: 'Can't find the field sfrAppData as referred to in your expression'


Here's the code:

Me!lblIneligible.Visible = Me!sfrAppData.Form!DoNotInterview.Value

 

[jebry]

Hi!

Maybe you can zip and email the Db to me.



Jeff Bridgham
bridgham@purdue.edu

 

[PHV]

What is sfrAppData ? I guess the subform name.
You should replace it with the name of the control hosting it.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[jebry]

Hi PHV!

That was the problem. All of my posts said to use the NameOfYourSubformControl but I suspected that sfrAppData was a form like you did. That is why I had the database emailed to me so I could look at all of the names.



Jeff Bridgham
bridgham@purdue.edu