Show Label If One Field Value Less Than Another Field Value

[burrina]

If Me.UnitsInStock.Value < Me.SetReOrderLevel Then 'both are numeric fields. NOT WORKING ?
Me.Label69.Visible = True ' Label69 default is not visible
End If


Don't know why this does not work,Right now UnitsinStock has 19 in stock and SetReOrderLevel has been set to 20

Sorry for the Forest Gump Post!



Having a moment.

[pbaldy]

Where is the code? You probably want an Else clause to set it back to invisible as appropriate.

[burrina]

It is run on the oncurrent event. Since I already have the default set to Invisible, is this still necessary?

[pbaldy]

Sure; what if you navigate to a record that shouldn't display the label after being on one that should?

If it's not working, have you set a breakpoint to check the values? Is the code running at all (is any code running)?

[burrina]

The form is a continuous form, but if the value is not there, i.e. less than, then the label should not be visible anyway. Oh, I see your point, I do need a else statement, Hmmm!
The code does no give any errors, it just does not work. I compile and no runs, no hits, no errors.

[pbaldy]

Can you post the db here? Also, in a continuous form this (using code) will not really achieve the desired look. You might use a textbox instead of a label and use Conditional Formatting.

[burrina]

Ok, here is the necessary form,query and tables, zipped.

[pbaldy]

Your fields are text, not numeric. Try

If CLng(Me.UnitsInStock.Value) < CLng(Me.SetReOrderLevel) Then ' If Inventory Level is Low, Reorder Message.Both are numbers

[burrina]

That works for the first record, but if you go to the next record, you get an error message; Run Time Error 94, Invalid use of Null

[pbaldy]

That's because there are Null values. Use the Nz() function if that's a possibility in the actual db.

[burrina]

Ok, I tried UNsuccesfully with this code;

If CLng(Nz([UnitsInStock], 0).Value) < CLng(Nz([SetReOrderLevel], 0)) Then ' If Inventory Level is Low, Reorder Message.
Me.Label69.Visible = True
Else
Me.Label69.Visible = False
End If

____________________________________
I also set the field values to ; =Nz([UnitsInStock],0)

______________________________
Error Message is Run Tim error 424 Object Required ????

[pbaldy]

More like:

CLng(Nz(Me.UnitsInStock.Value, 0))