Forum

Forum (https://www.ms-office.gr/forum/)
-   Access - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/)
-   -   [ Φόρμες ] Access - Αντίφαση Εγγραφής (https://www.ms-office.gr/forum/access-erotiseis-apantiseis/4782-access-antifasi-eggrafis.html)

ggreg75 24-12-17 12:10

Access - Αντίφαση Εγγραφής
 
Καλησπέρα σας και Χρόνια Πολλά,

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

Παράδειγμα, όταν ενημερώνω manually ένα πεδίο, θέλω μετά την ενημέρωση να ενημερώνεται αυτόματα το πεδίο last update με την τρέχουσα ημερομηνία και ώρα.

Όταν ορίζω μετά την ενημέρωση του πεδίου να εκτελεστεί ερώτημα ενημέρωσης με συμβάν (μετά από ενημέρωση), εμφανίζει σφάλμα "Αντίφαση Εγγραφής" ... Κάποιος χρήστης έχει αλλάξει την εγγραφή... με επιλογές, ΑΠΟΘΗΚΕΥΣΗ ΕΓΓΡΑΦΗΣ, ΑΝΤΙΓΡΑΦΗ ΣΤΟ ΠΡΟΧΕΙΡΟ και ΑΚΥΡΩΣΗ ΑΛΛΑΓΩΝ.

Μπορεί να με βοηθήσει κάποιος σε αυτό;

Ευχαριστώ εκ των προτέρων

Γρηγόρης

kapetang 24-12-17 19:16

Χρόνια πολλά

Θα πρότεινα, πριν από την εντολή που εκτελεί το ερώτημα ενημέρωσης, να προθέσεις την εντολή: me.refresh

Αν δε λυθεί το πρόβλημα, ανέβασε δείγμα της ΒΔ.

ggreg75 24-12-17 21:20

1 Συνημμένο(α)
Γιώργο καλησπέρα,

Ανεβάζω ένα δείγμα γιατί δεν μπορώ να τα καταφέρω,

Ευχαριστώ εκ των προτέρων

Γρηγόρης

nasos23 25-12-17 10:55

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

Private Sub Form_BeforeUpdate(Cancel As Integer)
  Me.LastUpdate = Now()
 End Sub

ή
Κώδικας:

Private Sub Field1_Change()
 Me.LastUpdate = Now()
End Sub

Private Sub Field2_Change()
 Me.LastUpdate = Now()
End Sub

Private Sub Field3_Change()
 Me.LastUpdate = Now()
End Sub

Private Sub Field4_Change()
 Me.LastUpdate = Now()
End Sub


ggreg75 25-12-17 11:08

Ευχαριστώ Νάσο!

Καλά Χριστούγεννα να έχεις

Γρηγόρης


Η ώρα είναι 14:14.

Ms-Office.gr - ©2000 - 2026, Jelsoft Enterprises Ltd.


Search Engine Optimization by vBSEO 3.3.2