Đánh giá chủ đề:
  • 3 Votes - 5 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Phục Hồi Table lỡ xóa
#1
Trả lời: Ý tưởng đặt ra là ta sẽ tìm lại table bi xóa trong những file ~templete (được tạo ra khi access dang chạy). Bạn tạo một command button phuchoi gọi lệnh UndeleteTable () như sau nhé:

Mã:
Private sub phuchoi_click ()

Call UnDeleteTable ()

End sub



Mã PHP:
Option Compare Database

Function UnDeleteTable(Optional sName As String)

Dim db As DAO.Database
Dim tdf 
As DAO.TableDef
Dim sTable 
As String
Dim sSQL 
As String
Dim sMsg 
As String

If IsMissing(sNameThen sName "Tablephuchoi"
If Len(sName) = 0 Then sName "Tablephuhoi"

Set db CurrentDb()

For 
Each tdf In db.TableDefs
If left(tdf.Name4) = "~tmp" Then
sTable 
tdf.Name
sSQL 
"SELECT [" sTable "].* INTO " sName
sSQL 
sSQL " FROM [" sTable "];"

db.Execute sSQL

sMsg 
"Da phuc hoi xong mot Tablle bi xoa voi ten " sName
MsgBox sMsg
vbOKOnly"Da phuc hoi xong"
GoTo Exit_Undelete
End 
If
Next

' Neu khong tim thay thi thong bao
MsgBox "Khong tim thay Table nao co the phuc hoi", vbOKOnly, "Xin loi!"

Exit_Undelete:
Set db = Nothing
Exit Function

Err_Undelete:
MsgBox err.Description
Resume Exit_Undelete

End Function

NotesHam nay chi su dung cho Access 95 tro len va con tuy thuoc vao mot so dieu kien sau:
' - Da xoa nham Table nhung chua dong CSDL (đóng rồi thì tui chưa thử)
CSDL chua su dung che do compact and comact repair (dọn rác rồi lấy đâu ra mà phục hồi?)
' - CSDL bi xoa boi phan quyen User trong ung dung access cua ban (tui thu roi khoi test nua)
Ham nay chi phuc hoi cho mot Table bi xoa gan nhat (những cái trước đó tui bó tay chưa nghĩ ra
Xin lỗi các bạn chịu khó đọc phần notes kô dấu nhé mình copy cho lẹ (^_^)

------------------------------------------

Chúc thành công!
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Tester007


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 1,318 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong
  [Thủ Thuật] Ẩn record trong table theo ngày tháng tvn_hut 6 495 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Tùy chọn liên kết lại các table từ file data có password Noname 37 14,822 21-01-16, 10:59 AM
Bài mới nhất: minhhoacatv
  [Hàm] Import Table từ file Access này sang một file Access khác Xuân Thanh 1 1,249 21-07-14, 06:36 PM
Bài mới nhất: ndthanh29
  Có thể tạo Password cho một Table được không quyvt1993 3 1,314 21-01-13, 06:52 AM
Bài mới nhất: khải nguyên

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ơ