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

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.602
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,00:38
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: do.php?img=5259]

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
ME.... B.....
 46
 3.167
 67
 29/10/2008
982
 Ankara
 Yazılım
 Ofis 2010 32 Bit
 Bugün,01:30
Teşekkürler, Eline sağlık.



Kullanici Avatari

accessdelisi

Altın Üye
AH.... FU.... CE....
 41
 384
 83
 30/10/2008
17
 -
 Yönetici
 Ofis 2016 64 Bit
 08/11/2018,17:44
Hocam ellerinize sağlık


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

Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
İnceledim, çok kullanışlı ve faydalı bir çalışma olmuş



Kullanici Avatari

derebeyi

Aktif Üye
 41
 158
 50
 06/11/2008
0
 Samsun
 
 Ofis 2007
 16/11/2018,16:50
Hocam ellerinize sağlık çookk güzel olmuş



Kullanici Avatari

realperest

Ü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
  Banka Talimatı Hazırlama Uygulaması derzulya 11 580 29/11/2018, 11:11
Son Yorum: derzulya
  Personel Kayıt Sistemi Muazzam cyberpars 5 1.050 23/11/2018, 09:27
Son Yorum: alleseelen
  Takvim, Hesap Makinası (Popups) Uygulaması (Alıntı) myAccess 12 5.721 16/11/2018, 16:22
Son Yorum: huzun_bulutu
  kayıt sayısı fazla olan veritabanları için osman06 2 2.599 16/11/2018, 13:46
Son Yorum: huzun_bulutu
Music Değişik bir kasa uygulaması mfdonmez 7 4.274 16/11/2018, 11:54
Son Yorum: huzun_bulutu

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