Caculated field with if then conditions

[tmaleshafske]

I am working on a database for my employer in regards to yield. Because we do a lot of high moisture corn we have to shrink the weights to dry bushels, but once we are down to a specific moisture then we no longer shrink it and just go by weight I want this to be invoked on insert and into a specific column of that particular row. I can get it to work with one portion, but not on an if statment what am I doing wrong

Here is my code

If [Corn Yield]![Moisture] >= "15.5" Then [DRY BUSHELS] = [Net Weight] / 56
ElseIf [Moisture] < "15.5" Then [DRY BUSHELS] = [Net Weight] / (56 / (1 - (([Moisture] - 15.5) * 0.013)))

[June7]

Why doesn't it work - error message, wrong results, nothing happens?

Assume [Moisture] field is a number type, don't put the value in quote marks.

Where is this statement - in a VBA procedure or in a query or in a textbox? If you are using in the latter two then must use an IIf function:

IIf([Moisture] >= 15.5, [Net Weight] / 56, [Net Weight] / (56 / (1 - (([Moisture] - 15.5) * 0.013))))

[ssanfu]

I'm a little confused on where you are using this - in code or in a query.

If you want this in a query, you need to use the IIF() version of the IF...THEN function:

IIF([Corn Yield]![Moisture] >= 15.5,[DRY BUSHELS] = [Net Weight] / 56,[Net Weight] / (56 / (1 - (([Moisture] - 15.5) * 0.013))))

If used in code, you should use this form of the IF...THEN function:

If [Corn Yield]![Moisture] >= 15.5 Then 
   [DRY BUSHELS] = [Net Weight] / 56
ElseIf [Moisture] < "15.5" Then 
   [DRY BUSHELS] = [Net Weight] / (56 / (1 - (([Moisture] - 15.5) * 0.013)))
End IF

I removed the quotes around the 15.5 in the first condition.
"15.5" (a text string) is not equal to 15.5 (a number).

It is confusing on your field/variable names. Some places you use "[Corn Yield]![Moisture]", other places you use "[Moisture]".
Some names are in all caps, others are mixed case.



Also, you shouldn't use spaces in Access object names. It just causes you headaches. See http://access.mvps.org/access/tencommandments.htm #3

If you must use all caps, use the underscore "DRY_BUSHELS". Or use "DryBushels"