veel tekstvelden legen

[mindgame112]

Beste mensen hier,

Ik heb echt gezocht maar kon over dit onderwerp op deze site weinig vinden.

wel heb ik ergens anders een tweetal oplossing gevonden maar die werken beide niet om 1 en dezelfde reden.

Ik heb nu deze code in een module gezet :

Sub ClearContents(ByVal FormName As Form)

    Dim con As Control
    
    For Each con In FormName.Controls
        If TypeOf con Is TextBox Then
            con.Text = ""
        End If
    Next
    
End Sub

En gebruik dan bij mijn formulier de code ClearContents Me

Dat zou moeten werken maar hij blijft aangeven dat dat ik alleen kan verwijzen naar iets als het de focus heeft.

Iemand een idee waar dat aan ligt ?

Met vr. gr.

Sjoerd

 

[mindgame112]

Sorry oplossing is iets handiger dan ik dacht. Ik werk met allemaal aparte onderdelen dus het is nu gewoon simpel als de record leeg is dat hij " " in het tekstveld invult

Toch bedankt