ต้องการใส่ where ตรง update ค่ะแต่ไม่รุจะใส่ยังไง มันขึ้นว่า syntax error มั่ง end of statement มั่ง ใส่ไม่ได้เลยค่ะ
c = [Forms]![FrmBill].[Form]![txtProdCode] อันนี้คือรับรหัสสินค้าจากฟอร์มค่ะ
อยากให้มันอัพเดทที่ where ProdCode = c
แต่ใส่ตรงไหนยังไงก้ไม่ได้สักทีค่ะ


Private Sub Command56_Click()
Dim a As Integer
Dim b As Integer
Dim sql As String
Dim c As Integer
Dim d As String
a = [Forms]![FrmBill].[Form]![txtQty]
b = CInt(DLookup("ProdQty", "tblProduct", "Prodcode='" & Me![txtProdCode] & "'"))


sql = "Update tblProduct set ProdQty=" & b - a
CurrentProject.Connection.Execute sql
End Sub