[AccessD] Reorder Level

Rocky Smolin rockysmolin at bchacc.com
Tue Nov 10 09:26:40 CST 2009


I think you want (On Hand + On Order) - (Reorder Level) .

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Hollis, Virginia
Sent: Tuesday, November 10, 2009 6:37 AM
To: accessD at databaseadvisors.com
Subject: [AccessD] Reorder Level

I want to show if an item is below the reorder level. The field is
ReorderLevel. They enter the amount they need to keep in stock.  The problem
is what if they are over stocked. For Example:  Reorder Level:
14. On Hand: 496 & On Order: 500. txtReorderLevel shows "Item is -982 units
below minimum level.

 

I created a text box DaysPastDue that shows if they are below the reorder
level. 

The control source of DaysPastDue ="Item  is " & [txtReorderAmt] & "
units " & "below minimum level".

 

The control source of txtReorderAmt:
=[ReorderLevel]-([txtOnHand]+[txtOnOrder])

 

OnCurrent:

If Not IsNull(Me!ReorderLevel.Value) Then 'There is a reorder level entered

       ReorderLevel = Me!ReorderLevel.Value 'Show the value of the reorder
level entered

         

    If txtReorderAmt > 0 Then 'Reorder level is below.      

 Me!ReorderLevel.ForeColor = lngRed 'reorder level is red

              Me.DaysPastDue.Visible = True 'Show past due label

    Else

        Me!ReorderLevel.ForeColor = lngBlack 'Reorder level is not low,
reorder level is black

               Me.DaysPastDue.Visible = False 'No order label.

        

    End If

 End If

--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com




More information about the AccessD mailing list