Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Tips & Tricks > Απλή παρακολούθηση Εφαρμογής Access

Access - Tips & Tricks Εκμεταλλευτείτε τις δυνατότητες της Microsoft Access.
Παρακαλούμε μην εισάγετε εδώ ερωτήσεις!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 22-03-10, 12:50
Το avatar του χρήστη Tasos
Διαχειριστής
Όνομα: Τάσος Φιλοξενιδης
Έκδοση λογισμικού Office: Ms-Office 2016, Ms-Office 365
Γλώσσα λογισμικού Office: Ελληνική, Αγγλική, Γερμανική
 
Εγγραφή: 21-10-2009
Μηνύματα: 2.201
Προεπιλογή Απλή παρακολούθηση Εφαρμογής Access

Σε κάποιες περιπτώσεις κρίνεται αναγκαία η καταγραφή κινήσεων σε κάποια εφαρμογή Access (πχ. σε κοινόχρηστες Βασεις δεδομένων).

Το παρακάτω απλό παράδειγμα δείχνει την αρχή λειτουργίας της τεχνικής αυτής.

Το παράδειγμα προϋποθέτει έναν πίνακα με την εξής δόμηση:
  • Όμομα Πίνακα: tblLog
  • Πεδίο: LogID: Αυτόματη Αρίθμιση
  • Πεδίο: OpenDateTime: Ημερομηνία/Ώρα
  • Πεδίο: CloseDateTime: Ημερομηνία/Ώρα
  • Πεδίο: DocName: Κείμενο
  • Πεδίο: ComputerName: Κείμενο
  • Πεδίο: WinUser: Κείμενο
  • Πεδίο: AppUser: Κείμενο

Σε μια λειτουργική μονάδα περνάμε τον παρακάτω κώδικα:
Κώδικας:
  Function LogAction(obj As Object, Optional LastID&)
      With CurrentDb.OpenRecordset("tblLog", 2)
          If LastID Then
              LastID = IIf(obj.Tag <> vbNullString, obj.Tag, -1)
              obj.Tag = vbNullString
              .MoveFirst
              .FindFirst "LogID = " & LastID
              If Not .NoMatch Then
                  .Edit
                  .Fields("CloseDateTime") = Now
              End If
          Else
              .AddNew
              LastID = .Fields("LogID")
              obj.Tag = LastID
              .Fields("OpenDateTime") = Now
              .Fields("DocName") = obj.Name
              .Fields("ComputerName") = Environ("COMPUTERNAME")
              .Fields("WinUser") = Environ("USERNAME")
              .Fields("AppUser") = Application.CurrentUser
          End If
          .Update
          .Close
      End With
  End Function


Σε κάθε μια από τις φόρμες ή εκθέσεις που θέλουμε να καταγραφούν :

Κώδικας:
  Private Sub Form_Close()
      LogAction Me, 1
  End Sub
   
  Private Sub Form_Load()
      LogAction Me, 0
  End Sub



__________________
Ms-Office Development Team
Ανάπτυξη επαγγελματικών εφαρμογών

Τελευταία επεξεργασία από το χρήστη Tasos : 20-05-10 στις 16:05.
Απάντηση με παράθεση
Απάντηση στο θέμα

Ετικέτες
access log

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι σε λειτουργία
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
[ Συναρτήσεις ] Παρακολούθηση ανεξόφλητων τιμολογίων ΤΙΜΟΣ Access - Ερωτήσεις / Απαντήσεις 4 31-07-15 11:18
[ Ασφάλεια] Update εφαρμογής ACCESS μέσω Internet vraxnakisg Access - Ερωτήσεις / Απαντήσεις 7 18-06-15 02:29
Αναβάθμιση εφαρμογής σε Access parara Access - Ερωτήσεις / Απαντήσεις 5 24-01-13 22:05
Απενεργοποίηση μακροεντολής με την εκκίνηση μιας εφαρμογής σε Access 2003, 2007 alex Access - Ερωτήσεις / Απαντήσεις 4 22-11-11 21:51
[Συναρτήσεις] Απλή συνάρτηση if PanosPan Excel - Ερωτήσεις / Απαντήσεις 13 25-05-10 09:29


Η ώρα είναι 05:59.