Backspace

[Chrisss]

Hallo mensen,

weet hier misschien iemand een vba-code voor backspace-knop?
ik wil namenlijk een button in een formulier maken die voor een bepaald veld het meest rechtse teken verwijderd...

bij voorbaat dank!
Chris

 

[makaai]

Chris,

Pak het aantal karakters - 1 van de linkerkant van de string:

Me.NaamVanJeTekstVeld = Left(Me.NaamVanJeTekstVeld, Len(Me.NaamVanJeTekstVeld) - 1)

Makaai

 

[Chrisss]

Thanx Makaai,

werkt prima, echter als ik nog maar 1 teken heb staan en ik pas hem toe krijg ik een foutmelding...


Groeten
Chris!

 

[Bartuls]

if len(Me.NaamVanJeTekstVeld) > 1 then
Me.NaamVanJeTekstVeld = Left(Me.NaamVanJeTekstVeld, Len(Me.NaamVanJeTekstVeld) - 1)
else
Me.NaamVanJeTekstVeld = ""
end if

 

[Chrisss]

bedankt!!!!