Giant If statement?

[imintrouble]

Hello once again kind people of Microsoft Access Forums!

I am in need help with this current project I have. What it is supposed to do is take the number from four seperate fields in my query, checking them like this

if AGShrs = 0 then
if ASBAhrs = 0 then
Degree = ASBA
else if ASCJhrs = 0 then
Degree = ASCJ
else if AAhrs = 0 then
Degree = AA
else
Degree = Potential
Endif


I understand that this is in no way correct syntax but i haven't done vb in a while so as you can understand, i'm a bit rusty. Now let me explain this formula a bit.

the first thing it needs to check is if the hrs of the AGS field are 0. If they are it then checks both ASBA and then ASCJ. If either are 0, then degree will be equal to the one that is 0. If it isn't but AGS was 0, then degree = AGS. Then it finally checks if AA was 0, making degree AA if it was. Lastly if none were 0, degree needs to be marked as potential. The answers of all of this, what degree is set to equal as in the end of the code, needs to be input into the field which this module will reside.



Thanks!

[dreday]

I think this will work for you

if ((AGShrs = 0) AND (AGShrs=0)) then
Degree = "ASBA"
elseif (ASCJhrs=0) then
Degree = "ASCJ"
elseif (AAhrs=0) then
Degree = "AA"
else
Degree = "Potential"
end if

[hertfordkc]

Hello once again kind people of Microsoft Access Forums!

I am in need help with this current project I have. What it is supposed to do is take the number from four seperate fields in my query, checking them like this

if AGShrs = 0 then
if ASBAhrs = 0 then
Degree = ASBA
else if ASCJhrs = 0 then
Degree = ASCJ
else if AAhrs = 0 then
Degree = AA
else
Degree = Potential
Endif


I understand that this is in no way correct syntax but i haven't done vb in a while so as you can understand, i'm a bit rusty. Now let me explain this formula a bit.

the first thing it needs to check is if the hrs of the AGS field are 0. If they are it then checks both ASBA and then ASCJ. If either are 0, then degree will be equal to the one that is 0. If it isn't but AGS was 0, then degree = AGS. Then it finally checks if AA was 0, making degree AA if it was. Lastly if none were 0, degree needs to be marked as potential. The answers of all of this, what degree is set to equal as in the end of the code, needs to be input into the field which this module will reside.

Thanks!

-------------------------------------------------------------------------
Degree:iif(AGShrs = 0,iif(ASBAhrs = 0,"ASBA",iif(ASCJhrs = 0,"ASCJ",iif(AAhrs = 0,"AA","")),"Potential")

Note that there is a path here where I put an empty string. Perhaps the empty string and "Potential" need to be swapped. I hope the parens are balanced so you can test it to see if it delivers the desired result.

[imintrouble]

Thanks to both of you. I had already started trying the top answer when I saw you comment hertfordkc but I got it all to work out nicely. Had to mess with some access magic but otherwise succeeded. Thanks to both of you, and enjoy the extra rep >.<