Skip to main content

AccessTr.neT


En Son Değer

En Son Değer

Çözüldü #1
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?
Cevapla
Çözüldü #2
(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.
Cevapla
Çözüldü #3
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?
Cevapla
#4
Örnek uygulama eklerseniz inceleyip çözüm hakkında fikir üretebiliriz.
Cevapla
#5
(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.)
.rar enginb.rar (Dosya Boyutu: 505,65 KB | İndirme Sayısı: 1)
Cevapla
#6
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.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task