TESTING AND REPAIRING CORRUPTED JET BACK-END DATABASES

Section 6 of the ap_AppInit() function deals solely with handling the situation of repairing the back end if it requires it:

Case apErrDBCorrupted1, apErrDBCorrupted2

   '-- Section 6: Backend Corrupted. Compact/Repair?
   Beep
   If MsgBox("The Backend Database is Corrupted." & vbCrLf & _
        vbCrLf & "Would you like to log users out and " & _
        " attempt to compact/repair it?", vbYesNo + vbCritical, _
        "Corrupted Backend!") = vbYes Then

      DoCmd.OpenForm "ap_CompactDatabase", acForm

   Else

      flgLeaveApplication = True

   End If

End Select

The section starts with handling the situation that the value stored in intCurrError is equal to apErrDBCorrupted1 or apErrDBCorrupted2, the constants used for corrupted database ...

Get F. Scott Barker's Microsoft® Access 2000 Power Programming now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial