freestuff.gr αρχική σελίδα
 FAQFAQ    ΑναζήτησηΑναζήτηση   Λίστα ΜελώνΛίστα Μελών   Ομάδες ΜελώνΟμάδες Μελών   <b>Εγγραφή Μέλους</b>Εγγραφή Μέλους 
 ΠροφίλΠροφίλ   Επιλογές μέλους Επιλογές   Τα bookmarks μου Τα bookmarks μου   Προσωπικά μηνύματαΠροσωπικά μηνύματα 
  διαφήμιση  

Καλώς ήρθατε στο forum μας! Για να συμμετάσχετε στις συζητήσεις θα πρέπει να είσαστε μέλος. Γίνετε μέλος τώρα!.

Καταγραφή αλλαγών στην access


 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access
Moderators:  Super-Moderators, WebDev Moderators
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα]      Bookmarks Tags: access Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
ΑποστολέαςΜήνυμα
dimhar


Μέλος από: 03 Ιουν 2008
Μηνύματα: 1

View users profile
ΜήνυμαΣτις: 03 Ιουν 2008 17:14    Θέμα: Καταγραφή αλλαγών στην access Απάντηση με παράθεση  Mark this post and the followings unread

Καλησπέρα
Θα ήθελα αν γνωρίζει κανένας να μπυ πεί αν υπάρχει τρόπος καταγραφής (ημερομηνία τροποίησης,πεδίο τροποποίησης,τιμή πριν την αλλαγή τιμή μετά)σε μία βάση access(logs).
Αυτό να γίνεται έιτε σε έναν πίνακα ή σε κάποιο αρχείο txt.
Ευχαριστώ
kon73
Script Master

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 03 Ιουν 2008 23:20    Θέμα: Re: Καταγραφή αλλαγών στην access Απάντηση με παράθεση  Mark this post and the followings unread

Φίλε dimhar,

Καλησπέρα,

Λοιπόν αυτό που ζητάς είναι σχετικά εύκολο. Όλα γίνονται με το Event Dirty και το Event Before Update της Φόρμας,

Σου παραθέτω κώδικα και στον εξηγώ. Θα χρειαστείς πεδία στην Φόρμα σου ChangeControl να είναι τύπου Text, στο οποίο αποθηκεύονται ποια πεδία άλλαξαν, Me.Controls.Item(i).OldValue κρατά την παλιά τιμή και μπορείς και αυτό να το δώσεις σε κάποιο πεδίο Φόρμας, Η ημερομηνία αλλαγής γίνεται στο Dirty όχι πως δεν μπορείς να το βάλεις και στο BeforeUpdate. Οι Πληροφορίες που ζητάς (Ημερομηνία αλλαγής, Πεδία που αλλάξαν τιμή, παλιά τιμή κλπ) δύνονται με ενημέρωση απλά πεδίων της φόρμας η οποία φόρμα βλέπει σε έναν πίνακα. Μπορούμε με SQL να κάνουμε Insert Into σε άλλο πίνακα που κρατά το ιστορικό του.

Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim i, NumControls As Integer
NumControls = Me.Controls.Count - 1
For i = 0 To NumControls
If Me.Controls.Item(i).ControlType = acTextBox Then
If Me.Controls.Item(i).Value <> Me.Controls.Item(i).OldValue Then
Me.ChangeControl = Me.ChangeControl.Value & "-" & Me.Controls.Item(i).Name
End If
End If
i = i + 1
Next
End Sub

Private Sub Form_Dirty(Cancel As Integer)
Me.DateChange = Now
End Sub

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

Φιλικά
kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
kon73
Script Master

Μέλος από: 13 Απρ 2008
Βοηθήματα: 3
Μηνύματα: 224


View users profile Visit posters website
ΜήνυμαΣτις: 05 Ιουν 2008 00:16    Θέμα: Απάντηση με παράθεση  Mark this post and the followings unread

Σε συνέχεια της απάντησής μου παραθέτω και ένα Link που παραπέμπει στο site μου όπου με αφορμή το ερώτημά σου στήνω ένα Sample mdb αρχείο. Στο site υπάρχουν οδηγίες γενικές για το στήσιμο ενός Ιστορικού αλλαγών των εγγραφών στην Access.

To Link είναι :

http://access.terapad.com/index.cfm?fa=contentGeneric.qohsvjvtnbpzj...amp;pageId=205267

Φιλικά
Kon73

_________________
My New Site http://www.MsAccess.gr
Free Access (VBA Code,Tutorials, Mdbs, Eclass, Eshop)
Εμφάνιση Μηνυμάτων:   
Εισαγωγή νέου Θέματος   Απάντηση στο Θέμα Σελίδα 1 από 1 [3 Μηνύματα] Mark the topic unread :: Προηγούμενο θέμα :: Επόμενο θέμα
 Forum index » Δημιουργία Web Sites, Γραφικών & Προγραμματισμός » SQL και SQL Servers (RDBMS) » MS Access


Σχετικά θέματα
 Θέματα   Απ/σεις   Αποστολέας   Τελευταίο μήνυμα 
Δημιουργία Βάσης Δεδομένων MS Access με αντιστοιχιση σε γραφικό στοιχείο 1 Charalampos77 22 Ιουλ 2016 13:22
cordis Εμφάνιση τελευταίου μηνύματος
 
Τώρα είναι 08 Δεκ 2016 02:05 | All times are UTC + 2


Email This Page to Someone! add to Favorites

     Powered by p h p B B © 2001,2005 p h p B B Group
Για άμεση επικοινωνία με τον διαχειριστή του freestuff.gr στο email: freestuff.gr(παπάκι)gmail.com


Copyright © 1999-2013 Freestuff.gr All Rights Reserved  
Version Aegean, designed by N. Tsaganos