Kayıt ve Veri Değişikliklerini İzleme Uygulaması
Tarih
25/01/2009 20:36
Konu Sahibi
ozanakkaya
Yorumlar
14
Okunma
2463
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.041
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bu uygulama ile tabloya kaydedilen verilerde yapılan değişiklikleri, silinen kayıtları veya eklenen yeni kayıtları   bu değişiklikleri kimin yaptığını takip edebilirsiniz.

Tüm değişiklikleri tabloya kaydeder.

resim

allenbrowne.com/AppAuditCode.html sayfasındaki kodlardan alıntıdır.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
Function AuditDelBegin(sCAW As String, saudTmpCAW As String, sKeyField As String, lngKeyValue As Long) As Boolean
'On Error GoTo Err_AuditDelBegin

    Dim db As DAO.Database
    Dim sSQL As String


    Set db = DBEngine(0)(0)
    sSQL = "INSERT INTO " & saudTmpCAW & " ( degisiklikturu, degistirmetarihi, degistiren ) " & _
        "SELECT 'SilinenKayıt' AS Expr1, Now() AS Expr2, NetworkUserName() AS Expr3, " & sCAW & ".* " & _
        "FROM " & sCAW & " WHERE (" & sCAW & "." & sKeyField & " = " & lngKeyValue & ");"
    db.Execute sSQL, dbFailOnError

Exit_AuditDelBegin:
    Set db = Nothing
    Exit Function

End Function


Function AuditDelEnd(saudTmpCAW As String, sAudCAW As String, Status As Integer) As Boolean
'On Error GoTo Err_AuditDelEnd

    Dim db As DAO.Database
    Dim sSQL As String

    Set db = DBEngine(0)(0)
    If Status = acDeleteOK Then
        sSQL = "INSERT INTO " & sAudCAW & " SELECT " & saudTmpCAW & ".* FROM " & saudTmpCAW & _
            " WHERE (" & saudTmpCAW & ".degisiklikturu = 'SilinenKayıt');"
        db.Execute sSQL, dbFailOnError
    End If

    'Remove the temp record(s).
    sSQL = "DELETE FROM " & saudTmpCAW & ";"
    db.Execute sSQL, dbFailOnError
    AuditDelEnd = True

Exit_AuditDelEnd:
    Set db = Nothing
    Exit Function


End Function


Function AuditEditBegin(sCAW As String, saudTmpCAW As String, sKeyField As String, _
    lngKeyValue As Long, bWasNewRecord As Boolean) As Boolean
'On Error GoTo Err_AuditEditBegin

    Dim db As DAO.Database
    Dim sSQL As String

    Set db = DBEngine(0)(0)
    sSQL = "DELETE FROM " & saudTmpCAW & ";"
    db.Execute sSQL

    If Not bWasNewRecord Then
        sSQL = "INSERT INTO " & saudTmpCAW & " ( degisiklikturu, degistirmetarihi, degistiren ) " & _
            "SELECT 'YeniVeri' AS Expr1, Now() AS Expr2, NetworkUserName() AS Expr3, " & sCAW & ".* " & _
            "FROM " & sCAW & " WHERE (" & sCAW & "." & sKeyField & " = " & lngKeyValue & ");"
        db.Execute sSQL, dbFailOnError
    End If
    AuditEditBegin = True

Exit_AuditEditBegin:
    Set db = Nothing
    Exit Function

End Function


Function AuditEditEnd(sCAW As String, saudTmpCAW As String, sAudCAW As String, _
    sKeyField As String, lngKeyValue As Long, bWasNewRecord As Boolean) As Boolean
    Dim db As DAO.Database
    Dim sSQL As String
    Set db = DBEngine(0)(0)

    If bWasNewRecord Then

        sSQL = "INSERT INTO " & sAudCAW & " ( degisiklikturu, degistirmetarihi, degistiren ) " & _
            "SELECT 'YeniKayıt' AS Expr1, Now() AS Expr2, NetworkUserName() AS Expr3, " & sCAW & ".* " & _
            "FROM " & sCAW & " WHERE (" & sCAW & "." & sKeyField & " = " & lngKeyValue & ");"
        db.Execute sSQL, dbFailOnError
    Else

        sSQL = "INSERT INTO " & sAudCAW & " SELECT TOP 1 " & saudTmpCAW & ".* FROM " & saudTmpCAW & _
            " WHERE (" & saudTmpCAW & ".degisiklikturu = 'YeniVeri') ORDER BY " & saudTmpCAW & ".degistirmetarihi DESC;"
        db.Execute sSQL

        sSQL = "INSERT INTO " & sAudCAW & " ( degisiklikturu, degistirmetarihi, degistiren ) " & _
            "SELECT 'EskiVeri' AS Expr1, Now() AS Expr2, NetworkUserName() AS Expr3, " & sCAW & ".* " & _
            "FROM " & sCAW & " WHERE (" & sCAW & "." & sKeyField & " = " & lngKeyValue & ");"
        db.Execute sSQL

        sSQL = "DELETE FROM " & saudTmpCAW & ";"
        db.Execute sSQL, dbFailOnError
    End If
    AuditEditEnd = True

Exit_AuditEditEnd:
    Set db = Nothing
    Exit Function

End Function


Örnek 64 bit ofiste çalışacak şekilde yeniden düzenlendi.



Ek Dosyalar
.rar   kayitkontrol.rar (Dosya Boyutu: 27,49 KB / İndirme Sayısı: 1.885)
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,01:20
Teşekkürler, Eline sağlık.
Cevapla


accessdelisi
Tımarhaneden Yeni Kaçtım
Kullanici Avatari
Aktif Üye
314
30/10/2008
24
-
Ofis 2010 32 Bit
Bugün,05:38
Hocam ellerinize sağlık
SÖZ VERİYORUM... USLU DURUCAM...
Cevapla


ercansahin
BlackEagle
Kullanici Avatari
Uzman
E.... Ş....
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
Dün,23:51
İnceledim, çok kullanışlı ve faydalı bir çalışma olmuş
Cevapla


derebeyi
Aktif Üye
Kullanici Avatari
Aktif Üye
152
06/11/2008
0
Samsun
Ofis 2007
02/08/2016,13:18
Hocam ellerinize sağlık çookk güzel olmuş
Cevapla


realperest
Üye
Kullanici Avatari
Üye
10
3
29/10/2008
0
-
Ofis 2003
07/06/2016,04:55
Kayıt değişikliklerini yapan makina adı yerine kullanıcı girişi yapanın ismi olsa daha güzel olur.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  CSI Veritabanı Uygulaması bonasera 11 3.384 04/11/2016, 01:07 bonasera
  Gmail Hesabıyla E-mail Gönderme Uygulaması ozanakkaya 26 8.159 15/10/2016, 14:54 ates2014
  Microsoft Outlook Randevu Ekleme Uygulaması ozanakkaya 10 4.717 10/09/2016, 13:36 direnist
  Uyarı Balonu hemde ikon seçmeli oluşturma Form Uygulaması HandSword 11 3.978 06/06/2016, 11:25 asilangel
  Gelişmemiş Vcard Oluşturma Uygulaması ozanakkaya 5 771 23/05/2016, 06:06 accessdelisi


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya