กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
297 4
URL.หัวข้อ /
URL
Form : Update field other table
รบกวน อาจารย์แนะนำด้วยครับ จาก Code ดังกล่าว
Private Sub CmdAppen_Click()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "UPDATE [Tbl0080_DataEmptyOut_Main] SET Imported = -1 WHERE DocNo = '" & [Forms]![FrmTbl0080_DataEmptyOut_Main]![DocNo] & "';"
End Sub
ถ้าผมต้องการเพิ่มให้ Update field จาก Table อื่นๆ อีกต้องเพิ่มเติมอย่างไรครับ
ผมต้องการ Update Field Imported2 (ให้เป็น -1) From Table Tbl1011_DCRsub
รบกวนแนะนำด้วยครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
Private Sub CmdAppen_Click()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "UPDATE [Tbl0080_DataEmptyOut_Main] SET Imported = -1 WHERE DocNo = '" & [Forms]![FrmTbl0080_DataEmptyOut_Main]![DocNo] & "';"
End Sub
ถ้าผมต้องการเพิ่มให้ Update field จาก Table อื่นๆ อีกต้องเพิ่มเติมอย่างไรครับ
ผมต้องการ Update Field Imported2 (ให้เป็น -1) From Table Tbl1011_DCRsub
รบกวนแนะนำด้วยครับ
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R06033
ขอบคุณๆ ตุ้มเม้ง มากๆ ครับ
ผมลองแล้วครับ ปรากฏว่า ไม่สามารถ Run Code ได้ครับ
มันมาหยุดที่บรรทัดที่แทรกใหม่ครับ
dbs.Execute "UPDATE [Tbl1011_DCRsub] SET Imported2 = -1 WHERE DocNo = '" & [Forms]![FrmTbl0080_DataEmptyOut_Main]![DocNo] & "';"
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
ผมลองแล้วครับ ปรากฏว่า ไม่สามารถ Run Code ได้ครับ
มันมาหยุดที่บรรทัดที่แทรกใหม่ครับ
dbs.Execute "UPDATE [Tbl1011_DCRsub] SET Imported2 = -1 WHERE DocNo = '" & [Forms]![FrmTbl0080_DataEmptyOut_Main]![DocNo] & "';"
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
3 @R06037
ถ้าบรรทัดแรกผ่าน อันที่ 2 ก็น่าจะผ่าน นะครับ
ลองดูที่โครงสร้างของ table TBl1011_DCRsub ดูก่อนครับ ลองเปรียบเทียบดูกับ Tbl0080_DataEmptyOut_Main หรือจะแนบไฟล์มาด้วยก็ดีครับ
เผื่อมีหลายๆท่านให้คำตอบได้กว่าที่ผมบอกไว้
ลองดูที่โครงสร้างของ table TBl1011_DCRsub ดูก่อนครับ ลองเปรียบเทียบดูกับ Tbl0080_DataEmptyOut_Main หรือจะแนบไฟล์มาด้วยก็ดีครับ
เผื่อมีหลายๆท่านให้คำตอบได้กว่าที่ผมบอกไว้
4 @R06047
ต้องขอโทษ คุณ ตุ้มเม้ง ด้วยครับ
สามารถทำได้ตามที่คุณ บอกไว้ครับ
ผมสับสนในการอ้างอิง Field เองครับ
ผมแนบตัวอย่างมาให้เพื่อนๆ ศึกษาด้วยครับ
(อย่างลืมอ้างอิง Referance DAO ด้วยนะครับ)
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
สามารถทำได้ตามที่คุณ บอกไว้ครับ
ผมสับสนในการอ้างอิง Field เองครับ
ผมแนบตัวอย่างมาให้เพื่อนๆ ศึกษาด้วยครับ
(อย่างลืมอ้างอิง Referance DAO ด้วยนะครับ)
ขอบพระคุณมากๆ ครับ
Suchat
ชลบุรี
Time: 0.1240s
dbs.Execute "UPDATE [Tbl1011_DCRsub] SET Imported2 = -1 WHERE DocNo = '" & [Forms]![FrmTbl0080_DataEmptyOut_Main]![DocNo] & "';"