PDA

Vollständige Version anzeigen : leere Formularfelder ausblenden


checker16
06.07.2001, 11:18
hi!
Ich hab da ein kleines problem!!! Ich würde gerne Formularfelder in denen nichts steht ausblenden, aber ich weiß nicht wie???
vieleicht könnt ihr mir ja helfen.

Kurt aus Kienitz
06.07.2001, 11:56
Hallo,

Sieh Dir mal folgenden Code an.

Public Function CtrlUsichtbar(AktFrm As Form)

Dim ctl As Control

For Each ctl In AktFrm.Controls
If ctl.ControlType = acTextBox Then
If ctl.Value = "" Then
ctl.Visible = False
Else
ctl.Visible = True
End If
End If
Next ctl

End Function

Hier werden alle Textfelder eines Formulares geprüft (ob sie leer sind) und ggf. unsichtbar gemacht.