Less then or greater value is not working

[kimpida]

Code:
---------
If (Me.Variance_From_Budget < 99999 And Me.Variance_From_Budget >= -99999)
---------


This code is working when variance is less then -100,000, but does not work when variance is greater then -100,000.

Please help.:banghead:

 

[TJPoorman]

Not sure if this will change anything, but perhaps your parenthesis need to be rearranged:

If (Me.Variance_From_Budget < 99999) And (Me.Variance_From_Budget >= -99999)

 

[kimpida]

Nope, not working when variance is greater then -100,000.

 

[TJPoorman]

When you say "greater then -100,000", do you mean -101,000 or -99000?

 

[kimpida]

I mean:

-101000

 

[nanscombe]

If (Me.Variance_From_Budget < 99999 And Me.Variance_From_Budget >= -99999)

The statement will only be True if Me.Variance_From_Budget is between -99999 and 99998.

Do you want the opposite, i.e. True if Me.Variance_From_Budget is less than -99999 or Greater than 99998?

If (Me.Variance_From_Budget < -99999) Or (Me.Variance_From_Budget >= 99999)

You could make use of the ABS() function, absolute magnitude, which does away with the +/- and say ...

If ABS(Me.Variance_From_Budget <= 99999)

Me.Variance_From_Budget between -99999 and +99999

Or

If ABS(Me.Variance_From_Budget > 99999)

Me.Variance_From_Budget not between -99999 and +99999

 

[Brianwarnock]

Code:
---------
If (Me.Variance_From_Budget < 99999 And Me.Variance_From_Budget >= -99999)
---------


This code is working when variance is less then -100,000, but does not work when variance is greater then -100,000.

Please help.:banghead:

So it correctly does not select when <-100,000 and incorrectly does not select for>-100 ,000, in other words it selects nothing?

Brian

 

[kimpida]

Here My code:

'Overbudget projects needs explanation  this one is not working
 
If (Me.Variance_From_Budget < -100000) And (Me.Comments_Explanation_Delta_____100K = "" Or IsNull(Me.Comments_Explanation_Delta_____100K)) Then
        MsgBox "This project is Overbudget, provide explanation why this project is Overbudget.", vbExclamation, "Rules Checker..."
        Me.Comments_Explanation_Delta_____100K.SetFocus
        CheckRules = False
        GoTo Exit_CheckRules
End If
[\code]
 
[code]
'Onbudget project need variance Class - this on works

If (Me.Variance_From_Budget <= 100000 And Me.Variance_From_Budget >= -100000) And (Me.Variance_Class = "" Or IsNull(Me.Variance_Class)) Then
        MsgBox "This project is onbudget project, please add Variance Class 'Onbudget' .", vbExclamation, "Rules Checker ...."
        CheckRules = False
        GoTo Exit_CheckRules
 
[\code]:confused:

 

[Brianwarnock]

I mean:

-101000

Due to being interrupted I missed this, this is less than -100,000

Brian

 

[kimpida]

If (Me.Variance_From_Budget < 99999 And Me.Variance_From_Budget >= -99999)

The statement will only be True if Me.Variance_From_Budget is between -99999 and 99998.

Do you want the opposite, i.e. True if Me.Variance_From_Budget is less than -99999 or Greater than 99998?

If (Me.Variance_From_Budget < -99999) Or (Me.Variance_From_Budget >= 99999)

You could make use of the ABS() function, absolute magnitude, which does away with the +/- and say ...

If ABS(Me.Variance_From_Budget <= 99999)

Me.Variance_From_Budget between -99999 and +99999

Or

If ABS(Me.Variance_From_Budget > 99999)

Me.Variance_From_Budget not between -99999 and +99999

I am trying to figure out Onbudget and Overbudget variance.

If budget variance is $99,999 thru -$-99,999 project is 'onbudget'

'Onbudget project need variance Class - this one working 

If (Me.Variance_From_Budget <= 100000 And Me.Variance_From_Budget >= -100000) And (Me.Variance_Class = "" Or IsNull(Me.Variance_Class)) Then
        MsgBox "This project is onbudget project, please add Variance Class 'Onbudget' .", vbExclamation, "Rules Checker ...."
        CheckRules = False
        GoTo Exit_CheckRules
End If
[\CODE]
 
 
If budget variane is $100,000 thru -$100,000 project is 'overbudget' - this one is not working.:banghead:
 
[CODE]
If (Me.Variance_From_Budget < -100000) And (IsNull(Me.Variance_Class) And (IsNull(Me.Comments_Explanation_Delta_____100K))) Then
        MsgBox "This project is Overbudget, Please add Variance Class 'Overbudget'.", vbExclamation, "Rules Checker..."
        CheckRules = False
        GoTo Exit_CheckRules
[\CODE]
 
Please help - thanks

 

[Mile-O]

If budget variance is $99,999 thru -$-99,999 project is 'onbudget'

If budget variane is $100,000 thru -$100,000 project is 'overbudget' - this one is not working.:banghead:

If it's -100,000 through 100,000 and it's over budget then how can it also be on budget at -999,999 through 999,999? That's a $1 window on either side to get a different result.

I think you mean <= -100,000 OR >= 100,000.

 

[kimpida]

If it's -100,000 through 100,000 and it's over budget then how can it also be on budget at -999,999 through 999,999? That's a $1 window on either side to get a different result.

I think you mean <= -100,000 OR >= 100,000.

Yes, you are correct - thanks for correction

I mean <= -100,000 OR >= 100,000

 

[Brianwarnock]

I hate to mention this but nanscombe asked if this is what you meant back at post 5

Brian

 

[kimpida]

I hate to mention this but nanscombe asked if this is what you meant back at post 5

Brian

Sorry Brian for mix up.


thanks for your help

 

[Brianwarnock]

No problem sometimes things get Lost in the maze of info.

Brian

 

[nanscombe]

So if you want to trap the variance when it is >= (+/-) 100,000 it sounds like the following would do you ...

If ABS(Me.Variance_From_Budget >= 100000) Then

 

[Mile-O]

Make allowances for the .01 and .99 between 999,999 and 100,000 if you are using decimals, otherwise, on the rare chance your numbers falls in to that missing dollar.

 

[nanscombe]

Anything more than, or equal to +/- 100,000
If ABS(Me.Variance_From_Budget >= 100000) Then

Anything more than +/- 99,999
If ABS(Me.Variance_From_Budget > 99999) Then

 

[kimpida]

Thanks to all the folks who replied. My problem is resolved.