Section 6 of the ap_AppInit() function deals solely with handling the repair of the back end if it requires it:
Case apErrDBCorrupted1 '-- Section 6: Backend Corrupted. 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
This code hasn't changed from the DAO version.
One big change that has occurred with Jet is that you no longer use Compact and Repair to perform the separate functions. They're combined in the CompactDatabase ...