[AccessD] Blanks in text box

Rocky Smolin at Beach Access Software rockysmolin at bchacc.com
Tue Nov 13 11:30:06 CST 2007


Mark:

I've been doing VBA long enough not to ask for sense.  Just consistency.
Let me try it again with .Text.

Rocky
 




 	
	

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A Matte
Sent: Tuesday, November 13, 2007 9:22 AM
To: Access Developers discussion and problem solving
Subject: Re: [AccessD] Blanks in text box


Rocky,

Yes the code impies that...kinda...lol.  the following is true on the
BeforeUpdate

>> Me!Text0.Text has the trailing spaces Me!Text0  does NOT have 
>> trailing spaces

Does that make sense?

Thanks,

Mark

> From: rockysmolin at bchacc.com
> To: accessd at databaseadvisors.com
> Date: Tue, 13 Nov 2007 09:05:56 -0800
> Subject: Re: [AccessD] Blanks in text box
>
> Mark:
>
> My debug statement shows that even in the Before Update event the 
> blank is already gone. So I still need a way to know if the user has 
> pressed the space bar. I'm updating the row source after every 
> keystroke. Your code seems to imply that at that point Text0 still has the
trailing blanks.
>
> Rocky
>
>
>
>
>
>
>
>
> -----Original Message-----
> From: accessd-bounces at databaseadvisors.com
> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A 
> Matte
> Sent: Tuesday, November 13, 2007 8:54 AM
> To: Access Developers discussion and problem solving
> Subject: Re: [AccessD] Blanks in text box
>
>
> Rocky,
>
> I can't see exactly what you are looking at...but in testing what is 
> below...I was losing the spaces when I left the text box...thats why I 
> placed the code on the before update...and in that case the spaces 
> where passed to the code.
>
> Good luck,
>
> Mark
>
>> From: rockysmolin at bchacc.com
>> To: accessd at databaseadvisors.com
>> Date: Tue, 13 Nov 2007 08:48:38 -0800
>> Subject: Re: [AccessD] Blanks in text box
>>
>> Mark:
>>
>> I'm not sure that will work because the space seems to be getting 
>> trimmed from the string before I get hold of it. I may have to use 
>> key trapping to see what key was pressed. And if blank add it 
>> manually to the string during the row source update.
>>
>> Regards,
>>
>> Rocky
>>
>>
>>
>>
>>
>>
>>
>>
>> -----Original Message-----
>> From: accessd-bounces at databaseadvisors.com
>> [mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Mark A 
>> Matte
>> Sent: Tuesday, November 13, 2007 8:26 AM
>> To: Access Developers discussion and problem solving
>> Subject: Re: [AccessD] Blanks in text box
>>
>>
>> Rocky,
>>
>> It might be crude, but could you just force the string using 
>> something like (code below) on the BeforeUpdate of the text box?
>>
>> Thanks,
>>
>> Mark A. Matte
>>
>> CODE START
>> Dim SpaceCheck
>> Dim Length
>> Dim TrimLength
>> Dim FinalString
>> FinalString = Me!Text0
>> Length = Len(Me!Text0.Text)
>> TrimLength = Len(Trim(Me!Text0.Text)) If Length = TrimLength Then 
>> GoTo SKIP SpaceCheck = 0 Do Until SpaceCheck = Length FinalString = 
>> FinalString & Chr(32) SpaceCheck = Len(FinalString) Loop
>> SKIP:
>> MsgBox FinalString & "test"
>> CODE END
>>
>
> --
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com

_________________________________________________________________
Climb to the top of the charts!  Play Star Shuffle:  the word scramble
challenge with star power.
http://club.live.com/star_shuffle.aspx?icid=starshuffle_wlmailtextlink_oct
--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

No virus found in this incoming message.
Checked by AVG Free Edition. 
Version: 7.5.503 / Virus Database: 269.15.30/1127 - Release Date: 11/12/2007
9:19 PM
 





More information about the AccessD mailing list