I have a form that has the following code. It works on my computer but now
that i want to let someone else use this. When they run the form it gets
errors. I think she said syntax error. Is there anything i can do to fix this
problem without changing the form or the code? Something to update her
computer maybe? Thank you for all your help.
Private Sub txtDate_Enter()
txtDate.Value = Format(Me.txtDate, "")
End Sub
Private Sub txtFrt_Enter()
txtFrt.Value = Format(Me.txtFrt.Value, "")
End Sub

Private Sub txtFrt_Exit(ByVal cancel As MSForms.ReturnBoolean)
txtFrt.Value = Format(Me.txtFrt.Value, "$#,###,###.000")
End Sub

Private Sub txtPrice_Enter()
'Places currency formatting on price
txtPrice.Value = Format(Me.txtPrice.Value, "")
End Sub bn
--
Thank you,

Jennifer

Hi
The last row of code has extra text ' bn': End Sub bn
Would that be the issue or is it just a typo in this post?
Else:
Syntax errors are caught at design time (when Compiling) and the error
should be highlighted. Can you have your users go in the vba editor, run the
menu Debug > Compile and tell row(s) is highlighted? You may have to fix
multiple errors 1 at a time ie fix 1 error then re-compile to get next error
to fix, ...


--
Regards,
Sébastien
<http://www.ondemandanalysis.com>


"Jennifer" wrote:

> I have a form that has the following code. It works on my computer but now
> that i want to let someone else use this. When they run the form it gets
> errors. I think she said syntax error. Is there anything i can do to fix this
> problem without changing the form or the code? Something to update her
> computer maybe? Thank you for all your help.
> Private Sub txtDate_Enter()
> txtDate.Value = Format(Me.txtDate, "")
> End Sub
> Private Sub txtFrt_Enter()
> txtFrt.Value = Format(Me.txtFrt.Value, "")
> End Sub
>
> Private Sub txtFrt_Exit(ByVal cancel As MSForms.ReturnBoolean)
> txtFrt.Value = Format(Me.txtFrt.Value, "$#,###,###.000")
> End Sub
>
> Private Sub txtPrice_Enter()
> 'Places currency formatting on price
> txtPrice.Value = Format(Me.txtPrice.Value, "")
> End Sub bn
> --
> Thank you,
>
> Jennifer