01/03/2022, 13:00
Bilal Demirci
(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
tüm tablo otomatik olarak güncellenecekse o durumda sorgu da yapılabilirMe.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 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