Comprimeren & Herstellen mbv VBA

[B-MAdD]

Ls,

In MS Access is het mogelijk om via extra-> databasehulppragramma's-> Database comprimeren en herstellen een database te comprimeren en herstellen.

Ik vraag mij af je zoiets ook kan doen met vba code. Deze VBA code kan je dan onder een knop op een formulier zetten.

Alvast bedankt voor het antwoord. :thumb:

Mvg

MAdD

 

[Bartuls]

http://www.mvps.org/access/general/gen0041.htm

 

[B-MAdD]

http://www.mvps.org/access/general/gen0041.htm

Misschien een domme vraag, maar hoe kan je deze via een knop op een formulier activeren?

Ik krijg nu continu de volgende foutmelding:

ongeldige procedure-aanroep of ongeldig argument.

De code die ik gebruik is

Private Sub test_Click()

CommandBars("menu bar").Controls("Tools").Controls("Database utilities").Controls("Compact and repair database...").accDoDefaultAction

End Sub

Alvast bedankt

MAdD

 

[FESTER]

Open je code.

Zet boven je huidige code (dus boven de eerste regel die begint met Private Sub) dit:

Public Sub CompactDB()

   CommandBars("Menu Bar"). _
   Controls("Tools"). _
   Controls("Database utilities"). _
   Controls("Compact and repair database..."). _
   accDoDefaultAction

End Sub

Wijzig je huidige code in

Private Sub test_Click()

CompactDB

End Sub

De code waarmee je komprimeert wordt zo aangeroepen vanuit het klikken op je knop.

FESTER

 

[B-MAdD]

Ik blijf deze foutmelding krijgen:

ongeldige procedure-aanroep of ongeldig argument.


De code die ik nu gebruik:

Option Compare Database
Option Explicit

Public Sub CompactDB()

   CommandBars("Menu Bar"). _
   Controls("Tools"). _
   Controls("Database utilities"). _
   Controls("Compact and repair database..."). _
   accDoDefaultAction

End Sub

Private Sub test2_Click()
CompactDB
End Sub

 

[FESTER]

Open je codevenster.
Kies in de menubalk voor Extra -> Verwijzingen.

Kijk of er een ontbrekende verwijzing bij staat.
Zo ja, uitvinken en opnieuw proberen.

Afhankelijk van je Access versie moet je minimaal deze verwijzingen hebben (in deze volgorde):

- Visual Basic for Applications
- Microsoft Access x.0 Object Library (x is afhankelijk van je versie, is 9 voor 2000)

FESTER