I have the following code on the check box to remove stock when the ink/toner request is ticked off as 'Done'
Private Sub Done_AfterUpdate()
If Me.Done.Value = True Then
If [Current Stock] <= 0 Then
[Current Stock] = MsgBox("No stock available", vbOKOnly)
Me.Done.Value = 0
Me.Current_Stock.Value = [Current Stock] - 1
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Could the 'Undo' part be causing the issue?
Its there so that if someone accidently ticks a job then they can untick it and the stock be put back up.
I tried it with the adding 1 to stock if it was unticked but then you could add stock when the stock level was '0' so it would throw the stock figures out.
Its only a minor issue we had after putting it out on the network today. Its the only one its had and its nothing major.. just want my system to have 0 flaws