กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
392 2
URL.หัวข้อ /
URL
update โดยไม่ได้เปิดตาราง ทำไงครับ
ผมต้องการอัพเดทข้อมูลฟิลด์ remain จากเทเบิ้ลชื่อ std ใช้เงื่อนไขที่ ฟิลด์ level
**** หมายเหตุ
ฟิลด์ level เป็นแบบเท็กซ์
ฟิลด์ remain เป็นนัมเบอร์
โดยคลิกจากปุ่มบนฟอร์มโดยไม่ได้เปิดเทเบิ้ล ผมเขียนโค๊ดดังนี้ครับ
Private Sub cmdup_Click()
Dim dbs As Database
Dim SQL As String
Set dbs = CurrentDb
SQL = "UPDATE std SET std.remain =500 WHERE (((std.level)=1));"
DoCmd.RunSQL (SQL)
dbs.Close
End Sub
Run-time eror '6424'
ชนิดข้อมูลไม่ตรงกันกับในนิพจน์เงื่อนไข
และที่บรรทัด DoCmd.RunSQL (SQL) จะเป็นสีเหลืองครับ
ช่วยแนะนำด้วยครับผมผิดตรงใหน
ขอบคุณล่วงหน้าครับผม
**** หมายเหตุ
ฟิลด์ level เป็นแบบเท็กซ์
ฟิลด์ remain เป็นนัมเบอร์
โดยคลิกจากปุ่มบนฟอร์มโดยไม่ได้เปิดเทเบิ้ล ผมเขียนโค๊ดดังนี้ครับ
Private Sub cmdup_Click()
Dim dbs As Database
Dim SQL As String
Set dbs = CurrentDb
SQL = "UPDATE std SET std.remain =500 WHERE (((std.level)=1));"
DoCmd.RunSQL (SQL)
dbs.Close
End Sub
Run-time eror '6424'
ชนิดข้อมูลไม่ตรงกันกับในนิพจน์เงื่อนไข
และที่บรรทัด DoCmd.RunSQL (SQL) จะเป็นสีเหลืองครับ
ช่วยแนะนำด้วยครับผมผิดตรงใหน
ขอบคุณล่วงหน้าครับผม
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R00940
ลองเปลี่ยนใหม่ดังนี้ครับ
Private Sub cmdup_Click()
Dim dbs As Database
Dim SQL As String
Set dbs = CurrentDb
dbs.Execute "UPDATE std SET std.remain =500 WHERE (((std.level)='1'));"
dbs.Close
End Sub
ใช้ dbs.Execute จะทำงานได้ไวกว่า เพราะมันไม่ต้องเก็บ Buffer ไว้ แต่มันจะลบทันที โดยไม่ถามย้ำก่อน
2 @R00942
ขอบคุณครับอาจารย์ เดี๋ยวจะลองดูใหม่ครับ
Time: 0.1067s
