Skip to main content

AccessTr.neT


Log Kaydı Oluşturmak

Log Kaydı Oluşturmak

#7
(14/03/2020, 14:48)accessman yazdı: Sqlite dan  neden vazgeçtiniz 
Üstad bir zamanlar vb.net ile uğraşırken veritabanı arayılına girmiştim ve sqlite cazip gelmişti.Aslında vazgeçmedimde vb.netten vazgeçtim Img-grin
Dolayısıyla sqlitedende vazgeçmiş  bulunduk.Birde karmaşık geldi sanal tablo vs..oluşuyordu tam istediğim gibi olmamıştı.Sqlite yerine Access daha iyi bence vt olarak.
Cevapla
#8
Vb.net in Vba dan çok farkı var mı
Cevapla
#9
(14/03/2020, 14:48)accessman yazdı: Benim vertabanı zaten sqlite da o yüzden sıkıntı olmayabilir siz txt daha az yer tutar diyorsunuz galiba

Gifte anlattım programsız sqlite çalıştırmayı.
Yer tutma olayınıda gösterdim.


[Resim: MTVlNmNkNDkyYTQ2M2U.gif]
Cevapla
#10
Zamanında Taruz hoca yapmış dosyayı ekleyeyim içinde yok yok Img-grin
şifre kullanıcıların ilk harfleri

Belki işinize yarayabilir.

[Resim: do.php?img=9855]
.rar trz-yonetici-araclari-2007.rar (Dosya Boyutu: 267,46 KB | İndirme Sayısı: 8)
Cevapla
#11
Süper teşekkürler
Cevapla
#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
Task