Textbox format question

[Mark G.]

Good afternoon.

I have a "Fixed/2" format applied to a textbox on its property sheet. When I
type data in the textbox, it is formatted correctly. But when I update the
value programatically by setting the "value" property, the text does not
format.

I can get around this of course by using the VBA format() command. But is
there any way I could update the value in code and have it display according
to the format that is specified on the control's property sheet?

Thanks
-Mark

[Tom van Stiphout]

On Thu, 20 Sep 2007 16:18:50 -0700, "Mark G." <an*******@hotmail.com>
wrote:

The Format function IS the way to do that.
-Tom.

>Good afternoon.

I have a "Fixed/2" format applied to a textbox on its property sheet. When I
type data in the textbox, it is formatted correctly. But when I update the
value programatically by setting the "value" property, the text does not
format.

I can get around this of course by using the VBA format() command. But is
there any way I could update the value in code and have it display according
to the format that is specified on the control's property sheet?

Thanks
-Mark

[Mark G.]

"Tom van Stiphout" <no*************@cox.netwrote:

>
The Format function IS the way to do that.

So the format applied via the textbox property sheet is only for user-typed
input? And there is no (reasonable) way to invoke that format
programatically?

[Allen Browne]

Mark, I take it that this is an *unbound* text box?

If so, Access cannot determine the data type by looking at the field it is
bound do. So when you assign a value programmatically, Access may not
recognise as numeric.

If that's what is happening, you may be able to solve the problem by
rounding and/or typecasting, e.g.:
Me.Text0 = CDbl(Round(SomeNumber, 2))

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"Mark G." <an*******@hotmail.comwrote in message
news:11***************@bubbleator.drizzle.com...

Good afternoon.

I have a "Fixed/2" format applied to a textbox on its property sheet. When
I type data in the textbox, it is formatted correctly. But when I update
the value programatically by setting the "value" property, the text does
not format.

I can get around this of course by using the VBA format() command. But is
there any way I could update the value in code and have it display
according to the format that is specified on the control's property sheet?

Thanks
-Mark

[Tom van Stiphout]

On Thu, 20 Sep 2007 19:25:25 -0700, "Mark G." <an*******@hotmail.com>
wrote:

Correct. You would have to write the code yourself.

This is similar to the realization: if I programmatically change the
value of a control, the Change event does not occur.

-Tom.

>"Tom van Stiphout" <no*************@cox.netwrote:

>>
The Format function IS the way to do that.

So the format applied via the textbox property sheet is only for user-typed
input? And there is no (reasonable) way to invoke that format
programatically?

[CDMAPoster]

On Sep 20, 7:18 pm, "Mark G." <[e-mail]:

Good afternoon.

I have a "Fixed/2" format applied to a textbox on its property sheet. When I
type data in the textbox, it is formatted correctly. But when I update the
value programatically by setting the "value" property, the text does not
format.

I can get around this of course by using the VBA format() command. But is
there any way I could update the value in code and have it display according
to the format that is specified on the control's property sheet?

Thanks
-Mark

The following brute force ugly HACK might help:

....
Dim varNewValue As Variant
Dim strIn As String

varNewValue = 24.3333

If MyTextbox.Format = "Fixed" Then
If MyTextbox.DecimalPlaces = 255 Then
'Auto
strIn = "0.00"
Else
strIn = "#0." & String(MyTextbox.DecimalPlaces, "0")
End If
MyTextbox.Value = Left(CStr(Format(Round(varNewValue,
MyTextbox.DecimalPlaces), strIn)), InStr(CStr(varNewValue), ".") +
MyTextbox.DecimalPlaces - Abs(MyTextbox.DecimalPlaces = 0))
Else
MyTextbox.Value = Format(varNewValue, MyTextbox.Format)
End If
....

MyTextbox.Format MyTextbox.DecimalPlaces Result
Fixed Auto 24.33
Fixed 0 24
Fixed 1 24.3
Fixed 2 24.33
Fixed 3 24.333
Fixed 4 24.3333
Fixed 5 24.33330
Fixed 6 24.333300
Currency Auto $24.33
Short Time Auto 07:59 (almost a third of a day)
Long Time Auto 7:59:57 AM
General Date Auto 1/23/1900 7:59:57 AM

James A. Fortune
CD********@FortuneJames.com

[Mark G.]

<CD********@FortuneJames.comwrote:

>
The following brute force ugly HACK might help:

Suddenly the VBA format() function looks like a very attractive solution.
:-)

[Mark G.]

"Tom van Stiphout" <no*************@cox.netwrote:

On Thu, 20 Sep 2007 19:25:25 -0700, "Mark G." <an*******@hotmail.com>

This is similar to the realization: if I programmatically change the
value of a control, the Change event does not occur.

Ah. So the change() event occurs when the user enters text in the textbox,
and this causes the format specified on the property sheet to be applied to
the user's input?

[Tom van Stiphout]

On Fri, 21 Sep 2007 08:56:52 -0700, "Mark G." <an*******@hotmail.com>
wrote:

No. This was just an analogous observation.
-Tom.

>
"Tom van Stiphout" <no*************@cox.netwrote:

>On Thu, 20 Sep 2007 19:25:25 -0700, "Mark G." <an*******@hotmail.com>

This is similar to the realization: if I programmatically change the
value of a control, the Change event does not occur.

Ah. So the change() event occurs when the user enters text in the textbox,
and this causes the format specified on the property sheet to be applied to
the user's input?

[Mark G.]

"Allen Browne" <Al*********@SeeSig.Invalidwrote:

Mark, I take it that this is an *unbound* text box?

Correct. I was wondering whether there is any way to have the property
sheet format applied to text that is inserted programatically, but
apparently
there is not. So I am using the VBA format() function.

-Mark