Đá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
  Active sheet cuối của Excel bằng VBA Access vodainhan 23 681 15-05-17, 11:29 PM
Bài mới nhất: vodainhan
  Sử dụng Class Module và Kết nối dữ liệu SQL SERVER trong Access VBA lehongduc 51 19,274 06-04-17, 01:15 AM
Bài mới nhất: maidinhdan
  [Help] In bảng ra excell HoangManh 3 271 27-03-17, 09:24 PM
Bài mới nhất: maidinhdan
  Tránh xung đột dữ liệu trong access quocdung9999 17 2,385 11-03-17, 04:12 PM
Bài mới nhất: quocdung9999
  [Hỏi] Liên kết bảng biểu Excel sang Word thông qua Access vuthaiha90 18 934 24-02-17, 04:07 PM
Bài mới nhất: vuthaiha90

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ơ