+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: En Son Değer (/konu-en-son-deger.html)
En Son Değer - enginbeyy - 27/06/2020
Merhaba,
Metin kutuları ve açılır listelere değer girerek atl forma KAYDET butonuyla ekliyorum. Fakat her kayıttan sonra tüm metin kutuları ve açılır listeler boşalıyor. Bu alanların en son değerlerini korumalarını istiyorum. Yardımcı olur musunuz?
RE: En Son Değer - enginbeyy - 27/06/2020
(27/06/2020, 18:23)enginbeyy yazdı: Merhaba,Anlatabildim mi bilmiyorum ama her metin kutusuna yazılan ve açılır listeye seçilen değerler bi daha kine değiştirilene dek o yerin varsayılan değeri olsun. Teşekkürler.
Metin kutuları ve açılır listelere değer girerek atl forma KAYDET butonuyla ekliyorum. Fakat her kayıttan sonra tüm metin kutuları ve açılır listeler boşalıyor. Bu alanların en son değerlerini korumalarını istiyorum. Yardımcı olur musunuz?
En Son Değer - enginbeyy - 28/06/2020
Metin kutuları ve açılır listelere değer girerek atl forma KAYDET butonuyla kayit ekliyorum. Fakat her kayıttan sonra tüm metin kutuları ve açılır listeler boşalıyor. Bu alanların en son değerlerini korumalarını istiyorum. Yardımcı olur musunuz?
RE: En Son Değer - ozanakkaya - 28/06/2020
Örnek uygulama eklerseniz inceleyip çözüm hakkında fikir üretebiliriz.
RE: En Son Değer - enginbeyy - 28/06/2020
(28/06/2020, 16:31)ozanakkaya yazdı: Örnek uygulama eklerseniz inceleyip çözüm hakkında fikir üretebiliriz.hocam kayıt için girilen il ilçe merkez kaynak kesinti sebebi vb açılan kutu ve metin kutularının içi kaydet dedikten sonra boşalmasın. ama istediğim yerlerde değişiklik yaparak tekrar tekrar kaydedebileyim. (mesela bir kaydın aynısını sadece tarihi değiştirip tekrar girebileyim.)
RE: En Son Değer - ozanakkaya - 28/06/2020
Formda, soldaki 5 açılan kutu için, formun açıldığında olayındaki
DoCmd.GoToRecord , , acNewReckodunun altına
Dim AccessTr_SNO As Integer
AccessTr_SNO = DMax("[no]", "Sorgu1")
Me.txtil.DefaultValue = Dlookup ("il_kodu", "tablo", "[no]=" & AccessTr_SNO)
Me.txtilce.DefaultValue = Dlookup ("ilce_kodu", "tablo", "[no]=" & AccessTr_SNO)
Me.txtmerkez.DefaultValue = Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO)
Me.txtfider.DefaultValue = Dlookup ("fider_kodu", "fider", "[merkez_kodu]='" & Dlookup ("merkez_kodu", "tablo", "[no]=" & AccessTr_SNO) & "'")
Me.txtsebep.DefaultValue = Dlookup ("[no]", "kesinti_yapan", "[kesinti_yapan]='" & Dlookup ("kesinti_sebebi", "tablo", "[no]=" & AccessTr_SNO) & "'")kodu ekleyerek deneyiniz.