AccessTr.neT

Tam Versiyon: Buton İle Defaultvalue Değiştirilmesi
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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.
ç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"
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"
(08/10/2019, 13:30)berduş yazdı: [ -> ]ç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
Ç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!