Hide / show subform (1 Viewer)

[Gismo]

Hi all,

How do I adapt below code if I moved the subform from another subform into the main form?

If IsNull(Me.DefectAdditionalWork) Or (IsNull(Me.Location)) Or (IsNull(Me.RaiseCS)) Or (IsNull(Me.IntExt)) Then
Me.SavePlanningMisc.Visible = False
Else
Me.SavePlanningMisc.Visible = True
End If
Me.Requery

 

[arnelgp]

where is this code belong? main form?

 

[Gismo]

where is this code belong? main form?

This is on the sub form

If IsNull(Me.DefectAdditionalWork) Or (IsNull(Me.Location)) Or (IsNull(Me.RaiseCS)) Or (IsNull(Me.IntExt)) Then

Below is a subform on the main form

Me.SavePlanningMisc.Visible = False
Else
Me.SavePlanningMisc.Visible = True
End If

I have 2 sub forms on the main form

 

[arnelgp]

If IsNull(Me.DefectAdditionalWork) Or (IsNull(Me.Location)) Or (IsNull(Me.RaiseCS)) Or (IsNull(Me.IntExt)) Then
Me.Parent!SavePlanningMisc.Form.Visible = False
Else
Me.Parent!SavePlanningMisc.Form.Visible = True
End If
Me.Requery

 

[Gismo]

If IsNull(Me.DefectAdditionalWork) Or (IsNull(Me.Location)) Or (IsNull(Me.RaiseCS)) Or (IsNull(Me.IntExt)) Then
Me.Parent!SavePlanningMisc.Form.Visible = False
Else
Me.Parent!SavePlanningMisc.Form.Visible = True
End If
Me.Requery

If IsNull(Me.DefectAdditionalWork) Or (IsNull(Me.Location)) Or (IsNull(Me.RaiseCS)) Or (IsNull(Me.IntExt)) Then
Me.[DAWSheet_MainMisc]![SavePlanningMisc].Form.Visible = False
Else
Me.[DAWSheet_MainMisc]![SavePlanningMisc].Form.Visible = True
End If

 

[Minty]

You can't refer to the subform on another main form using that syntax.

Read and bookmark this page http://access.mvps.org/access/forms/frm0031.htm

 

[arnelgp]

which line has the error? can you add breakpoint.

 

[arnelgp]

You can't refer to the subform on another main form using that syntax.

see post #3.
there are 2 subforms on main form.

 

[Gismo]

You can't refer to the subform on another main form using that syntax.

Read and bookmark this page http://access.mvps.org/access/forms/frm0031.htm

The 2 sub forms are on the same main form
I need to requery the 1st sub form from the 2nd subform

 

[arnelgp]

can you just use Parent, instead of the mainform name:

Me.Parent!SavePlanningMisc.Form.Visible = False

 

[Gismo]

can you just use Parent, instead of the mainform name:

Me.Parent!SavePlanningMisc.Form.Visible = False

The parent is the main form in this case, not so?
DAWSheet_MainMisc s the main form
Subform 1 - SavePlanningMisc
The form I am running the code from, subform 2, is DAWSheetMainMiscSub

If not all the criteria has been completed in the 2nd for, the f1st subform should not be visible

Me.[DAWSheet_MainMisc]![SavePlanningMisc].Form.Visible = False

 

[arnelgp]

on design view Click on the "border" of the subform in question.
make sure a "yellow" line surrounds the subform when you clicked on it.
now, goto property window, on Tab "Other", what Name do you see.
use that name.

 

[Gismo]

on design view Click on the "border" of the subform in question.
make sure a "yellow" line surrounds the subform when you clicked on it.
now, goto property window, on Tab "Other", what Name do you see.
use that name.

SavePlanningMisc

 

[arnelgp]

can you post the mainform and the 2 subforms (without table).

 

[Gismo]

can you post the mainform and the 2 subforms (without table).

You means a screenshot?

 

[arnelgp]

from what you described earlier, the two Subs are 1 on top and below (which has sub-subform)?

 

[Minty]

That's two subforms in a subform.

Where are you trying to run this from the MAIN outer form or the first level down subform?

 

[Gismo]

from what you described earlier, the two Subs are 1 on top and below (which has sub-subform)?

 

[arnelgp]

can you upload the 3 forms involved (without any table)?

 

[Gismo]

can you upload the 3 forms involved (without any table)?

Hi,

I managed to get it working

I moved the code back to the main form with reference from the 2nd sub form on the main form
I now validate the records on the main form

Thank you for the assistance

If IsNull(Me.DefectAdditionalWork) Or (IsNull(Me.Location)) Or (IsNull(Me.RaiseCS)) Or (IsNull(Me.IntExt)) Then
Me.SavePlanningMisc.Visible = False
Else
Me.SavePlanningMisc.Visible = True
End If
Forms![DAWSheet_MainMisc]![SavePlanningMisc].Form.Requery