home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / CODIGO_1 / BROWSE_1 / REPAIR.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-07-19  |  982 b   |  36 lines
  1. VERSION 2.00
  2. Begin Form frmRepair 
  3.    BorderStyle     =   3  'Fixed Double
  4.    Caption         =   "Click form to reapair / compact DEMO.MDB"
  5.    ClientHeight    =   336
  6.    ClientLeft      =   876
  7.    ClientTop       =   1296
  8.    ClientWidth     =   5292
  9.    Height          =   672
  10.    Left            =   828
  11.    LinkTopic       =   "Form1"
  12.    MaxButton       =   0   'False
  13.    MinButton       =   0   'False
  14.    ScaleHeight     =   336
  15.    ScaleWidth      =   5292
  16.    Top             =   1008
  17.    Width           =   5388
  18. Option Explicit
  19. Sub Form_Click ()
  20.    Dim nF As Integer, cD As String, cDB As String
  21.    cD = App.Path + "\" + "DEMO.MDB"
  22.    cDB = App.Path + "\" + "DEMO_BAK.MDB"
  23.    On Error GoTo Abort_Repair
  24.    RepairDatabase cD
  25.    Name cD As cDB
  26.    CompactDatabase cDB, cD
  27.    Kill cDB
  28.    MsgBox "DONE!"
  29.    GoTo sub_exit
  30. Abort_Repair:
  31.    MsgBox "Could not repair file, error: " & Error
  32.    Resume sub_exit
  33. sub_exit:
  34.    Unload Me
  35. End Sub
  36.