Code to look for empty fields

[3699wat]

I am using the following code to set a label to invisible if the textbox is empty. It works great for each textbox / label on the report, but the problem is that I have to set it for each one.


If Me.Textbox = “ “ or IsNull (Me.Textbox) Then
Me.Label.Visible = False
Else
Me.Label.Visible = True
End If

Is there an expression / code that would loop through the fields and set all labels to invisible if the textbox is empty?

 

[jebry]

Hi!

You will have to name the text boxes and labels appropriately (which should be done anyway) but, if you do, then you can use the following code:

Dim cntl As Control
Dim strLabel As String

For Each cntl In Me.Controls
If cntl.ControlType = acTextBox Then
If Nz(cntl.Value, "&quot = "" Then
strLabel = "lbl" & Mid(cntl.Name, 4)
Me.Controls(strLabel).Visible = False
End If
End If
Next cntl

Obviously you will need to match up the names of the text boxes and labels. If the text box is txtName then the label needs to be lblName.

hth
Jeff Bridgham
bridgham@purdue.edu