กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
296 2
URL.หัวข้อ /
URL
เคยมีคนถามเรื่อง การลบ table ใน mdb ทั้งหมด
เคยมีคนถามเรื่อง การลบ table ใน mdb ทั้งหมด ตอนนี้ต้องการ code นั้นมากแต่หาไม่พบครับ
และถ้าต้องการ link Table จาก Mdb ทั้งหมดด้วยนะครับจะทำอย่างไรครับ
และถ้าต้องการ link Table จาก Mdb ทั้งหมดด้วยนะครับจะทำอย่างไรครับ
2 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R01169
ผมไปเจอะ Code
Dim tdTable As TableDef
For Each tdTable In CurrentDb.TableDefs
If Left(tdTable.Name, 4) <> "MSys" Then 'filter out System tables
DoCmd.DeleteObject acTable, tdTable.Name
End If
Next tdTable
End Sub
ปัญหาคือมันติดที่ relation ไม่ยอมลบครับ ทำอย่างไรดี
2 @R01178
ลองลบ Relationships ทั้งหมดก่อน แล้วค่อยลบตารางอีกทีครับ
Sub DeleteAllRelationships()
Dim dbs As Database, rel As Relation
Set dbs = CurrentDb
For Each rel In dbs.Relations
dbs.Relations.Delete rel.Name
Next
dbs.Close
Set dbs = Nothing
End Sub
Time: 0.8097s
