Date Format code with error now

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

Jennifer - 12 Dec 2007 18:05 GMT

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

Signature

Thank you,

Jennifer

Reply to this Message

sebastienm - 12 Dec 2007 19:31 GMT

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, ...

Signature

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

> 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
[quoted text clipped - 16 lines]
> txtPrice.Value = Format(Me.txtPrice.Value, "")
> End Sub bn

Reply to this Message