Convert feet & inches to metres

[philiprodley]

Have 3 text boxes.

Feet, inches and metres.

As I type in feet then inches, I would like to convert this to metres and place the result in the metres text box as soon as I tab on to the next field.

Can anyone help, please?

[Michael R]

Have 3 text boxes.

Feet, inches and metres.

As I type in feet then inches, I would like to convert this to metres and place the result in the metres text box as soon as I tab on to the next field.

Can anyone help, please?

Yes, add this code to both inches and meters text boxes After Update events:

Me.Meters.Value = Me.Feet.Value * 0.305 + Me.Inches.Value * 0.025

Michael.

[ADezii]

Have 3 text boxes.

Feet, inches and metres.

As I type in feet then inches, I would like to convert this to metres and place the result in the metres text box as soon as I tab on to the next field.

Can anyone help, please?

Private Sub txtInches_AfterUpdate()
  'The conversion formatted to 2 decimals places
  Me![txtMeters] = Format(((Nz(Me![txtFeet]) * 12) + Nz(Me![txtInches])) / 39.36, "#,#,#.##")
End Sub

[philiprodley]

Thank you, Michael.

Calculated field calculates fine now. How do I place the calculated value (now in a text box on a form) back into the underlying table?

[philiprodley]

ADezii, thank you.

[Michael R]

Calculated field calculates fine now. How do I place the calculated value (now in a text box on a form) back into the underlying table?

You create a field Meters in the underling table and use it in the form as Meters text box control.

[NeoPa]

It's not a good idea to store two items which are equivalent in the record together. If the Meters control is bound though, but the Feet & Inches controls are not that is a neat facility.