Ανανέωση ιστοσελίδας

[Meteora]

Καλησπέρα στην κοινότητα !
Φίλοι μου εντελώς τυχαία 'ανακάλυψα' μια κατάσταση στην Access η οποία χρειάζεται διαχείριση. Όταν είμαστε σε περιβάλλον κάποιας εγγραφής & αλλάξουμε τιμή σε κάποιο (-α) πεδία και στη συνέχεια -έτσι, χωρίς ιδιαίτερο λόγο- πατηθεί το πλήκτρο 'Διαγραφή', η εξέλιξη ειναι περίεργη αρκετά!!! Δείτε το.
Προσπάθησα -κάνοντας χρήση μιας Public μεταβλητής, να ομαλοποιήσω την κατάσταση, ακυρώνοντας -αμα πατηθεί το πλήκτρο 'Διαγραφή' - την ενημέρωση, αλλά δεν μπορώ να ισχυριστώ ότι έλυσα το ζήτημα...
Δημοσιοποιώ το πρόβλημα πιστεύοντας ότι θα βρεθεί μια λύση κομψή, με δυνατότητα ευρείας χρήσης από όλους μας...
Με εκτίμηση
Νίκος Δ.

[Tasos]

Νίκο μου καλησπέρα!

Για να διαγραφεί μια εγγραφή θα πρέπει να υπάρχει δηλ. μην είναι Null και να είναι αποθηκευμένη.
Όταν πατήσεις το κουμπί για να διαγράψεις εγγραφή που έχεις επεξεργαστεί χωρίς αυτή να έχει αποθηκευτεί (Dirty) τότε η Access αποθηκεύει πρώτα την εγγραφή για να την αποδεσμεύσει και κατόπιν την διαγράφει.

Ακριβώς σ αυτό το βήμα της αποθήκευσης εξαπολύεται το συμβάν Form_BeforeUpdate() που προκαλεί την αναταραχή αφού ο κώδικας του ακυρώνει την αποθήκευση (Update).

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

Option Compare Database
  Option Explicit
  Private diagrafi As Boolean
   
  Private Sub cmdDeleteRecord_Click()
      On Error GoTo Err_cmdDeleteRecord_Click
      diagrafi = True
      DoCmd.RunCommand acCmdSelectRecord
      DoCmd.RunCommand acCmdDeleteRecord
  Exit_cmdDeleteRecord_Click:
      diagrafi = False
      Exit Sub
  Err_cmdDeleteRecord_Click:
      MsgBox Err.Description
      Resume Exit_cmdDeleteRecord_Click
  End Sub
   
  Private Sub Form_BeforeUpdate(Cancel As Integer)
      If diagrafi Then Exit Sub
      If MsgBox("Να καταχωρηθούν οι αλλαγές σε " & [Epiteto] & "?", _
                vbQuestion + vbYesNo, "ΕΛΕΓΧΟΣ") = vbNo Then
          Me.Undo
      Else
          MsgBox "Καταχωρήθηκε !"
      End If
  End Sub

Τα λέμε...

Τάσος

[Meteora]

Αγαπητέ μου Τάσο ευχαριστώ.
Απόλυτα κατανοητή η φιλοσοφία της διαχείρισης που προτείνεις. Κατάλαβα το λάθος μου...
Να είσαι καλά...
Νίκος Δ.