VBA EXPERTS: I need to make a user form to convert from metric to inches

[bamaisgreat]

Thanks for looking at my post. I need to create a Userform that will pop up on clicking a form control button that has a text box some one can enter in a number in metric and click a button and it convert it to inches.
Example: 145.6 to 5.7323
mm inch

 

[pgc01]

Hi

The way you are doing it it will try to update the textbox value each time you enter a character which is not what your want.

Just for testing try the following:

- remove or comment the textbox Change event procedure

- paste this DoubleClick event procedure

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox1.Value) Then
    Me.TextBox1.Value = Me.TextBox1.Value / 25.4
End If
End Sub

- execute the form, enter a number in the textbox and then doubleclick on it

 

[BobUmlas]

You don't want the code attached to the TextBox1_Change -- attach it to a button.

 

[bamaisgreat]

ok, I changed it up to work from a button and it seems to work fine. Is there something I can add for it to do the calculation just one time? I noticed that every time i hit the button it keeps calculating. This is what Im currently using

Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) Then
Me.TextBox1.Value = Me.TextBox1.Value / 25.4
End If
End Sub

 

[Smitty]

Why not add a second text box and do the calculation there? That way you have the original value for reference.

 

[bamaisgreat]

that would be great
would the code need to look something like this?

Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) Then
Me.TextBox1.Value = Me.TextBox2.Value / 25.4
End If
End Sub

 

[Smitty]

Almost, you need to reverse the order in the calculation line:

Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) Then
    Me.TextBox2.Value = Me.TextBox1.Value / 25.4
    End If
End Sub

 

[bamaisgreat]

Is there away to make text box 2 were there cannot be anything typed in it?? Thanks

 

[BobUmlas]

sure - in the design mode, select Enabled, then make it false.

 

[bamaisgreat]

Thanks I missed that.. How about formatting textbox2 to fraction? can this be done?

 

[BobUmlas]

Me.Textbox2.Text = Format(Me.Textbox1.Value / 25.4,"# ?/??") or something like that...? (Untested)