Αλλαγή Property Visible

[anestaki]

Καλησπέρα σε όλους και καλή χρονιά
Σε αναζήτηση στο Forum δεν μπόρεσα να βρω κάτι που θα μπορούσε να με βοηθήσει για να αλλάξω την ιδιότητα σε αντικείμενα της Access, χρησιμοποιώντας

DoCmd.SetProperty "demo", acPropertyVisible, "0"

αλλάζω την ιδιότητα αλλά δεν μπορώ να την αποθηκεύσω.
Όποια βοήθεια δεκτή

[kapetang]

Καλή χρονιά

Για να αλλάξει μόνιμα η ιδιότητα, θα πρέπει η φόρμα να ανοίξει σε μορφή σχεδίασης, να οριστεί η ιδιότητα και ακολούθως να αποθηκευτεί η φόρμα ή να κλείσει αποθηκεύοντας της αλλαγές.

Δες τον κώδικα:

    DoCmd.OpenForm Me.Name, acDesign
    DoCmd.SetProperty "Demo", acPropertyVisible, 0
    DoCmd.Close , , acSaveYes   'ή docmd.Close,,acSaveYes 

Φιλικά/Γιώργος

[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

[kapetang]

Πιθανόν να συμβαίνει κάποιο λάθος στη διαγραφή των εγγραφών.

Πριν από τη διαγραφή πρόσθεσε τον κώδικα.

On Error resume Next

[anestaki]

Γιώργο όπως φαίνεται στην εικόνα ενώ αλλάζει την ιδιότητα δεν την αποθηκεύει.

[kapetang]

Το μηδέν δεν είναι σε εισαγωγικά.

[anestaki]

Καλημέρα σε όλους
Γιώργο σε ευχαριστώ πολύ.
Τελικά το έκανα πάλι με την μεσοβέζικη λύση του (IF) στο load τις φόρμας και προ στο παρών λειτουργεί καλά.

If DLookup("button", "tbl_heating_system") = 1 Then
Else
Me.demo.visible = False
End If

Αλλά συνεχίζω να έχω το πρόβλημα στου συνδεδεμένους πίνακες για να αριθμήσουν ξανά από το ένα πρέπει να ανοίξει και να κλείσει η βάση στην οποία υπάρχουν.

[kapetang]

Γιώργο σου είπα να αφαιρέσεις τα εισαγωγικά από το μηδέν στην πρόταση:

DoCmd.SetProperty "demo", acPropertyVisible, "0"

Το δοκίμασες;

[anestaki]

Καλημέρα Γιώργο ναι και συνέχιζε να μην αποθηκεύεται

[kapetang]

Γιώργο όταν το δοκίμασα δούλευε, αλλά, επειδή δεν υπήρχαν οι πίνακες στη βάση μου, είχα μετατρέψει τις εντολές διαγραφής σε σχόλια.
Δεν ξέρω τι συμβαίνει.