Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
25/01/2009 20:36
Konu Sahibi
ozanakkaya
Yorumlar
14
Okunma
3211
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ozanakkaya

sledgeab
Kurucu
OZ.... AK....
 40
10.957
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,03:29
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.889)
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

C*e*l*o*y*c*e

Uzman
Uzman
ME.... B.....
 46
3.120
29/10/2008
944
Ankara
Yazılım
Ofis 2010 32 Bit
Bugün,02:15
Teşekkürler, Eline sağlık.



Kullanici Avatari

accessdelisi

Tımarhaneden Yeni Kaçtım
Aktif Üye
AH.... FU.... CE....
 40
367
30/10/2008
27
-
-
22/06/2018,10:56
Hocam ellerinize sağlık


SÖZ VERİYORUM... USLU DURUCAM...

Kullanici Avatari

ercansahin

BlackEagle
Uzman
ER.... ŞA....
 43
3.739
14/11/2008
Ankara
Ofis 2010 32 Bit
03/03/2018,16:39
İnceledim, çok kullanışlı ve faydalı bir çalışma olmuş



Kullanici Avatari

derebeyi

Aktif Üye
Aktif Üye
 41
149
06/11/2008
0
Samsun
Ofis 2007
30/01/2017,21:39
Hocam ellerinize sağlık çookk güzel olmuş



Kullanici Avatari

realperest

Üye
Ü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.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Uyarı Balonu hemde ikon seçmeli oluşturma Form Uygulaması HandSword 13 5.832 03/05/2018, 15:48
Son Yorum: ismail menekşe
  Ziyaretçi Takip Uygulaması Yasin Keleş 15 2.143 11/04/2018, 19:57
Son Yorum: A.Kadir.
  Gmail Hesabıyla E-Mail Gönderme Uygulaması ozanakkaya 32 10.868 28/03/2018, 12:02
Son Yorum: uMits
  Server'a Resim Yükleme Ve Url'den Resim Gösterme Uygulaması donepezil 7 442 27/03/2018, 17:12
Son Yorum: uMits
  Ftp'ye Klasör Açma Ve Resim Yükleme Uygulaması donepezil 1 360 13/03/2018, 14:24
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.