AccessTr.neT
Buton İle Defaultvalue Değiştirilmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Buton İle Defaultvalue Değiştirilmesi (/konu-buton-ile-defaultvalue-degistirilmesi.html)



Buton İle Defaultvalue Değiştirilmesi - sipuasfaf - 08/10/2019

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.


Cvp: Buton İle Defaultvalue Değiştirilmesi - berduş - 08/10/2019

ç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"




Cvp: Buton İle Defaultvalue Değiştirilmesi - berduş - 08/10/2019

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"




Cvp: Buton İle Defaultvalue Değiştirilmesi - sipuasfaf - 08/10/2019

(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


Cvp: Buton İle Defaultvalue Değiştirilmesi - berduş - 08/10/2019

Ç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!