Hide labels and textboxes

[keithsimpson3973]

I have a report in Access 2003. If I set the can shrink property on the textboxes they are invisible when they are empty, which is what I want. But it does not hide the associated label connected to it. Is that possible to do, either with vba or visual basic 6?
Thanks

[nico5038]

Use for each field this code in the Detail's On Print event:

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Len(Nz(Me.YourField)) > 0 Then
   Me.Label1.Visible = True
Else
   Me.Label1.Visible = False
End If
End Sub

This will hide (and free the space) the label.

Nic;o)

[NeoPa]

I have a report in Access 2003. If I set the can shrink property on the textboxes they are invisible when they are empty, which is what I want. But it does not hide the associated label connected to it. Is that possible to do, either with vba or visual basic 6?
Thanks

To nick some of Nico's answer shamelessly (I wouldn't have thought of the Detail_Print event, but maybe the OnCurrent event would have worked as well) :

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
    Me!YourField.Visible = (Me!YourField>"")
End Sub

I simply set the Visible property of the TextBox as this will handle both automatically assuming they're linked. The code is shorter but perhaps a little less obvious to the casual reader. The Visible property is set to the boolean value returned by the equation.
To be clear, this is an alternative, not a fix, to Nico's code, which will work fine for you.

[TinyTim]

I have a similar issue and used the code provided to hide the labels of the fields with no data. I have another question, is there a way to shrink the white space so the fields compact together--as it is, the fields are hidden, but it is like there is space reserved for the fields (they are just do not appear, but have enough space on the report to appear)...

[Rabbit]

To shrink the white space you'd have to use code to either A) Move all controls over, expressed in twips or B) Set the X,Y coordinates for all the controls you want to move, expressed in twips.

For A, use:

Me.Control.Move Left, [Top], [Width], [Height]

For B, use:

Me.Control.Left = #
Me.Control.Top = #

[TinyTim]

To shrink the white space you'd have to use code to either A) Move all controls over, expressed in twips or B) Set the X,Y coordinates for all the controls you want to move, expressed in twips.

For A, use:

Me.Control.Move Left, [Top], [Width], [Height]

For B, use:

Me.Control.Left = #
Me.Control.Top = #

Sorry, this is all new to me, I will try the Me.Control.Move Left, [Top],[Width]...etc, but is the "Me" part the name of the label or field? and the "Top", "Width" is expressed in inches?

[Rabbit]

Me is a reference to the form. Replace Control with the name of the control you want to move. Replace Left, Right, Height, Width with numbers expressed in twips (twip: Unit of measurement that is equal to 1/20 of a point, or 1/1,440 of an inch. There are 567 twips in a centimeter.)

So, if you have a text box named Foo and you need to move it 567 twips to the left, which is one centimeter, then you would use:

Me.Foo.Move -567

Top-Left is coordinate (0,0)

[TinyTim]

That makes sense...one last question, which section of the VB code does this go in, (Detail Print?)

[Rabbit]

I'd put it in whichever Sub is hiding the labels.

[TinyTim]

Thanks, I will give it a try.

[sars349]

I'd put it in whichever Sub is hiding the labels.

Hi, I am trying to do the same thing as TinyTim but I am having problems. The invisible part works, but moving the text gives me an error. Here is what I have, can you tell me what I'm doing wrong?

If Len(Nz(Me.app)) > 0 Then
 Me.app1.Visible = True
Else
 Me.app1.Visible = False
 Me.app1.Move Top - 567
End If

[NeoPa]

Try :

If Len(Nz(Me.app)) > 0 Then
 Me.app1.Visible = True
Else
 Me.app1.Move Top - 567
 Me.app1.Visible = False
End If

If this doesn't work, then post the question in a new thread.
This thread is not for your question.

[NeoPa]

Another post was added to this thread but wasn't relevant so I've moved it to its own thread at How Do I Check Date Control is Filled.