Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Khôi phục lại table đã vô tình xóa
#1
Đã có khi nào bạn vô tình xóa một table? Và bạn không có dự phòng? Có một cách bạn có thể khôi phục lại nó nếu bạn chưa xóa thêm một table khác hoặc bạn chưa đóng cơ sở dữ liệu của bạn. Bằng thủ thuật sau đây, bạn có thể chèn tất cả các trường của bảng đã xóa vào một bảng mới

Mã:
Function Undo()

  Dim db As DAO.Database, strTablename As String
  Dim i As Integer, StrSqlString As String

  Set db = CurrentDb()

  For i = 0 To db.TableDefs.Count - 1

    If Left(db.TableDefs(i).Name, 4) = "~tmp" Then
       strTablename = db.TableDefs(i).Name
       StrSqlString = "SELECT DISTINCTROW [" & strTablename & _
         "].* INTO MyUndeletedTable FROM [" & strTablename & "];"
       DoCmd.SetWarnings False
       DoCmd.RunSQL StrSqlString
       DoCmd.SetWarnings True
       MsgBox "A table has been restored as MyUndeletedTable", _
         vbOKOnly, "Restored"
       GoTo Exit_Undo
    End If
  Next i
  MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found"

Exit_Undo:
     Set db = Nothing
     Exit Function
Err_Undo:
     MsgBox Err.Description
     Resume Exit_Undo

End Function

Lưu ý : Phải bổ sung thư viện DAO trong cửa sổ VBA bạn nhé, nếu không sẽ bị lổi đấy
Thân mến
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 Noname , dannynguyen1980 , Minh Tiên


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,316 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 493 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,811 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,248 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ơ