Hi all

Im trying to update the values in a data entry form. I have set up a
seies of labels and want to update tehm as in the following code. Im
having trouble with the formatting of the numbers. Can I control the
format of the caption text or do I need to use a different method??

If IsNumeric(Selection.Cells.Offset(0, 43).Value) = True Then
Pv.Caption = Selection.Cells.Offset(0, 43).Value
Pv.Caption.Text = Format("0.000")
End If

Regards

Ian

Hi Ian

Try
Pv.Caption = Format(Selection.Cells.Offset(0, 43).Value, "0.000")

HTH. Best wishes Harald

"Ian Mangelsdorf" skrev i melding
om...
Hi all

Im trying to update the values in a data entry form. I have set up a
seies of labels and want to update tehm as in the following code. Im
having trouble with the formatting of the numbers. Can I control the
format of the caption text or do I need to use a different method??

If IsNumeric(Selection.Cells.Offset(0, 43).Value) = True Then
Pv.Caption = Selection.Cells.Offset(0, 43).Value
Pv.Caption.Text = Format("0.000")
End If

Regards

Ian

Thanks Hanrold

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!