Form textbox number formatting

[rob_h]

Hello All,
Never seen this before but if I enter 1 in a text box it displays as 0.999999.....

If I enter 1.0 I get a Type Mismatch error related to the following lines of code.

Please Login or Register  to view this content.

This is just a conversion calculator I can keep open when working with the other parts of the workbook.

[Marc L]

Hi !

Try using Val VBA function to convert the textbox value …

[xlnitwit]

There is nothing in that code that changes the value of txtFeet so I suspect you have other change events that are altering txtFeet?

[Marc L]

See this demonstration :

Sub DemoCalculationPrecision()
    Const F$ = "20.4 - 19.6", L$ = vbLf & vbLf
    C@ = Evaluate(F)
    D# = Evaluate(F)
    S! = Evaluate(F)
    MsgBox Space(27) & "Calcul  :  " & F & L & "Type :    (@)  Currency =  " & C & L & _
           Space(15) & "(#)    Double =  " & D & L & _
           Space(15) & "(!)        Single =  " & S, vbExclamation
End Sub  

So try using a Currency variable …

[rob_h]

I need to get going now, but I will copy this to a blank workbook and attach it to a post later on.

Thanks for the input both of you.

[rob_h]

Here is a sample of the workbook and form.

[xlnitwit]

The issue is indeed the interaction between the boxes. Feet (1) sets Inches (12), which is fine. Inches(12) sets feet again (1), which is also fine. Inches (12) then sets Yards to 0.333333333. That then triggers the Yard_Change, which sets Feet to Yards * 3, hence your 0.999999999 value. Simplest solution is probably to disable all the other change events when you change a specific box. Add this to the top of the form code module, after the Option Explicit line

Please Login or Register  to view this content.

Now amend all the Change events like this

Please Login or Register  to view this content.

[rob_h]

Thank xl, that's what it needed.

[xlnitwit]

You're welcome. Don't forget to mark the thread Solved, please.

[Winon]

@ xlnitwit,

Impressive my friend!

Regards.

[xlnitwit]

Thanks!