Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ ระบบฐานข้อมูล
Access : จุดเริ่มต้นที่ง่ายที่สุดสำหรับการเรียนรู้ การเขียนโปรแกรม
Access : เป็นได้ทั้งตัวเก็บฐานข้อมูล และตัวจัดการฐานข้อมูล
Thai Access : บอร์ดเสริมการเรียนรู้ Access ด้วยภาษาไทย

น้อมรำลึกในพระมหากรุณาธิคุณอันหาที่สุดมิได้ พระบาทสมเด็จพระปรมินทรมหาภูมิพลอดุลยเดชฯ พระผู้เสด็จสู่สวรรคาลัย

 << Topic List
เรื่องของฟอร์ม

Topic by Message Posted : on : 3/2/2547 10:51:44
ganis  ผมสร้างฟอร์มมาหนึ่งฟอร์มมี text box อยู่1 อัน และต้องการให้ข้อมูลใน text box ถูกนำไปเก็บไว้ใน ตาราง 2 ตาราง จะต้องทำอย่างไร ท่านใดมีคำแนะนำช่วยเหลือด้วยครับ ขอบคุณครับ

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

Reply by Message on : 3/2/2547 12:11:08
Ken
(R06374)
ที่ผมใช้อยู่นะสร้าง Cmd แล้วเขียน ที่ Event Cmd click

sub Cmd1_Click
'เพิ่มข้อมูลตารางที่1
Dim ADb As Database
Dim ASet As DAO.Recordset
Set ADb = DBEngine.Workspaces(0).Databases(0)
Set ASet = ADb.OpenRecordset("ชื่อตารางที่1",
DB_OPEN_DYNASET)
ASet.AddNew
ASet![ชื่อฟิลด์ที่จะเก็บข้อมูล] = Text1.Value
ASet.Update
ASet.Close
ADb.Close
'เพิ่มข้อมูลตารางที่2
Dim BDb As Database
Dim BSet As DAO.Recordset
Set BDb = DBEngine.Workspaces(0).Databases(0)
Set BSet = ADb.OpenRecordset("ชื่อตารางที่2",
DB_OPEN_DYNASET)
BSet.AddNew
BSet![ชื่อฟิลด์ที่จะเก็บข้อมูล] = Text1.Value
BSet.Update
BSet.Close
BDb.Close
End Sub
Back to Top
+++ webboard source: ASPThai.Net Webboard 6.0 webbord +++++++ admin : yeadram +++