[editolis]

Αγαπητε Φιλε,

Θα φτιαξεις ενα κουμπι εντολης στην φορμα σου
και θα το ονομασεις οπως εσυ θελεις.

Στο κλικ θα βαλεις τον εξης κωδικα:

'================================================= =======
dim vStatusBar
Application.SetOption ("Auto Compact"), 1
Application.SetOption "Show Status Bar", True
vStatusBar = SysCmd(acSysCmdSetStatus, "Compact Database...")
DoCmd.RunCommand acCmdCompileAndSaveAllModules
DoCmd.Quit
'================================================= =======

Τωρα εαν θες να μην αποθηκευτει μονιμα αυτη η εντολη τοτε
στην πρωτη σου φορμα που ανοιγει το προγραμμα σου βαλε
αυτη την εντολη στο OnOpen...

'==========================================
Application.SetOption ("Auto Compact"), 0
'==========================================

Καλη συνεχεια...