Userform formatted as Currency

[Dan Swartz]

Not sure if i can explain this well enough but I'll try. I have a userform for making payments on an invoice. You enter the invoice number, search and it brings up all the necessary info. There are 4 textboxes that are Currency, so I used the following code to format the text boxes. if no payments have been entered, my code works great. but if i want to go look at an invoice or if they are splitting payments and i want to enter another payment. the currency format goes away. I tried to use "Change" instead of "AfterUpdate" and if I do that, it will not let me enter my values correctly. For example, if I want to enter 250, it will enter 2.01. I have attached some pictures to help

In the picture called "initial customer payment", you can see I pressed the tab key after I entered the amount of the first payment.
In the picture called "Second Customer Payment", you can see what it looks like after I entered the invoice and searched for it. It displays the first payment as just a number. not currency.

Private Sub PayAmt_AfterUpdate()
    PayAmt.Value = Format(PayAmt.Value, "$#,##0.00")
End Sub

 

[rlv01]

FWIW, AfterUpdate works for me as long as there is another control on the form that focus can be set to when I hit the ENTER key. You could also backstop it with the double click event.

Private Sub PayAmt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.PayAmt
        .Value = Format(.Value, "$#,##0.00")
    End With
End Sub

 

[Dan Swartz]

FWIW, AfterUpdate works for me as long as there is another control on the form that focus can be set to when I hit the ENTER key. You could also backstop it with the double click event.

Private Sub PayAmt_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    With Me.PayAmt
        .Value = Format(.Value, "$#,##0.00")
    End With
End Sub

I tried this and it doesn't work the way I want. I don't want to have to double click the cell for it to show as currency. I tried some of the other options. And I guess I don't know how to write those. but i want it to not be tied to something special so no matter who enters an invoice, they don't have to use the down arrow, enter or dbl click. Are there any other options?

 

[Dan Swartz]

I found the answer. I added PayAmt.Value = Format(PayAmt.Value, "$#,##0.00") at the end of the search button which gives me the proper operation.