[anestaki]

Καλησπέρα Γιώργο
Σε Ευχαριστώ για την άμεση απάντηση.
Σου παραθέτω όλο των κώδικα γιατί ενώ σε νέα φόρμα δουλεύει στην δική μου όχι και δεν μπορώ να καταλάβω το γατί.

Private Sub demo_Click()
Dim Res As String
Res = MsgBox("Είστε σίγουρος ότι έχετε κατανόηση την λειτουργιά της εφαρμογής" & vbCrLf & _
"Θα διαγράφουν όλα τα καταχωρημένα στοιχειά από αυτήν." & vbCrLf & _
"ΘΕΛΕΤΕ ΝΑ ΔΙΑΚΟΨΕΤΕ ΤΗΝ ΕΝΕΡΓΕΙΑ ;", vbCritical + vbYesNo, "ΠΡΟΣΟΧΗ !!")
                       'ΑΝ Η ΑΠΑΝΤΗΣΗ ΕΙΝΑΙ ΝΑΙ ΤΟΤΕ ΒΓΑΙΝΕΙ
                            If Res = vbNo Then
                            'Me.Κείμενο19.SetFocus
                            
     With CurrentDb
         .Execute "DELETE tbl_announcements.* FROM tbl_announcements"
         .Execute "DELETE tbl_app_payments.* FROM tbl_app_payments"
         .Execute "DELETE tbl_appartment_announcements.* FROM tbl_appartment_announcements"
         .Execute "DELETE tbl_appartment_contribution.* FROM tbl_appartment_contribution"
         .Execute "DELETE tbl_appartment_usage.* FROM tbl_appartment_usage"
         .Execute "DELETE tbl_appartments.* FROM tbl_appartments"
         .Execute "DELETE tbl_associate.* FROM tbl_associate"
         .Execute "DELETE tbl_associate_pay.* FROM tbl_associate_pay"
         .Execute "DELETE tbl_heating_hours.* FROM tbl_heating_hours"
         .Execute "DELETE tbl_heating_system.* FROM tbl_heating_system"
         .Execute "DELETE tbl_monthly_expenses.* FROM tbl_monthly_expenses"
         .Execute "DELETE tbl_oil_consumption_history.* FROM tbl_oil_consumption_history"
         .Execute "DELETE tbl_oil_measurement.* FROM tbl_oil_measurement"
         .Execute "DELETE tbl_pay_dates.* FROM tbl_pay_dates"
         .Execute "DELETE tbl_tanks.* FROM tbl_tanks"
        
     End With
                            DoCmd.OpenForm Me.name, acDesign
                            DoCmd.SetProperty "demo", acPropertyVisible, "0"
                            DoCmd.Close , , acSaveYes
                            'Application.Quit
                                End If
                                Exit Sub
End Sub