teşekkürler çok güzel bir uygulama
Paylaşım ve destekleriniz için teşekkürler
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.
)
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.
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.
tablodaki pek önemli değil sadece tablo izlemede kayıtlar boş gibi gelir ama doludur aslında.