กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
363 2
URL.หัวข้อ /
URL
วานท่านผู้รู้เรื่อง การ Copy Table ขึ้นแผ่น และAppend ....
คือเครื่องที่ user ใช้ป้อนข้อมูลเป็น Stand alone โดย User แต่ละคนป้อนข้อมูลของใครของมัน แล้วให้เครื่องหนึ่งเป็นตัว Merge Data จากทุกเครื่อง เพื่อออกรายงานเพียงเครื่องเดียว จะเขียนคำสั่งอย่างไรเพื่อให้ User Copy Table ตัวที่ต้องการขึ้นแผ่น A: แล้ว นำ Data จาก Table นั้น ลงอีกเครื่องหนึ่ง โดยการ Append ต่อจากข้อมูลเครื่องนั้น เพื่อ Merge ข้อมูล นำมาออกรายงานตามที่ต้องการ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01163
นี่คือตัวอย่างในการสร้าง ฐานข้อมูล ไว้ใน Drive A แล้วส่งตารางเป้าหมายจากไฟล์ที่อยู่ใน Hard Disk ลงไปด้วย
Sub CreateNewDB()
Dim wsp As Workspace
Dim dbs As Database
Dim strDBFile As String
strDBFile = "A:\NewDB.mdb"
Set wsp = DBEngine.Workspaces(0)
Set dbs = wsp.CreateDatabase(strDBFile, dbLangGeneral)
DoCmd.CopyObject strDBFile, , acTable, "Table1"
dbs.Close
Set dbs = Nothing
Set wsp = Nothing
End Sub
ถ้ามีฐานข้อมูลแล้ว ก็อาจใช้แค่ส่งตารางเป้าหมายไปก็พอ ดังนี้
Sub CopyTable()
DoCmd.CopyObject "a:\test.mdb", , acTable, "Table1"
End Sub
ส่วนการการนำข้อมูลในตารางจาก A เข้าไปในฐานข้อมูลตัวจริง ให้ลองปรับโค้ดนี้ดูครับ
Private Sub Form_Timer()
Dim dbs As Database
Set dbs = CurrentDb
dbs.Execute "INSERT INTO ชื่อตารางเป้าหมาย " _
& "SELECT * " _
& "FROM [ชื่อตารางที่อยู่ใน A] IN 'A:\Test.mdb';"
End Sub
2 @R01164
ขอบคุณ อ. สุภาพมากนะครับแล้วผมจะนำไปลองทำดูครับ
Time: 0.0451s
