Private Sub Form_BeforeUpdate(Cancel As Integer)
Call KayitCasusu(Form, [PersonelNo])
End Sub

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