[alex]

Καλησπέρα σε όλη την παρέα του forum

Εν τέλη το πρόβλημα λύθηκε.Πώς;

Στο παρακάτω κώδικα

Option Compare Database
Option Explicit

Private Sub Button_Click()
    CompactDB "C:\Users\alex\Desktop\ErmisInbox.mde", 75    'Προσάρμοσε την διαδρομή και το ποσοστό συμπύκνωσης
                                          
End Sub
---------------------------------------------------------------------------------------------------------------------------------------------
Private Sub Button1_Click()
Dim vStatusBar

Application.SetOption ("Auto Compact"), 1
Application.SetOption "Show Status Bar", True
vStatusBar = SysCmd(acSysCmdSetStatus, "Compact Database...")
'DoCmd.RunCommand acCmdCompile 'AndSaveAllModules
DoCmd.Quit
End Sub
---------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
SetMDIBackGround (10674418)
Application.SetOption ("Auto Compact"), True
End Sub
-----------------------------------------------------------------------------------------------------------
Private Sub Εντολή3_Click()
On Error GoTo Err_Εντολή3_Click


    DoCmd.Quit

Exit_Εντολή3_Click:
    Exit Sub

Err_Εντολή3_Click:
    MsgBox Err.Description
    Resume Exit_Εντολή3_Click
    
End Sub

Στα σημεία που είναι σημειωμένος με κόκκινο ο κώδικας εκεί έγιναν και οι διορθώσεις.
1.Βασικά έλειπε το Option Explicit απο την φόρμα.
2Έβαλα ένα απόστροφο και απενεργοποίησα την εντολή της αποσφαλμάτωσης(acCmdCompile )και την εντολή της αποθήκευσης των modules(SaveAllModules).
Πράγμα το οποίο όταν ήταν mdb η βάση δούλευε τέλεια η εντολή.
Όταν όμως κλειδώσαμε την βάση και την κάναμε mde τότε:
Θα πρέπει να ξέρουμε ότι δεν μπορούμε να επέμβουμε στο κώδικα ούτε να τον αποσφαλματώσουμε ούτε να αποθηκεύσουμε τα Modules αφού και manual να επιχειρήσουμε θα (ασπρίζουν) και θα είναι απενεργοποιημένα στα σημεία επέμβασης.
Αυτά τα λίγα για όσους θέλουν να διορθώσουν την εφαρμογή.

Φιλικά
Αλέξανδρος