Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Code như thế nào để xóa hết các bảng trong một chương trình
#1
Chào các bạn
Các bạn chỉ cho mình cách delete hết các link table tồn tại trong một chương trình nhe? mình dùng lệnh : DoCmd.DeleteObject acTable, "<ten table>" thì cũng được nhưng nếu không đúng tên thì nó báo lỗi, với lại 20 bảng thì em phải tạo 20 lệnh trên thì mắc không quá và không hay. Nên nhờ các bạn giúp dùm. Chân thành cám ơn nhiều
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn
#2
Chép hàm này vào một modul rồi chay nó

Mã PHP:
Function DelTable()    
    
Dim strTabName As String
    Dim n 
As Integer
    
For 1 To CurrentDb.TableDefs.Count
        strTabName 
CurrentDb.TableDefs(n).Name
        DoCmd
.DeleteObject acTablestrTabName
    Next
End 
Function 
Chữ ký của Xuân Thanh Trăm năm trước thì ta chưa gặp
Trăm năm sau biết gặp được không?
Cuộc đời sắc sắc không không
Thì thôi ta cứ hết lòng vì nhau
ღღღღღTài sản của Xuân Thanh (View All Items) ღღღღღ
Reply
Những người đã cảm ơn yeubongdo01 , Noname
#3
Nó báo dòng này là sao hả bạn "Wrong number of arguments or invalid property assignment"
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn Noname
#4
Khi bạn dùng lệnh trên; khi đến một số table hệ thống, sẽ không xóa được và báo lỗi.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn yeubongdo01 , Noname
#5
Mấy table hệ thống hình như ẩn phải không bạn? Làm sao khi chạy lệnh trên nó tự động bỏ qua mấy table hệ thống đó vậy?. Mong các bạn giúp mình! Cam on nhieu
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn
#6
(14-06-12, 03:59 PM)yeubongdo01 Đã viết: Nó báo dòng này là sao hả bạn "Wrong number of arguments or invalid property assignment"

Thêm dòng này vào đầu
Mã:
On Error Resume Next
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn yeubongdo01
#7
Hi Các bạn!
Mấy chiêu các bạn chỉ mình có thử hết nhưng vẫn bị báo lỗi dòng trên!. Ý mình muốn tạo một nút trong form để xóa hết các table( các table được liên kết với DBDATA mà Noname đã hướng dẫn trước đó). Các bạn có demo nào giống trường hợp của mình thì share cho mình nhe. Chân thành cám ơn
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn
#8
Lên google search từ khoá delete table vba có cả đống bạn, đây là một ví dụ Link
Chữ ký của itnamdinh Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
Reply
Những người đã cảm ơn yeubongdo01
#9
Bạn dùng đoạn code này xem sao
Mã:
Sub DelLinkTable()
Dim r As Recordset
Dim s As String
s = "SELECT ForeignName FROM MSysObjects WHERE ForeignName Is Not Null"
Set r = CurrentDb.OpenRecordset(s)
If r.RecordCount > 0 Then
r.MoveFirst
Do Until r.EOF
    DoCmd.DeleteObject , acTable, r!ForeignName
r.MoveNext
Loop
End If
r.Close
Set r = Nothing
End Sub
Đoạn code này sẽ xóa toàn bộ các table được link vào cơ sở dữ liệu.
Chữ ký của haquocquan Guest, you are welcome!
ღღღღღTài sản của haquocquan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , yeubongdo01
#10
Cám ơn các bạn, nói chung mình xóa được rồi, bởi vì câu lệnh "DoCmd.DeleteObject , acTable, strTabName" mình bỏ dấu phẩy "DoCmd.DeleteObject acTable, strTabName" và thêm dòng lệnh của Noname thì chạy được nhưng có bảng xóa,có bảng phải nhấp chuột thêm 2, 3 lần mói xóa được!!!
Chữ ký của yeubongdo01 Xin chào, mình là yeubongdo01, Tham gia http://thuthuataccess.com/forum từ ngày 03-07 -11.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Photo [Thủ Thuật] Code chia sẽ hàng thừa Phung Duc 4 87 Hôm nay, 12:36 AM
Bài mới nhất: maidinhdan
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 9 242 09-12-16, 06:11 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tìm số thứ tự bị thiếu trong dãy toanle 8 205 07-12-16, 02:25 PM
Bài mới nhất: toanle
  Tránh xung đột dữ liệu trong access quocdung9999 16 1,703 23-11-16, 11:13 AM
Bài mới nhất: quocdung9999
  [Hỏi] Kết nối nhiều lần hay kết nối 1 lần trong ADO ưu điểm hơn Minh Tiên 1 125 10-11-16, 10:41 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ