Donation box price visible not calculating

#1 (**permalink**) 28-Jul-2006, 08:40 AM

I have a box that I ck if the amount was donated. I want the amount to show
for tracking in the extended price field BUT I want it not to calculate with
the rest of the extended price total on that order then at the end of my
report I will have it show up as the total of donated materials.... (I have a
"return box" which uses the following code that makes it negative... Is
there something like this that would work?)

Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/information-technology/13857-donation-box-price-visible-not-calculating.html
Private Sub ckReturned_Click()

If ckReturned.Value = True Then
If UnitPrice.Value > 0 Then
UnitPrice.Value = UnitPrice.Value * -1
End If
Else
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13857
If UnitPrice.Value < 0 Then
UnitPrice.Value = UnitPrice.Value * -1
End If
End If

Thanks!

#2 (**permalink**) 28-Jul-2006, 08:41 AM

Lmv,

No. Just leave the tick there. You can do the calculations you require
on the report itself. For example, extended price total can be like this...
=-Sum([Extended Price]*([Donated]=0))
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13857
Donations total in the report footer can be like this...
=-Sum([Extended Price]*[Donated])

--
Steve Schapel, Microsoft Access MVP

lmv wrote:
> I have a box that I ck if the amount was donated. I want the amount to show
> for tracking in the extended price field BUT I want it not to calculate with
Reference:: Sikh Philosophy Network http://www.sikhphilosophy.net/showthread.php?t=13857
> the rest of the extended price total on that order then at the end of my
> report I will have it show up as the total of donated materials.... (I have a
> "return box" which uses the following code that makes it negative... Is
> there something like this that would work?)
>
> Private Sub ckReturned_Click()
>
> If ckReturned.Value = True Then
> If UnitPrice.Value > 0 Then
> UnitPrice.Value = UnitPrice.Value * -1
> End If
> Else
> If UnitPrice.Value < 0 Then
> UnitPrice.Value = UnitPrice.Value * -1
> End If
> End If
>
> Thanks!