ลองเปลี่ยนวิธีได้แล้วค่ะแต่ติดปัญหาคือ มันอัพเดทสต๊อกได้นะคะ แต่มันอัพเดททุกเรคคอร์ดเลย แล้วลองพยายามดูแล้ว ไม่รุจะใส่ where ยังไง ตรงไหน ก้ทำไม่ได้เลยอ่ะค่ะ จะทำยังไงดีคะ T^T

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

ขอบคุนมากๆนะคะ

เอาวิธีแรกนะครับ โค้ดสั้นดี
Private sub command1_click()
dim sql as string
sql="Update tblProduct set ProdQty = (nz(ProdQty,0) - " & nz(me.txtQty,0)
sql = sql & ") where ProdCode Like '" & me.txtProdCode & "';"
Debug.print sql
' currentproject.connection.execute sql
End sub


1 เพิ่มการป้องกัน Error เนื่องจากชนิดข้อมูล , และความมีอยู่ของข้อมูล (not null)
2 เปลี่ยน operator ในส่วนของ Where
3 ให้มีการ Debug เช็คสายอักขระก่อน เพื่อดูว่า ค่าของ ตัวลบ และค่าของ เงื่อนไข ถูกต้องหรือไม่ โดย ได้ทำการ เบรคคำสั่งที่จะรัน sql ไว้ก่อน
4 ให้ทำการตรวจเช็คสายอักขระ ใน SQL ครับ ว่า ถูกต้องทั้งเรื่อง วรรคตอน ค่าข้อมูล และเครื่องหมายทุกอย่าง ถูกต้องครบถ้วนดีหรือไม่ แล้วค่อยสั่งรัน

หากคิดว่าสายอักขระ ถูกต้องแล้ว แต่สงสัยทำไม ไม่ได้ผลดังใจ ให้เปลี่ยน "ตัวกระทำ" เป็น Access แทน ADO ครับ (เพราะผมคิดว่า มันดักเช็ค error ได้ง่ายกว่า)

' Debug.print sql ถ้ามั่นใจว่าสายอักขระถูกแล้ว ก็เลิก debug
on error resume next
docmd.runsql sql
if err<>0 then
debug.print sql & vbcrlf & err.number & vbcrlf & err.description
err.clear
end if
on error goto 0
' Currentproject.connection.execute sql