Προστασία συνδετικών πεδίων φόρμας-υποφόρμας

[mdragon]

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


Ευχαριστώ,

Μάρω

[Tasos]

Μάρω καλησπέρα!
Στον πίνακα που περιέχει την αρχική ημερομηνία πρόσθεσε ένα πεδίο τύπου Ναι/Όχι
με το όνομα: DateIsLocked.
Κατόπιν πέρασε το και στη φόρμα σου δίπλα στο πεδίο της αρχικής ημερομηνίας.

Έστω το όνομα του πεδίου της αρχικής ημερομηνίας = EntryDates

Στο συμβάν του EntryDates "Πριν την ενημέρωση" βάλε:

Private Sub EntryDates_BeforeUpdate(Cancel As Integer)
    If Me.DateIsLocked Then
      Cancel = True
      Me.EntryDates.Undo
    End If
End Sub

και στο συμβάν του EntryDates "Μετά την ενημέρωση" βάλε:

Private Sub EntryDates_AfterUpdate()
      Me.DateIsLocked = Not IsNull(Me.EntryDates)
End Sub

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

Θα χρειαστεί να ξετσεκάρεις το DateIsLocked για να μπορέσεις να επεξεργαστείς την ημερομηνία.

Φιλικά

Τάσος

[mdragon]

Να σαι καλά Τάσο μου.
Δουλεύει μια χαρά



Μάρω