Conditional Visibility Impossible?

[Access DB Maker]

Hi There...thanks for reading...

In a report I have designed in Access 2007, I am attempting to make a grouping footer section (which contains fields which sum up totals for data in the details) become invisible when the description control/field equals "". The "description" field is in the header section for the same grouping which is wrapped around the "detail" section.

Here is the code I am using in the On Print event of the footer section...

Private Sub GroupFooter0_Print(Cancel As Integer, PrintCount As Integer)
GroupFooter0.Visible = IIf(description.Value = "", False, True)
End Sub

I have tried so many variants of the code above, I think I may never get it to work. No matter what I do the footer section will not stop displaying... :-(

Please help!

[JConsulting]

Hi There...thanks for reading...

In a report I have designed in Access 2007, I am attempting to make a grouping footer section (which contains fields which sum up totals for data in the details) become invisible when the description control/field equals "". The "description" field is in the header section for the same grouping which is wrapped around the "detail" section.

Here is the code I am using in the On Print event of the footer section...

Private Sub GroupFooter0_Print(Cancel As Integer, PrintCount As Integer)
GroupFooter0.Visible = IIf(description.Value = "", False, True)
End Sub

I have tried so many variants of the code above, I think I may never get it to work. No matter what I do the footer section will not stop displaying... :-(

Please help!

try using the On_format event for that section.
Also
Try adjusting the height of that section, vs the visibility. Make sure you have your Can Shrink properties of each control in that section set to yes, same for the section itself.
J

[Access DB Maker]

try using the On_format event for that section.
Also
Try adjusting the height of that section, vs the visibility. Make sure you have your Can Shrink properties of each control in that section set to yes, same for the section itself.
J

Hi J,

Thanks for writing back... I tried both of your suggestions but was still unable to get it to work.

I have tried sticking in a bit code to test the value description.Value:

MsgBox(description.Value) but I get an error saying this is an invalid use of Null. However, when I use this code...

MsgBox(IIf(description.Value = Null, "Null", "Not"))

...the message box comes us with "Not"

Any ideas?

[ADezii]

Hi There...thanks for reading...

In a report I have designed in Access 2007, I am attempting to make a grouping footer section (which contains fields which sum up totals for data in the details) become invisible when the description control/field equals "". The "description" field is in the header section for the same grouping which is wrapped around the "detail" section.

Here is the code I am using in the On Print event of the footer section...

Private Sub GroupFooter0_Print(Cancel As Integer, PrintCount As Integer)
GroupFooter0.Visible = IIf(description.Value = "", False, True)
End Sub

I have tried so many variants of the code above, I think I may never get it to work. No matter what I do the footer section will not stop displaying... :-(

Please help!

It's simply the Syntax and nothing but the Syntax. In the Format() NOT Print() Event of the Group Header, place the following code. Let me know how you make out.

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
  If Me.Section(acGroupLevel1Header).Controls("description") = "" Then
    Me.Section(acGroupLevel1Footer).Visible = False
  Else
    Me.Section(acGroupLevel1Footer).Visible = True
  End If
End Sub 

[JConsulting]

It's simply the Syntax and nothing but the Syntax. In the Format() NOT Print() Event of the Group Header, place the following code. Let me know how you make out.

Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
  If Me.Section(acGroupLevel1Header).Controls("description") = "" Then
    Me.Section(acGroupLevel1Footer).Visible = False
  Else
    Me.Section(acGroupLevel1Footer).Visible = True
  End If
End Sub 

to add to ADz's comment here....to cover all bases

[code]
1.
Private Sub GroupHeader0_Format(Cancel As Integer, FormatCount As Integer)
2.
If NZ(Me.Section(acGroupLevel1Header).Controls("descr iption"),"") = "" Then
3.
Me.Section(acGroupLevel1Footer).Visible = False
4.
Else
5.
Me.Section(acGroupLevel1Footer).Visible = True
6.
End If
7.
End Sub

[Access DB Maker]

Hello ADezi and J,

Thank you so much for your help...

It worked! Using the full description of the objects focused it in and by adding the Nz I stopped the Nulls (which refuse to show up in the tester MsgBox function) from propagating through the function. My final code was as follows...

Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.Section(acGroupLevel2Header).Controls("descr iption")) = "" Then
Me.Section(acGroupLevel2Footer).Visible = False
Else
Me.Section(acGroupLevel2Footer).Visible = True
End If
End Sub

I can't thank you enough! :-)

[JConsulting]

Hello ADezi and J,

Thank you so much for your help...

It worked! Using the full description of the objects focused it in and by adding the Nz I stopped the Nulls (which refuse to show up in the tester MsgBox function) from propagating through the function. My final code was as follows...

Private Sub GroupFooter0_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me.Section(acGroupLevel2Header).Controls("descr iption")) = "" Then
Me.Section(acGroupLevel2Footer).Visible = False
Else
Me.Section(acGroupLevel2Footer).Visible = True
End If
End Sub

I can't thank you enough! :-)

Youre welcome. and by the way..you should change this line as shown below.

If Nz(Me.Section(acGroupLevel2Header).Controls("descr iption"),"") = "" Then

J