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?

(27/06/2020, 18:23)enginbeyy yazdı: 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?

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 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?

Örnek uygulama eklerseniz inceleyip çözüm hakkında fikir üretebiliriz.

(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.)

Formda, soldaki 5 açılan kutu için, formun açıldığında olayındaki 

DoCmd.GoToRecord , , acNewRec

kodunun 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.