Dear Richord

I Follow Your excellent course and i try to make with my own the dlookup function, but i do not succeed, and every item in the ProductT that is taxable but  dont have a taxoverride value it's dont show a tax value, even that the form  have a tax default value.
i copy there my vb code:
Private Sub AddProduct_Click()

On Error Resume Next

Dim IsTaxable As Boolean
Dim SpecialTaxRate


DoCmd.GoToRecord , , acNewRec
Description = ListProduct.Column(1)
ItemPrice = ListProduct.Column(2)
ProductId = ListProduct.Column(0)
Notes = DLookup("note", "productT", "productid=" & "listproduct")

IsTaxable = DLookup("taxable", "productT", "ProductID=" & "listproduct")
SpecialTaxRate = DLookup("TaxOVerRide", "ProductT", "ProductID=" & "listproduct")
If IsTaxable = False Then TaxRate = 0
If Not IsNull(SpecialTaxRate) Then TaxRate = SpecialTaxRate





End Sub

---

Reply from Richard Rost:

Fix these three lines:

Notes = DLookup("note", "productT", "productid=" & "listproduct")
IsTaxable = DLookup("taxable", "productT", "ProductID=" & "listproduct")
SpecialTaxRate = DLookup("TaxOVerRide", "ProductT", "ProductID=" & "listproduct")

to this:

Notes = DLookup("note", "productT", "productid=" & listproduct)
IsTaxable = DLookup("taxable", "productT", "ProductID=" & listproduct)
SpecialTaxRate = DLookup("TaxOVerRide", "ProductT", "ProductID=" & listproduct)

Remember, you're sending the VALUE of the ListProduct box to the DLOOKUP function... not the WORD "listproduct". So it should NOT be in quotes.