Code problem

[sboelitz]

Hi im new here and fairly new to access to and am a bit stuck with VB code. I am trying to make a database to use for stock control of toners and will allow us to sell consumables to internal departments. however i have become stuck as i am trying to make it so it wont allow us to place an order if there is no stock and wont take more stock off the list than what we have as it currently goes in to minus stock.

When the save button is pressed this is the code that runs

'------------------------------------------------------------
' Command14_Click
'
'------------------------------------------------------------
Private Sub Command14_Click()
On Error GoTo Command14_Click_Err


' Opens stoock check form
DoCmd.OpenForm "StockLevelCheck", acNormal, "", "", acEdit, acHidden
' Disables warning messages
DoCmd.SetWarnings False
If (Forms!StockLevelCheck!Stock <= 1) Then
' Removes stock from toner list


DoCmd.OpenQuery "cosumables-remove", acViewNormal, acEdit
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close acForm, "consumables-sell-new"
DoCmd.Close acForm, "consumables-sell-new"
End If
' enables warning messages
DoCmd.SetWarnings True
If (Forms!StockLevelCheck!Stock = 0) Then
Beep
MsgBox "Ops... None in stock!", vbExclamation, "None in stock"
End If
If (Forms!StockLevelCheck!Stock = 1) Then
Beep
MsgBox "That was the last toner!", vbExclamation, "Low stock!"
End If
DoCmd.Close acForm, "StockLevelCheck"
If (Forms!StockLevelCheck!Stock = 0) Then
DoCmd.Close acForm, "consumables-sell-new"
End If




Command14_Click_Exit:
Exit Sub


Command14_Click_Err:
MsgBox Error$
Resume Command14_Click_Exit


End Sub

Could someone help me please as im confused after spending a few days looking at it...

[orange]

I don't have specific advice for you. However, Inventory Control is not a simple or trivial subject. As you get more involved with multiple suppliers, products with serial numbers, reorder levels, variations in pricing and discounts it can be extremely complex.

You might try google for inventory control or stock control with reorder points and possibly back orders.
There are inventory data models at http://www.databaseanswers.org/data_models/index.htm that may help with some structures.

You may also find some ideas from Allen Browne's info at http://allenbrowne.com/appinventory.html

It would help if you posted a jpg of your tables and relationships to help people understand what you have currently.