Đá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
  [Hỏi] Dữ liệu trong mainForm và subForm pherotao 9 214 1 Giờ trước
Bài mới nhất: pherotao
  [Hỏi] Định dạng dd/mm/yyyy và 123.456.789,00 trong vba vuthaiha90 2 171 15-11-17, 12:17 AM
Bài mới nhất: ongke0711
  [Lỗi] Code để bảo vệ văn bản trừ các đoạn formfield vuthaiha90 10 488 14-11-17, 05:31 PM
Bài mới nhất: vuthaiha90
  [Thủ Thuật] Sử dụng window account cho việc phân quyền trong access tvn_hut 5 301 01-11-17, 01:47 PM
Bài mới nhất: ongke0711
  [Hàm] Nhờ gở khó về hàm DLookup trong câu lệnh VBA phungminhluan 3 164 13-10-17, 07:24 PM
Bài mới nhất: phungminhluan

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ơ