=DLookUp("[kulanici_adi]";"Tbl_Kullanici";"[kul_id]=" & Nz(DLast("Kullanici";"Tbl_Guncelleme_Kaydi";"[KayitNo]='" & [PersonelNo] & "'");0))
Boş kayıtta değişiklik ile ilgili 2. sorunuz için
Kayit_casusu modülündeki
YeniData = Nz(Kontrol.Value, "Boş")
kodunun hemen altına
If IsNull(Kontrol.OldValue) Then
Exit Function
End If
Kodu ekleyiniz.