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.
Buton İle Defaultvalue Değiştirilmesi
ç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ı
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
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 gerekiyorevet bu kod işe yaradı! Teşekkürler
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"
Ç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!
yanlış zamanda, yanlış durumda kullanmanız halinde veri kayıpları yaşayabilirsiniz ve bunu fark etmezsiniz bile!
Konuyu Okuyanlar: 1 Ziyaretçi