@
feraz beyin belirttiği gibi.....
teorik olarak önerebileceğim şey tüm formdan çağırabileceğiniz bir dizi oluşturmak
alanlara değer atarken bu değerleri diziye yüklemek
ve son aşamada eski-yeni kıyaslaması yaparken bu dizi değerini çağırmak olabilir
Option Compare Database
satırının altına
Dim EskDgr() As Variant
satırını ekleyerek diziyi tanmladık
ilk değeri almak için gerekli kodlar
'hy_______________________________________________ ilk değeri alma
Dim ctl As Control
x = 0
For Each ctl In Me.Controls
Select Case ctl.ControlType 'Tüm kontrolleri gözden geçirelim..
Case acTextBox, acComboBox, acCheckBox, acOptionGroup
ReDim Preserve EskDgr(x)
EskDgr(x) = Nz(ctl)
x = x + 1
End Select
Next ctl
'hy__________________________________________________
kontrol sırasında çalıştırılacak kod
kırmızı olanlar eklenmiş
yeşil olanlar değiştirilmiştir
'________________________________________________________________________________________________
x=0
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(EskDgr(x))
YeniData =
nz(kontrol)
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
x=x+1
End Select
Next Kontrol
'__________________________________________________
gerisi size kalmış
Not: diziye değer atama mantığı for each döngüsünün nesneleri aynı sırayla aldığı varsayımı üzerine kurulu
hatalı bir varsayım olabilir o durumda diziye nesne adı ve değeri atanıp tekrar döngüyle kontrol edilebilir
