Label ververgen

[Mr_Miller]

Allen,

Wie kan mij helpen met het volgende probleem.

Ik heb een paar labels op het blad gezet en nu kan er in de labels een text komen te staan, dit wordt gedaan door een programma regel die de caption invult. Dit is niet altijd het geval, soms blijven de labels leeg.

Nu wil ik dat de lege labels waar niks instaat niet zichtbaar op het veld zijn, hoe krijg ik dit voor elkaar.

Zelf had ik al dit, maar dat werkte niet.

dim i as integer

i = 1
Do
If labeli.caption = Empty then labeli.visible = False
If labeli.caption = Not Empty then labeli.visible = True
i = i + 1
loop until i = 20

Bij voorbaad dank,

M.v.g.

Mr_Miller

 

[Axel Hagg]

Label verbergen

Dag Mr_Miller,

Private Sub LabelsVerbergen
Dim f

For each f in UserForm1.Controls
If Instr(f.Name, "Label") then f.Visible = (Len(f.Caption)>0)
Next
End Sub