Forms controls and VBA

Hi Experts

I have four controls on a form as below:
1.      Total sales
2.      Cash Received
3.      Change
4.      Shortage
The shortage control will only filled in if the cash received is less than total sales , quite okay I have this VBA Code below , but I want the message part to be showing numbers or amount showing as shortage in the string as well.
If (Me.TotalSales > Me.CashReceived) Then
Beep
MsgBox “Please note that you received not enough cash for this transaction”
Cancel = True
Exit Sub
End If

Now suppose the shortage amount is $20, our business rule require that in the message the $20 should appear as well, example:
MsgBox “Please note that you have received not enough cash for this transaction, and so you have a shortage of $20, please check again”
LVL 3
Hankwembo Christopher,FCCA,FZICA,CIA,MAAT,B.A.ScDirectorAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Gustav BrockCIOCommented:
It could be like:

Dim Shortage As Currency

Shortage = Nz(Me.TotalSales, 0) - Nz(Me.CashReceived, 0)
If Shortage > 0 Then
    Beep
    MsgBox "Please note that you received not enough cash for this transaction," & _
         "and so you have a shortage of " & Format(Shortage, "Currency") & "." & _
         "Please check again." 
    Cancel = True
    Exit Sub
End If

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Access

From novice to tech pro — start learning today.