How to add a method? Its there in the library, the library is activated, VB recognized OldValue (it capitalizes it correctly when I type "oldvalue". But when I run it, it gives me error 438 - "Object doesn't support this property or method."
the code looks like this:
Private Sub QuantityOrdered_BeforeUpdate(Cancel As Integer)
'After changing quantity, we check if it is in stock
Dim intNumInStock As Integer
Dim intNewQuan As Integer
Dim intOriginalQuan As Integer
Dim intChangeQuan As Integer
intNewQuan = Forms!ProductOrderDetails![Quantity Ordered]
intOriginalQuan = Forms!ProductOrderDetails![Quantity Ordered].OldValue [here is where it breaks]
intChangeQuan = intNewQuan - intOriginalQuan
strFilter = "[Product ID] = " & Me![Product ID]
intNumInStock = DLookup("[Number in Stock]", "ProductsList", strFilter)
Me![Shipping Weight] = DLookup("[Shipping Weight]", "ProductsList", strFilter) * Me![Quantity Ordered]
Me![ExtendedPrice] = Price * [Quantity Ordered]
If intNumInStock >= intNewQuan Then
Me![Number in Stock] = [Number in Stock] - [intChangeQuan]
MsgBox "In Stock - " & intChangeQuan & " deducted from Inventory", vbOKOnly, "Stock Checker"
Exit Sub
Else
MsgBox "Out of Stock - Cannot take this order", vbOKOnly, "Stock Checker"
'Me![quantity ordered] = intOriginalQuan
'DoCmd.CancelEvent
Exit Sub
End If
Refresh
End Sub
the code looks like this:
Private Sub QuantityOrdered_BeforeUpdate(Cancel As Integer)
'After changing quantity, we check if it is in stock
Dim intNumInStock As Integer
Dim intNewQuan As Integer
Dim intOriginalQuan As Integer
Dim intChangeQuan As Integer
intNewQuan = Forms!ProductOrderDetails![Quantity Ordered]
intOriginalQuan = Forms!ProductOrderDetails![Quantity Ordered].OldValue [here is where it breaks]
intChangeQuan = intNewQuan - intOriginalQuan
strFilter = "[Product ID] = " & Me![Product ID]
intNumInStock = DLookup("[Number in Stock]", "ProductsList", strFilter)
Me![Shipping Weight] = DLookup("[Shipping Weight]", "ProductsList", strFilter) * Me![Quantity Ordered]
Me![ExtendedPrice] = Price * [Quantity Ordered]
If intNumInStock >= intNewQuan Then
Me![Number in Stock] = [Number in Stock] - [intChangeQuan]
MsgBox "In Stock - " & intChangeQuan & " deducted from Inventory", vbOKOnly, "Stock Checker"
Exit Sub
Else
MsgBox "Out of Stock - Cannot take this order", vbOKOnly, "Stock Checker"
'Me![quantity ordered] = intOriginalQuan
'DoCmd.CancelEvent
Exit Sub
End If
Refresh
End Sub