NCD ปรับ .Sql ใน Folder SQL และรวม Total
เมื่อรวบแล้ว จากขนาดไฟล์ 42M เหลือ 29M Zip แล้วเหลือ 975 KB
Function Del_PersonTable()
Dim rst As Recordset
DoCmd.SetWarnings False
Set rst = CurrentDb.OpenRecordset("SELECT pcucode FROM pcucode GROUP BY pcucode ")
Do While Not rst.EOF
pcucode = rst.Fields("pcucode")
strTablename = "person_" & pcucode
CurrentDb.Execute " DROP TABLE " & strTablename
rst.MoveNext
Loop
End Function
ไม่มีความคิดเห็น:
แสดงความคิดเห็น