Access 2002 (XP)

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

Got a couple of questions for you.

I have this form and in it there is a field called "Qty Requisitioned".

I want a pop up box to be displayed if the qty requisitioned is greater than what the figure is in stock.

How would I go about doing this?

This leads on to my second question, if the figure that is requisitioned is less than the figure in stock, how would I get the stock figure to reduce by how many that has been requisitioned?

 

Oh man! Ad-blocking software has been detected! :'(

This website is run by the community, for the community... and it needs advertisements in order to keep running. Blocking our ads means your killing our stats!
Please disable your ad-block, or become a premium member to hide all advertisements and this notice.

an If..Else statement should be able to do this

Code:

[COLOR="purple"]Private Sub[/COLOR] btnOK_Click()
   
[COLOR="purple"]Dim[/COLOR] sqlValue [COLOR="purple"]As Integer[/COLOR]
[COLOR="purple"]Dim[/COLOR] tbValue [COLOR="purple"]As Integer[/COLOR]
[COLOR="purple"]Dim[/COLOR] nSqlValue [COLOR="purple"]As Integer[/COLOR]
    [COLOR="green"]'Set the values[/COLOR]
    sqlValue = DLookup("Qty", "tblMain", "ID = " & Me.txtID.Value)
    tbValue = Me.TextBox1.Value
    [COLOR="green"]'Check if its below the current levels[/COLOR]
    [COLOR="purple"]If[/COLOR] tbValue > sqlValue [COLOR="purple"]Then[/COLOR]
         MsgBox ("Value is above current stock levels")
         [COLOR="purple"]Exit Sub[/COLOR]
    [COLOR="purple"]Else[/COLOR]
        [COLOR="green"]'TODO: Do something with the data, i assume you would like to update Qty &[/COLOR]
        [COLOR="green"]'create a matching order in another db[/COLOR]
        [COLOR="green"]'Set new stock level[/COLOR]
        nSqlValue = sqlValue - tbValue
        [COLOR="green"]'Inform the user[/COLOR]
        MsgBox ("Stock levels have been adjusted accordingly: " & nSqlValue & " Remaining")
    [COLOR="purple"]End If[/COLOR]
[COLOR="purple"][COLOR="Purple"]End Sub[/COLOR][/COLOR]

Hope this helps

 

Thomas,

Thanks for the help, I've decided to make it a lot simpler, this was for a friend and I've decided I'm going to tell him to adjust and monitor his stock levels manually.

 

no worries bud