VB Question Reposted - Tony or if anyone else can help!!

[SG]

Tony,

I get the later with no message see code below...


Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then intQtyMsg = MsgBox("You are
trying to sell more items than you currently have in stock, do you want to
continue?", vbYesNo)



If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0

End If
End Sub


P.S Thank you for your help so far much appreciated!

S

 

[ruralguy via AccessMonster.com]

Do *not* put anything on the same line with "Then"

Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then
intQtyMsg = MsgBox("You are trying to sell more items than you currently "
& _
"have in stock, do you want to continue?", vbYesNo)

If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0
End If
End If

End Sub

Tony,

I get the later with no message see code below...

Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then intQtyMsg = MsgBox("You are
trying to sell more items than you currently have in stock, do you want to
continue?", vbYesNo)

If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0

End If
End Sub

P.S Thank you for your help so far much appreciated!

S

Do you also get the message telling you, you are trying to sell more than
you

[quoted text clipped - 13 lines]

 

[SG]

Perfect! Thank you for the help, and Tony too!!

Do *not* put anything on the same line with "Then"

Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then
intQtyMsg = MsgBox("You are trying to sell more items than you currently
"
& _
"have in stock, do you want to continue?", vbYesNo)

If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0
End If
End If

End Sub

Tony,

I get the later with no message see code below...

Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then intQtyMsg = MsgBox("You are
trying to sell more items than you currently have in stock, do you want to
continue?", vbYesNo)

If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0

End If
End Sub

P.S Thank you for your help so far much appreciated!

S

Do you also get the message telling you, you are trying to sell more
than
you

[quoted text clipped - 13 lines]

not
allow me to add a quantity?

 

[ruralguy via AccessMonster.com]

Glad we could help.

Perfect! Thank you for the help, and Tony too!!

Do *not* put anything on the same line with "Then"

[quoted text clipped - 45 lines]

 

[TonyT]

no problem, glad you got it sorted,

TonyT..

Perfect! Thank you for the help, and Tony too!!

Do *not* put anything on the same line with "Then"

Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then
intQtyMsg = MsgBox("You are trying to sell more items than you currently
"
& _
"have in stock, do you want to continue?", vbYesNo)

If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0
End If
End If

End Sub

Tony,

I get the later with no message see code below...

Private Sub Quantity_AfterUpdate()
Dim intQtyMsg As Integer

If Onhand(Me.ProductID) < Me.Quantity Then intQtyMsg = MsgBox("You are
trying to sell more items than you currently have in stock, do you want to
continue?", vbYesNo)

If intQtyMsg = vbYes Then
Exit Sub
Else
Me.Quantity = 0

End If
End Sub

P.S Thank you for your help so far much appreciated!

S

Do you also get the message telling you, you are trying to sell more
than
you
[quoted text clipped - 13 lines]
not
allow me to add a quantity?