compace & repair

[صبا9841]

با تشکر متاسفانه خطا میگیرد:

Option Compare Database

' CompactAndRepairDB (FUNCTION)

   Dim oJet            As JRO.JetEngine

 End Function

ساده و مختصر:

 

Public Sub CompactDB()

   CommandBars("Menu Bar"). _

   Controls("Tools"). _

   Controls("Database utilities"). _

   Controls("Compact and repair database..."). _

   accDoDefaultAction

End Sub

[laia56]

ساده و مختصر:

 

Public Sub CompactDB()

CommandBars("Menu Bar"). _

Controls("Tools"). _

Controls("Database utilities"). _

Controls("Compact and repair database..."). _

accDoDefaultAction

End Sub

[/QUOTE]

با سلام اگر امکان دارد این رویه رابرای اکسس 2007 هم اعمال کنید در صورتیکه بخواهیم این رویه با کلیک یک دکمه انجام شود بازهم ممنون از شما اساتید