AfterUpdate Event

[fiza]

Hi Anyone,

I'm using the following code to get the value as g/dl in my userform. I want the number to appear 1.0g/dl after I press the tab button. Suppose I write 2 in the txtbox, I want the number to be 2.0g/dl and if I write 2.1 it to be 2.1g/dl and so on.

Private Sub txtweight_AfterUpdate()
If IsNumeric(txttxtweight.Value) Then
txtRecipientHaemoglobin.Value = txtweight.Value + " g/dl"
End If
End Sub

Any help would be kindly appreciated.

Regards
Fiza

[Bob Phillips]

[vba]
Private Sub txtweight_AfterUpdate()

If IsNumeric(txttxtweight.Value) Then

txtRecipientHaemoglobin.Value = Format(txtweight.Value, "0.0") & " g/dl"
End If
End Sub
[/vba]

[fiza]

Thanks for the help. Your modification works fine.

[fiza]

By the way if I want to write the number format in 777-7777 in the text field txtContactNo how could the code be modified?

Any help would be greatly appreciated

[Bob Phillips]

[vba]

With Me.txtContactNo

.Text = Format(.Text, "000-0000")
End With
[/vba]

[fiza]

Once again, Thanks for the help. this modification also does what I wanted.