goodgirl

Want to help me with my homework? lol

gg

------------------
Good Girls Swallow TGP

Good Girls Clean Gallery List
Eraser Cash
Synergy Design & Technologies

FADE19

Whats the question GG?

goodgirl

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

Rice_Master

Stick with porn!

------------------

FADE19

I need to ask you a few questions..
ICQ:7429145

goodgirl

Stick to porn? Well its good if its sticky
But I was in school before porn, and I only have 3 mos to go! So I'm sticking with that too

gg

------------------
Good Girls Swallow TGP

Good Girls Clean Gallery List
Eraser Cash
Synergy Design & Technologies

goodgirl

I added you on ICQ FADE19.

gg