Ok I'm in the early learning stages so don't laugh.
This is what I have.
'Project: 4.1
'Date: August 28, 2001
'Programmer:
'Description: This project calculates total amount due
'Folder: Ch4
Option Explicit
Dim mcurPrice As Currency
Dim mintTotalClients As Integer
Dim mcurTotalIncome As Currency
Dim mcurTotalDue As Currency
Private Sub cmdCalculate_Click()
Dim curPrice As Currency
Dim curDiscount As Currency
Const curMakeOver As Currency = 125
Const curHairStyling As Currency = 60
Const curManicure As Currency = 35
Const curPerMakeup As Currency = 200
Const curDiscount10 As Currency = 0.9
Const curDiscount20 As Currency = 0.8
If optMakeOver.Value = True Then
curPrice = curMakeOver
ElseIf optHairStyling.Value = True Then
curPrice = curHairStyling
ElseIf optManicure.Value = True Then
curPrice = curManicure
ElseIf optPerMakeup.Value = True Then
curPrice = curPerMakeup
End If
'Display Price before discount
lblSubtotal.Caption = FormatCurrency(curPrice)
'Give Discount if any
If opt10Percent.Value = True Then
curPrice = curPrice * curDiscount10
ElseIf opt20Percent.Value = True Then
curPrice = curPrice * curDiscount20
ElseIf optNone.Value = True Then
curPrice = curPrice
End If
mcurPrice = curPrice
'Display the Total after discount
lblTotalDue.Caption = FormatCurrency(curPrice)
End Sub
Private Sub cmdClear_Click()
'Clear the amounts
optMakeOver.Value = False
optHairStyling.Value = False
optManicure.Value = False
optPerMakeup.Value = False
opt10Percent.Value = False
opt20Percent.Value = False
optNone.Value = False
lblSubtotal.Caption = ""
lblTotalDue.Caption = ""
lblTotalClients.Caption = ""
lblTotalIncome.Caption = ""
End Sub
Private Sub cmdExit_Click()
'Exit the project
End
End Sub
Private Sub cmdNextPatron_Click()
'Clear the current order and add totals
cmdClear_Click
lblSubtotal.Caption = ""
lblTotalDue.Caption = ""
'Add to Totals
If mcurPrice <> 0 Then 'Should be able to add to
'count if no new order
'Prevents accidental
'clicking
mcurTotalIncome = mcurTotalIncome + mcurPrice
mcurPrice = 0
mcurTotalDue = 0 'Reset for next custome
mintTotalClients = mintTotalClients + 1
End If
End Sub
Private Sub cmdPrint_Click()
'Print the form
PrintForm
End Sub
Private Sub cmdSummary_Click()
'Calculate the totals
Dim mintTotalClients
If mintTotalClients > 0 Then
If mcurPrice <> 0 Then
cmdNextPatron_Click 'Make sure last order counted
End If
'Display totals
lblTotalClients.Caption = mintTotalClients + 1
lblTotalIncome.Caption = FormatCurrency(mcurPrice) + mcurPrice
Else
MsgBox "No data to summarize", vbExclamation, "Summary"
End If
End Sub
When someone hits cmd Next Patron I need it to store the current totals and then add all the totals together for the cmd summary. How do I do that?
Thanks
gg
------------------
Good Girls Swallow TGP
Good Girls Clean Gallery List
Eraser Cash
Synergy Design & Technologies