AccessTr.neT

Tablolar için güncelleme sorgusu kullanilabilir
Ama çalışmanız pek anlaşılmıyor nereye ne yazıp ne yapınca bu güncelleme yapılacak hangi alanda yapılacak belli değil.

(01/03/2022, 09:57)berduş yazdı: [ -> ]Tablolar için güncelleme sorgusu kullanilabilir
Ama çalışmanız pek anlaşılmıyor nereye ne yazıp ne yapınca bu güncelleme yapılacak hangi alanda yapılacak belli değil.

merhaba
hocam saolsun vakit emek vermiş çokda güzel olmuş
ama bende okuyunca derdimi anlatamamışım onu farkettim

ekteki örnekte daha net yazdım
sağdaki kutudan tarihi alacak solda içinde tarih yazan yere koyacak , cümle içinde yani gececek, ama cümlenin tamamını siliyor ben sadece tarih yerine verdiğim ibare gelsin istiyorum

ben farklı yollarla denedim denedim olmadı
dün geceden beridir de deniyorum 1 haftadır aramadığım bakmadığım yazı kalmadı
yaşdanmıdır nedir kafa almıyor sanırım.

(tarih) burada tarih kelime olarak var değil mi? yani tarih kelimesi olacak 11.11.2111 gibi bir değer değil?

---

ve sadece ekrandaki kaydın verileri değişecek tüm tabloların değil?

(01/03/2022, 11:50)berduş yazdı: [ -> ](tarih) burada tarih kelime olarak var değil mi? yani  tarih kelimesi olacak 11.11.2111 gibi bir değer değil?

---

ve sadece ekrandaki kaydın verileri değişecek tüm tabloların değil?

tarih olarak var sıkıntım orda zaten
sağdakş tarihi alıp soldaki cümlenin içine koyacak

ozaman çalışmanızda neden tarihin kendisi değil de kelimesi var,
örneğinizi ona göre hazırlamanız gerekmez miydi?

aşağıdaki kod işinize yarayabilir ben sadece formdaki ilk 3 metin için yaptım diğerlerini de siz buna uygun yapabilirsiniz

    Me.metin1 = Replace(Me.metin1, "(tarih)", Me.Metin11)

    Me.Metin2 = Replace(Me.Metin2, "(tarih)", Me.metin22)

    Me.metin3 = Replace(Me.metin3, "(tarih)", Me.metin33)

tüm tablo otomatik olarak güncellenecekse o durumda sorgu da yapılabilir
tüm tablo güncellenecekse yukardaki yerine aşağıdaki kod kullanılabilir

xSQL = "update tablo1 set "

xAlan = "metin1=Replace(metin1, '(tarih)', Metin11), " & _

        "metin2=Replace(metin2, '(tarih)', Metin22), " & _

        "metin3=Replace(metin3, '(tarih)', Metin33), " & _

        "metin4=Replace(metin4, '(tarih)', Metin44), " & _

        "metin5=Replace(metin5, '(tarih)', Metin55), " & _

        "metin6=Replace(metin6, '(tarih)', Metin66), " & _

        "metin7=Replace(metin7, '(tarih)', Metin77), " & _

        "metin8=Replace(metin8, '(tarih)', Metin88), " & _

        "metin9=Replace(metin9, '(tarih)', Metin99), " & _

        "metin10=Replace(metin10, '(tarih)', Metin100) "

xSQL = xSQL & xAlan



CurrentDb.Execute xSQL

---

çalışmanızı yeniden belirttiğiniz yapıda yeniden yüklerseniz ona uygun bir çözüm önermeye çalışırız