Why does the code line below in red give me a run time error 424 " object required. But the code in blue works fine?
Code:
Private Sub cboMaterial_ID_AfterUpdate()
Dim Number As Integer
Dim NumResult As Integer
Dim result As Integer
'result = DLookup("[Quantity]", "Materials", "Material_ID=" & Me!cboMaterial_ID)
result = [cboMaterial_ID].Column(2)
If result = 0 Then
MsgBox ("No more materials available")
Else
Number = InputBox("Enter the Quantity,")
NumResult = result - Number
[cboMaterial_ID].Column(2) = NumResult
MsgBox ("Current Value of Quantity" & NumResult)
End If
End Sub