Skip to main content

AccessTr.neT


Buton İle Defaultvalue Değiştirilmesi

Buton İle Defaultvalue Değiştirilmesi

Çözüldü #1
Merhaba Arkadaşlar

Form üzerinde bulunan metin kutusunun veri kısmındaki varsayılan değeri yani default value kısmını buton ile değiştirmek istiyorum.
Fakat o anki değerini Me.xxx.value = "xxx" olarak güncelleyebiliyorum. Kayıt sonrasında veya formu tekrar yüklediğimde daha önceden ayarladığım varsayılan değer değil de sonradan buton ile ayarladığım değerin kalıcı olmasını istiyorum. Yani default value, ilgili tablonun alanında buton ile kalıcı olarak değiştirilmeli. Bu konuda yardımlarınızı rica ediyorum.
.rar default value.rar (Dosya Boyutu: 43,58 KB | İndirme Sayısı: 3)
Cevapla
#2
çalışma anında yapılan değişiklikler kalıcı olmaz diye biliyorum, sadece tasarım anında olur o nedenle önce tasarım moduna alıp kaydedip yeniden açacak kod kullanmak gerekiyor
değiştirmek için kullanacağınız butonun kodu aşağıdakine benzer bir şey olmalı
Kod
DoCmd.OpenForm "Form1", acDesign, , , , acHidden
Forms!Form1!tarih.DefaultValue = "=Date()-112"
DoCmd.Close acForm, "Form1", acSaveYes
DoCmd.OpenForm "Form1"
Cevapla
#3
eğer bir metin kutusuna girilecek değere göre değiştirmesini istiyorsanız, diyelim ki metin22 alanındaki değere göre,
aşağıdaki gibi de yazabilirsiniz. Önemli olan nokta
Forms!Form1!tarih.DefaultValue = "=" & d ifadesindeki  "=" & d  kısmının açılımının "=date() - 5" yada "=date() + 3"  formatına dönüşmesidir
uyarı: dikkatli olmazsanız veri kaybı yaşayabilirsiniz
Kod
d = Forms!Form1!Metin22
DoCmd.OpenForm "Form1", acDesign, , , , acHidden
Forms!Form1!tarih.DefaultValue = "=" & d
DoCmd.Close acForm, "Form1", acSaveYes
DoCmd.OpenForm "Form1"
Cevapla
#4
(08/10/2019 13:30)berduş Adlı Kullanıcıdan Alıntı: çalışma anında yapılan değişiklikler kalıcı olmaz diye biliyorum, sadece tasarım anında olur o nedenle önce tasarım moduna alıp kaydedip yeniden açacak kod kullanmak gerekiyor
değiştirmek için kullanacağınız butonun kodu aşağıdakine benzer bir şey olmalı
Kod
DoCmd.OpenForm "Form1", acDesign, , , , acHidden
Forms!Form1!tarih.DefaultValue = "=Date()-112"
DoCmd.Close acForm, "Form1", acSaveYes
DoCmd.OpenForm "Form1"
evet bu kod işe yaradı! Teşekkürler
Cevapla
#5
Çok dikkatli kullanmanız gerektiğinin farkındasınız değil mi??
yanlış zamanda, yanlış durumda kullanmanız halinde veri kayıpları yaşayabilirsiniz ve bunu fark etmezsiniz bile!
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da