Macro om een spatie te plaatsen als formulierveld leeg is

[wiebeww]

Beste allemaal,

Ik zoek al enige tijd naar een macro die ik bij het verlaten van een Text Form Field kan activeren die controleert of er niets ingevuld is. Als er niets ingevuld is zou ik graag willen dat er een spatie wordt geplaatst in het Text Form Field.

(Deze spatie is nodig in verband met een kruisverwijzing)

Graag hoor ik of hier een oplossing voor is.

Alvast bedankt.

Groeten,

Wiebe

 

[edmoor]

Dat kan bijvoorbeeld met dit:

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1.Text = "" Then TextBox1.Text = " "
End Sub

 

[wiebeww]

Heel erg bedank voor de snelle reactie. Ik krijg het echter niet aan de praat. Ik heb mijn 'Text Form Field' TextBox1 genoemd en de code in VBA geplakt.

Zie ik iets over het hoofd?

 

[edmoor]

Heb je die Sub wel in het formulier geplaatst? Als 'ie ergens anders staat zal het niet werken.

 

[OctaFish]

Als het om een tekstveld in een document gaat, kun je dit gebruiken.

Sub Text1_Exit()
Dim fld As FormField
For Each fld In ActiveDocument.FormFields
    If fld.Name = "Text1" And fld.Result = "" Then fld.Result = "Leeg veld"
Next
End Sub

De macro koppel je dan aan de veldeigenschap <Verlaten van veld>. Ik heb er even tekst in laten zetten, zodat je beter ziet dat de macro het doet.

 

[wiebeww]

Helemaal geweldig. Bedankt, dit werkt perfect!

Allebei bedankt!