Avatar of getwidth28
getwidth28
Flag for United States of America asked on

More help on an expression. Multiply something by a database figure

Hello all.

Now I need to figure up the "Net" dollar figure on frmLogs.  The gross is done.

To figure out the net:
Multiply the Gross (already calculated and shown in frmLogs) by either 50% or 60%.  

To figure out whether to use 50% or 60%.
I added to tblGrades a column called NetPerc (net percentage).  Each tree species has either a value of .5 or .6.  Now I need to look up that value to multiply to the Gross figure.

I can get this to work.
In frmLogs for Net, if I put this in the expression builder "=[txtGross]*.5" that works correctly.  

A couple things I tried.
I cannot get something like this to work: "=[txtGross]*[tblGrades]![NetPerc]".  Maybe I would guess I need to somehow add whatever the syntax to it something like this: =[txtGross]*[tblGrades]![NetPerc] WHERE tblGrades.Species = Species.  IDK.
Database1683.accdb
Microsoft AccessVB Script

Avatar of undefined
Last Comment
PatHartman

8/22/2022 - Mon
ASKER CERTIFIED SOLUTION
mbizup

THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
See Pricing Options
Start Free Trial
GET A PERSONALIZED SOLUTION
Ask your own question & get feedback from real experts
Find out why thousands trust the EE community with their toughest problems.
PatHartman

Don't use DLookup() in queries (or code loops).  Use a join instead.  Using DLookup() causes Access to run a completely separate query.  So, if your query returns a thousand rows, you'll be running another thousand queries.  That's a huge amount of overhead.  The join is much more efficient and therefore better practice.

Select ..., tb1.Gross * tblGrades.NetPerc As NetAmt
Fro tb1 inner join tblGrades on tb1.Species = tblGrades.Species.
getwidth28

ASKER
I could not figure out how to do a select in the expression box.

I was able to work my way into getting the DLookup() to wok, although not a best practice as you mentioned.  Since my knowledge is limited, I will take what I can get to work for now.

Here is how I built myself into getting something that worked going off of yours mbizup.

=DLookUp("[NetPerc]","tblGrades"

=DLookUp("[NetPerc]","tblGrades","[Species] = ""Ash""")

=DLookUp("[NetPerc]","tblGrades","[Species] = Form!Species")

=DLookUp("[NetPerc]","tblGrades","[Species] = [Forms]![frmTrees]![TreeType]")

I messed up along the line the started using both species and TreeType for the same thing.  That is bad I know, maybe I will fix it soon.
PatHartman

Joins are quite easy if you use the QBE.  You'll probably take less time than it took to figure out the Dlookup().  Open the query window and drag the two tables on to it.  Draw a join line by clicking and dragging to connect the two tables on Species or Species to TreeType.  Then you can select columns from both tables.  Add a calculated column in the query or on the Form/Report.  Use this query as the RecordSource for your form/report.
Your help has saved me hundreds of hours of internet surfing.
fblack61
mbizup

to my understanding,this is not for a query or code loop so should be ok.

your syntax is close, but you need to separate out the form reference.

Dlookup("netperc","tblgrades", "species :  '" & forms!frmtrees!species & "'")
mbizup

That colon should have been an equals sign.
getwidth28

ASKER
What I posted was working ok.  I was able to use a label to show that it was finding the right value (either .5 or .6) plus then multiply it and give the right answer.  

Percentage
Now I need to fill out the area above that says "Total Tree Net".  I was able to do likewise queries with VBA with a Form action with nested loops.
⚡ FREE TRIAL OFFER
Try out a week of full access for free.
Find out why thousands trust the EE community with their toughest problems.
PatHartman

It didn't need to be so complicated.
If you have A2010 or A2013 (possibly A2007), you can add a totals row to the subform by clicking on the sigma button on the ribbon.  Then choose sum as the option for net.  You can just leave it in the subform and do nothing or you can add an expression that updates the field in the header after the subform is updated.

So, in the subform's afterupdate event.
Me.Parent!txtTotalTreeNet = Me.txtSumNet
getwidth28

ASKER
PatHarman
I like what you are saying but I can't get the sigma button to not be greyed out.  I think I see that there has to be a subform like you mentioned and such.  I don't quite get it though.

For now I suppose I will use what I have although not the best practice.  I am trying to get something functional quick with what I can learn for this project.  A 2nd revision will hopefully let me focus more on simplifying and speeding it up.
PatHartman

It may only be available for subforms in datasheet view.
Experts Exchange has (a) saved my job multiple times, (b) saved me hours, days, and even weeks of work, and often (c) makes me look like a superhero! This place is MAGIC!
Walt Forbes