The Visual Basic for Applications Project in the database is corrupt

[Clarice Viviance]

Chào cả nhà!

Mình có cái file Access phải update dữ liệu hàng tháng cho HO, nhưng mở lên là nó báo lỗi như vậy "
The Visual Basic for Applications Project in the database is corrupt
Nhờ cả nhà chỉ giáo dùm.

Mình đang xài Win8.

Cám ơn nhà mình rất nhiều.

 

[LamNA]

Chào cả nhà!

Mình có cái file Access phải update dữ liệu hàng tháng cho HO, nhưng mở lên là nó báo lỗi như vậy "
The Visual Basic for Applications Project in the database is corrupt
Nhờ cả nhà chỉ giáo dùm.

Mình đang xài Win8.

Cám ơn nhà mình rất nhiều.

Chắc dữ liệu bị lỗi mình thì không chuyên nhưng thấy có có nhiều thứ kiểm tra ở trên web nước ngoài
Ví dụ:
Khôi phục:
officerecovery

Code:
(Q) Làm thế nào tôi có thể phục hồi các bản ghi từ một bảng bị hỏng?

(A) Đầu tiên, bằng cách sử dụng truy cập trong khi trong cửa sổ cơ sở dữ liệu, sao chép cấu trúc của bảng chỉ từ bảng bị hỏng, nếu có thể. Sau đó, sử dụng mã bên dưới, sao chép từng hàng riêng lẻ từ bảng cũ sang bảng mới cho đến khi gặp lỗi. Các thói quen lỗi hiển thị lỗi, bỏ qua một hàng, di chuyển đến tiếp theo và tiếp tục tại Addit nơi nó tiếp tục di chuyển dữ liệu từ bảng cũ sang bảng mới một hàng tại một thời điểm.
Link: Nguồn

Function CopyRes()
  Dim db As Database
  Dim OldRes As Recordset
  Dim NewRes As Recordset
  Dim ErrMsg1 As String
  Dim RecCount As Long
  On Error GoTo err_Proc
  Set db = CurrentDb()
  Set OldRes = db.OpenRecordset("tbl_Reservations")
  Set NewRes = db.OpenRecordset("tbl_New_Res")
  RecCount = 0
  OldRes.MoveFirst
Do While Not OldRes.EOF
Addit:
  NewRes.AddNew
  NewRes![ResID] = OldRes![ResID]
  'CONTINUE COPYING ALL ROWS FROM OLD TBL TO NEW
  NewRes.Update
  RecCount = RecCount + 1
  DoEvents
  If RecCount Mod 10000 = 0 then
    MsgBox RecCount 'Show progress every 10,000 rows
  End If
Loop
  MsgBox RecCount 'Show total successful record count
  OldRes.Close
  NewRes.Close
  db.close
Proc_Exit:
  Exit Function
Err_Proc:
  MsgBox "<Error>" & Error$
  OldRes.MoveNext 'Skip this corrupt row
  Resume Addit    'Continue at Addit
End Function

Cách dùng chắc bạn đợi anh chị nào có kinh nghiệm về lỗi này nhe

 

[Clarice Viviance]

Thanks @LamNA.

Chắc mình đợi mấy cao nhân vụ này quá, chứ tay mơ như mình mà làm theo bạn chắc chết luôn hehe...

Thank kiều!