Updating text boxes.....

Tutorials Win: Microsoft Windows Forum

Hi Folks,

On my form, users can enter data directly into a text box, or they can past
it
into the text boxs from the clipboard data with a special "Paste from 3rd
Party App" button
that I have done.

When they type the data in themselves I have a little Procedure :

Private Sub TextBox1_Change()
TextBox1 = StrConv(TextBox1, vbProperCase)
End Sub

To make sure the names are property formatted etc.

The problem is that when I : "Paste from 3rd Party App" none of the
formatting
is applied to the text boxes!

How would I go about getting them all updated?

The only way I came up with was to maybe have a new procedure that updated
every textbox
every time it was ran, so something like:

Sub Update()

TextBox1 = StrConv(TextBox1, vbProperCase)
TextBox2 = StrConv(TextBox1, vbProperCase)
TextBox3 = StrConv(TextBox1, vbProperCase)
TextBox4 = StrConv(TextBox1, vbProperCase)

End Sub

and also still have;

Private Sub TextBox1_Change()
Call Update
End Sub

Private Sub TextBox2_Change()
Call Update
End Sub

Private Sub TextBox3_Change()
Call Update
End Sub

Private Sub TextBox4_Change()
Call Update
End Sub


But their must be a better way?

Thanks

-Al





-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----
Top

Re: Updating text boxes..... by Doug

Doug
Sat Sep 25 04:19:37 CDT 2004

Try using the Exit event rather than the Change event.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"Al Grant" <acgrant@orcon.net.nz> wrote in message
news:4154f5b0$1_3@corp.newsgroups.com...
> Hi Folks,
>
> On my form, users can enter data directly into a text box, or they can
> past it
> into the text boxs from the clipboard data with a special "Paste from 3rd
> Party App" button
> that I have done.
>
> When they type the data in themselves I have a little Procedure :
>
> Private Sub TextBox1_Change()
> TextBox1 = StrConv(TextBox1, vbProperCase)
> End Sub
>
> To make sure the names are property formatted etc.
>
> The problem is that when I : "Paste from 3rd Party App" none of the
> formatting
> is applied to the text boxes!
>
> How would I go about getting them all updated?
>
> The only way I came up with was to maybe have a new procedure that updated
> every textbox
> every time it was ran, so something like:
>
> Sub Update()
>
> TextBox1 = StrConv(TextBox1, vbProperCase)
> TextBox2 = StrConv(TextBox1, vbProperCase)
> TextBox3 = StrConv(TextBox1, vbProperCase)
> TextBox4 = StrConv(TextBox1, vbProperCase)
>
> End Sub
>
> and also still have;
>
> Private Sub TextBox1_Change()
> Call Update
> End Sub
>
> Private Sub TextBox2_Change()
> Call Update
> End Sub
>
> Private Sub TextBox3_Change()
> Call Update
> End Sub
>
> Private Sub TextBox4_Change()
> Call Update
> End Sub
>
>
> But their must be a better way?
>
> Thanks
>
> -Al
>
>
>
>
>
> -----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
> http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
> -----== Over 100,000 Newsgroups - 19 Different Servers! =-----


Top