Welcome to SPN

Register and Join the most happening forum of Sikh community & intellectuals from around the world.

Sign Up Now!

Donation box price visible not calculating

Discussion in 'Information Technology' started by lmv, Jul 28, 2006.

  1. lmv

    lmv
    Expand Collapse
    Guest

    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?)

    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!
     
  2. Loading...


  3. Steve Schapel

    Steve Schapel
    Expand Collapse
    Guest

    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))
    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
    > 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!
     

Share This Page