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 Adlı Kullanıcıdan Alıntı: 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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#5
(28/06/2020 16:31)ozanakkaya Adlı Kullanıcıdan Alıntı: Ö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 

Visual Basic Code
DoCmd.GoToRecord , , acNewRec


kodunun altına

Visual Basic Code
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.

"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da