ต้องการสร้างปุ่มลบ Table ครับ

[Eik Q Sang]

ผมสร้างฟอร์มนำเข้าไฟล์ Excel โดยฟอร์มนี้จะเลือกไฟล์ที่เป็น Excel ก่อน แล้วจึงกดปุ่ม Import ไฟล์เข้ามา ซึ่งไฟล์ Excel นี้เป็นไฟล์ที่นำมาทำข้อมูลประจำ ดังนั้น หากเราเผลอไปกดปุ่ม Import ระบบจะสร้างชื่อ Table นั้นซ้ำ เช่น หลังจากกดปุ่ม Import ไฟล์จะถูกสร้างเป็น Table ชื่อว่า tblData ถ้ากดปุ่มนำเข้าซ้ำจะมีชื่อเทเบิ้ลมาเพิ่มเป็น tblData_1
คำถาม คือ ผมต้องการจะสร้างปุ่มไว้ลบเทเบิ้ลที่ขึ้นต้นด้วย tblData ทั้งหมด เพราะหากมีไฟล์ tblData_1 หรือ tblData_2 ไปเรื่อยๆ ผมจะได้ลบเทเบิ้ลนี้ทีเดียว จะมีวิธีการอย่างไรบ้างครับ ขอบคุณครับ

[สันติสุข]

ไม่ต้องไปนั่งไล่ลบทุกตัวที่ขึ้นต้นด้วย tblData หรอกครับ ลบแค่ตัวเดียวก่อนทำ Import ก็เพียงพอแล้ว   โดยที่ถ้าไม่มีเทเบิล tblData มาก่อน หรือว่าลบ tblData ได้ตามปกติ โปรแกรมก็จะ Import ไฟล์ Excel เข้ามา แต่ถ้าลบเทเบิลไม่ได้ ก็จะแสดงข้อผิดพลาดออกมาให้เห็นแทน

On Error Resume Next
DoCmd.DeleteObject acTable, "tblData"
If Err.Number > 0 and Err.Number <> 7874 Then
   Msgbox "ลบเทเบิล tblData ไม่ได้ เกิดข้อผิดพลาดรหัส " & Str$(Err.Number) & " " & Err.Description
   Exit Sub หรือ Exit Function
End If
On Error Goto 0
DoCmd.TransferSpreadsheet acImport  ...  <<< เข้าใจว่านี่คงเป็นคำสั่งเดิมในการนำเข้าไฟล์ Excel

[Eik Q Sang]

ไม่ต้องไปนั่งไล่ลบทุกตัวที่ขึ้นต้นด้วย tblData หรอกครับ ลบแค่ตัวเดียวก่อนทำ Import ก็เพียงพอแล้ว   โดยที่ถ้าไม่มีเทเบิล tblData มาก่อน หรือว่าลบ tblData ได้ตามปกติ โปรแกรมก็จะ Import ไฟล์ Excel เข้ามา แต่ถ้าลบเทเบิลไม่ได้ ก็จะแสดงข้อผิดพลาดออกมาให้เห็นแทน

On Error Resume Next
DoCmd.DeleteObject acTable, "tblData"
If Err.Number > 0 and Err.Number <> 7874 Then
   Msgbox "ลบเทเบิล tblData ไม่ได้ เกิดข้อผิดพลาดรหัส " & Str$(Err.Number) & " " & Err.Description
   Exit Sub หรือ Exit Function
End If
On Error Goto 0
DoCmd.TransferSpreadsheet acImport  ...  <<< เข้าใจว่านี่คงเป็นคำสั่งเดิมในการนำเข้าไฟล์ Excel

ขอบคุณมากครับอาจารย์