Remove all text after the first space in a text box 1

[Vec]

I have a text box named txtDate

I need the "lost focus" event of the box to do the following:
Sometimes there may be characters after the date, however there is always a space first for example:
02/03/02 A332
I need the lost focus of the text box to basically remove everything after the space so that just the clean date is left. The characters after the space (if any) will be of varying charcter counts. -

Looking Toward The Future

http://www.webfusiondesign.com

 

[JohnYingling]

Dim lngInstr as Long

lngInstr = Instr(1,text1.Text," &quot
if lngInstr > 0 then
text1.Text = Left$(tetx1.text,lngInstr)
End if

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Rowland]

Hi

JohnYingling's code does exactly what you asked for: remove everything
*after* the space, however this leaves the space at the end of your string.

If you want to take that out as well, then modify the code as such:

text1.Text = Left$(tetx1.text,lngInstr - 1)

HTH
Rowland

 

[Vec]

Thank you to both of you! I was just about to ask that question Rowland! Thanks. And thanks as well John.

-

Looking Toward The Future

http://www.webfusiondesign.com