Skip to main content

AccessTr.neT


Log Kaydı Oluşturmak

Log Kaydı Oluşturmak

#12
@feraz eklediğiniz yönetim araçları eklentisinde kayıt casus kısmında her işlem kaydediliyor
bunun çalışma mantığı anladığım kadarı ile şöyle 
Private Sub Form_BeforeUpdate(Cancel As Integer)
Call KayitCasusu(Form, [PersonelNo])
End Sub
ile formun güncelleme öncesinde fonksiyon çalışıyor ama bunun için olayın tetiklenmesi lazım
tetiklenmesi için de formun veri kaynağı tabloya bağlı olması gerekiyor
fonksiyonda controllerin old ve new value leri kontrol edilip kaydediliyor gayet de güzel çalışıyor
ama problem benim formun veri kaynağı tabloya bağlı değil yani Dlookup  ile bilgileri forma yükleyip değişiklik olursa update sorgusu ile verileri güncelliyorum
burada anahtar kelime değişiklik olursa
ben değişiklik olup olmadığını amiyane bir şekilde tüm control valueleri bir stringde toplayıp giriş ve çıkışda karşılaştıryorum mesela girişte
"Ahmet"&"Ankara"&"Erkek" çıkışta
"Ahmet"&"İstanbul"&"Erkek"     
ise kaydetme fonksiyonu çalışıyor. 


For Each Kontrol In frm

        Select Case Kontrol.ControlType  'Tüm kontrolleri gözden geçirelim..
        Case acTextBox, acComboBox, acCheckBox, acOptionGroup


            'Boş verilere değer atayalım..
            EskiData = Nz(Kontrol.OldValue, "Boş")
            YeniData = Nz(Kontrol.Value, "Boş")

            If EskiData <> YeniData Then

                'Diğer değişkenleri tanımyalım
                Tablo = frm.RecordSource
                kllnc = AktifKullanici
                Zmn = Now()
                Msj = "Kayıt Değiştirildi"

                'Değişiklikleri kaydedelim..
                Sorgu = "INSERT INTO TGuncellemeKaydi ([Tablo], [KayitNo], [FormAdi], [DenetimAdi], " _
                      & "[EskiVeri], [YeniVeri], [Kullanici], [Zaman],[Silinme]) " _
                      & "VALUES ('" & Tablo & "', '" & KayitKimligi & "', '" & frm.name & "', " _
                      & "'" & Kontrol.name & "', '" & EskiData & "', '" & YeniData & "', " _
                      & "'" & kllnc & "', '" & Zmn & "', '" & Msj & "')"

                CurrentDb.Execute Sorgu

            End If
        End Select

    Next Kontrol

özetle sorum şu
bu fonksiyonda kontrolun eski ve yani değerlerini alabilmem için formun veri kaynağının bir tabloya bağlı olması şart mı ilişkisiz formlarda 
Form_BeforeUpdate olayı çalışır mı
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Log Kaydı Oluşturmak - Yazar: accessman - 14/03/2020, 08:10
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 14/03/2020, 09:39
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 14/03/2020, 14:21
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 14/03/2020, 14:36
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 14/03/2020, 14:48
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 14/03/2020, 15:24
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 14/03/2020, 15:27
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 14/03/2020, 15:38
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 14/03/2020, 15:52
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 14/03/2020, 16:14
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 14/03/2020, 16:16
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 15/03/2020, 20:09
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 15/03/2020, 20:56
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 15/03/2020, 21:08
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 15/03/2020, 21:19
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 15/03/2020, 23:39
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 15/03/2020, 23:46
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 16/03/2020, 17:55
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 16/03/2020, 00:53
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 16/03/2020, 18:21
Cvp: Log Kaydı Oluşturmak - Yazar: feraz - 16/03/2020, 18:38
Cvp: Log Kaydı Oluşturmak - Yazar: berduş - 17/03/2020, 14:16
Cvp: Log Kaydı Oluşturmak - Yazar: accessman - 17/03/2020, 14:51
Cvp: Log Kaydı Oluşturmak - Yazar: berduş - 17/03/2020, 16:56