(01/03/2022, 12:53)berduş yazdı: 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

günlerdir tıkanmıştım gerçekten
sayın berduş ve lemoncer çok tşk ederim gerçekten emeğiniz ve vakit ayırdığınız için

Me.metin1 = Replace(Me.metin1, "(tarih)", Me.Metin11)
Me.Metin2 = Replace(Me.Metin2, "(tarih)", Me.metin22)
Me.metin3 = Replace(Me.metin3, "(tarih)", Me.metin33)

tam istediğim formül harikasınız .


konuyu kapatabliriz