I know this is a simple one, but I have stared at it so long, I can't see it. It is throwing a Type Mismatch on the second If statement.
Code:
Private Sub cbxProductSKU_AfterUpdate()
Dim curRepCost As Variant
Me.tbxRepCost.Locked = True
If Me.cbxMarketplace = "Contract - VendorJump" Then
If Me.cbxDefectCat = "In-House" Or "Customer" Then
curRepCost = DLookup("ReplaceCost", "Inventory", "SKU = '" & Me.cbxProductSKU & "'")
Me.tbxAddRefund.Value = 0
Me.tbxRepCost.Value = curRepCost
Me.tbxRepCost.Locked = True
Me.tbxTotalAmount = Me.tbxRepCost + Me.tbxAddRefund
Else
End If
Else
Me.tbxRepCost.Value = 0
Me.tbxRepCost.Locked = True
End If
End Sub
Could someone please point out the obvious thing that I am missing.