กระทู้เก่าบอร์ด อ.Yeadram
756 3
URL.หัวข้อ /
URL
การเพิ่ม Stock รบกวนอาจารย์และผู้รู้ช่วยหน่อยค่ะ
ใช้โค๊ดนี้อยู่ค่ะ
Private Sub Command25_Click()
strSQL = "Update Product set Instock = Instock + Text23"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings (0)
MsgBox ("เพิ่มสินค้าใน Stock แล้ว")
DoCmd.RunMacro ("Mar_addnew")
End Sub
มีการดึงข้อมูลจากProduct มาก่อนตาม ID และนำข้อมูลจาก Text23 มาเพิ่ม ค่ะตามภาพ
ต้องการจะเพิ่มข้อมูลไปที่ตาราง Product ในฟิลด์ Instock แต่มันเพิ่มไปทุกๆเรคอร์ดของ ฟิลด์ Instock เลยค่ะ ทำอย่างไรให้มันเพิ่มไปแค่เฉพาะProduct ที่เราเลือกไว้ก่อนหน้านั้นคะ ขอบคุณมากค่ะ
Private Sub Command25_Click()
strSQL = "Update Product set Instock = Instock + Text23"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.SetWarnings (0)
MsgBox ("เพิ่มสินค้าใน Stock แล้ว")
DoCmd.RunMacro ("Mar_addnew")
End Sub
มีการดึงข้อมูลจากProduct มาก่อนตาม ID และนำข้อมูลจาก Text23 มาเพิ่ม ค่ะตามภาพ
ต้องการจะเพิ่มข้อมูลไปที่ตาราง Product ในฟิลด์ Instock แต่มันเพิ่มไปทุกๆเรคอร์ดของ ฟิลด์ Instock เลยค่ะ ทำอย่างไรให้มันเพิ่มไปแค่เฉพาะProduct ที่เราเลือกไว้ก่อนหน้านั้นคะ ขอบคุณมากค่ะ
3 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R21806
ตรงคำสั่ง SQL ใน strSQL ต้องเพิ่ม Where รหัสสินค้าบนฟอร์มเท่ากับรหัสสินค้าในตารางด้วยครับ
2 @R21812
มันขึ้นแถบสีเหลืองตรงบรรทัดนี้อ่ะค่ะ
DoCmd.RunSQL strSQL
เพิ่มWhere ประมาณนี้รึเปล่าคะ
strSQL = "Update Product set Instock = Instock + Text23 WHERE ProductID ="
DoCmd.RunSQL strSQL
เพิ่มWhere ประมาณนี้รึเปล่าคะ
strSQL = "Update Product set Instock = Instock + Text23 WHERE ProductID ="
3 @R21813
ต้องขอบคุณมากๆเลยค่ะตอนนี้แก้ไขได้แล้ว เพิ่มเป็นประมาณนี้ค่ะ
strSQL = "Update Product set Instock = Instock + Text23 WHERE([ProductID] = " & Me.ProductID & ")"
strSQL = "Update Product set Instock = Instock + Text23 WHERE([ProductID] = " & Me.ProductID & ")"
Time: 0.3113s
