fantastic. so now I am up to the following script. the issue it has
is that every record now has the same dollar amount as the field
before it or something crazy. i don't know how to describe it.... now
what do i appear to be missing?
below is what i have. finally have it tallying and i thought it was
working until i realized that whatever the last thing is that i click
in the form, the entire form sets to the same dollar amount in the
sngtotal field.
I am so "learning stuff".
Private Sub Set_Total()
'Cost of procedures on animal intake form. Declaring Variables.
Dim sngTotal As Single
Const sngRabies As Single = 12
Const sngSpay As Single = 63
Const sngNail As Single = 2
Dim blnRabies As Boolean
Dim blnNail As Boolean
Dim blnSpay As Boolean
'Input amounts from boxes checked True on Intake Form.
Me.Rabies.SetFocus
blnRabies = Me.Rabies.Value
Me.Sterlization.SetFocus
blnSpay = Me.Sterlization.Value
Me.Nail.SetFocus
blnNail = Me.Nail.Value
sngTotal = 0
If (blnRabies = True) Then sngTotal = sngTotal + sngRabies
If (blnNail = True) Then sngTotal = sngTotal + sngNail
If (blnSpay = True) Then sngTotal = sngTotal + sngSpay
'Calculate the procedures.
Me.Total.SetFocus
Me.Total.Value = sngTotal
End Sub
Private Sub Nail_AfterUpdate()
Call Set_Total
End Sub
Private Sub Rabies_AfterUpdate()
Call Set_Total
End Sub
Private Sub Sterlization_AfterUpdate()
Call Set_Total
End Sub
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/AccessVBACentral/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
