Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Örnekleri ve Uygulamaları (https://accesstr.net/forum-access-ornekleri-ve-uygulamalari.html) +--- Konu Başlığı: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği (/konu-kayitlarda-yapilan-degisiklikleri-gozlemleme-log-tutma-ornegi.html) |
Cvp: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - akem - 07/06/2010 teşekkürler çok güzel bir uygulama Cvp: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - kagan58 - 10/06/2010 Paylaşım ve destekleriniz için teşekkürler Cvp: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - kursad05 - 14/02/2011 Taruz Hocam emeğine sağlık. Tam aradığım bir şeydi bu. Ben Amasya-Suluova İlçe Milli Eğitim Müdürlüğünde Koordinatör olarak çalışmaktayım. Örneğinizi inceledim. Dediklerinizi uygulamama çektim. Kayıt yapıyor. Lakin Kullanıcı Adını yazmıyor. Uygulamama giriş olarak sizin ekranınızı kullanmadığım için mi oluyor acaba? Kullanıcılarım birden fazla olacağı ve herkesin kendisiyle ilgili veri giriş ekranlarını görmesi gerekiyor. Sizin giriş formatınızda böyle bir şey yoktu. Ama dediğim gibi kayıt yapıyor. Lakin frm_casus formunda kullanıcı adını yazmıyor. Kullanıcı Adı: Nazmiye Topal Şifre: ntopal (Minimize makrosu var. Açarken shift kullanmayı unutmayın!) Emeği geçenlerden ve geçeceklerden şimdiden Allah razı olsun. İyi geceler. (Artı kafam patladı bu saat oldu hala neden olduğunu bulamadım. ) Cvp: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - Yandemir - 14/02/2011 Parola ekranı giriş kodunu bu şekle getirin Private Sub Komut6_Click() On Error GoTo Err_Komut6_Click Kllnc = kx KullaniciKim = Me.Açilan_Kutu0.Column(1) AktifKullaniciYetkisi AktifKullanici Dim stDocName As String Dim stLinkCriteria As String stDocName = "Protokol" DoCmd.OpenForm stDocName, , , stLinkCriteria, , acHidden Exit_Komut6_Click: Exit Sub Err_Komut6_Click: MsgBox Err.Description Resume Exit_Komut6_Click End Sub Tbl_Guncelleme_Kaydi tablosunu dizayn modunda açın kullanici alaninin satir kaynağini SELECT Kullanici.kulno, Kullanici.kulad FROM Kullanici; yapın. ama olay bununla da bitmiyor. Frm_Casus formunda dizayna girip Liste0 listbox'ın Satır Kaynağı'nı SELECT Tbl_Guncelleme_Kaydi.GuncellemeID, Tbl_Guncelleme_Kaydi.Zaman, Tbl_Guncelleme_Kaydi.Tablo, Tbl_Guncelleme_Kaydi.KayitNo, Tbl_Guncelleme_Kaydi.FormAdi, Tbl_Guncelleme_Kaydi.DenetimAdi, Tbl_Guncelleme_Kaydi.EskiVeri, Tbl_Guncelleme_Kaydi.YeniVeri, Kullanici.kulad, Tbl_Guncelleme_Kaydi.Silinme, Tbl_Guncelleme_Kaydi.Kullanici FROM Tbl_Guncelleme_Kaydi LEFT JOIN Kullanici ON Tbl_Guncelleme_Kaydi.Kullanici=Kullanici.kulno WHERE (((Tbl_Guncelleme_Kaydi.FormAdi)=IIf(Forms!Frm_Casus!formlar Is Null,[formadi],Forms!Frm_Casus!formlar)) And ((Tbl_Guncelleme_Kaydi.Kullanici)=IIf(Forms!Frm_Casus!kullanıcı Is Null,[Kullanici],Forms!Frm_Casus!kullanıcı)) And ((Format([Zaman],"dd-mmm-yyyy"))=IIf(Forms!Frm_Casus!tarih Is Null,Format([Zaman],"dd-mmm-yyyy"),Forms!Frm_Casus!tarih))) ORDER BY Tbl_Guncelleme_Kaydi.Zaman DESC; yapın işlem tamamdır. Cvp: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - kursad05 - 14/02/2011 Murat hocam sorun hallolmuştur. Emeğinize, bilginize ve de en önemlisi İLGİNİZE çok ama çok teşekkür ederim. Hocam yalnız mesajınızda dediğiniz bir noktayı yapamadım. Tbl_Guncelleme_Kaydi tablosunu dizayn modunda açın kullanici alaninin satir kaynağini SELECT Kullanici.kulno, Kullanici.kulad FROM Kullanici; yapın. Tbl_Guncelleme_Kaydi tablosu değil de Frm_Casus formunda ilgili değişikliği yaptım. Cvp: Kayıtlarda Yapılan Değişiklikleri Gözlemleme (Log Tutma) Örneği - Yandemir - 14/02/2011 tablodaki pek önemli değil sadece tablo izlemede kayıtlar boş gibi gelir ama doludur aslında. |