01/03/2022, 09:57
Bul Ve Değiştir Sorunu
01/03/2022, 10:16
Bilal Demirci
(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.
01/03/2022, 11:50
berduş
(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?
ve sadece ekrandaki kaydın verileri değişecek tüm tabloların değil?
01/03/2022, 11:58
Bilal Demirci
01/03/2022, 12:11
berduş
ozaman çalışmanızda neden tarihin kendisi değil de kelimesi var,
örneğinizi ona göre hazırlamanız gerekmez miydi?
örneğinizi ona göre hazırlamanız gerekmez miydi?
01/03/2022, 12:53
berduş
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 güncellenecekse yukardaki yerine aşağıdaki kod kullanılabilir
çalışmanızı yeniden belirttiğiniz yapıda yeniden yüklerseniz ona uygun bir çözüm önermeye çalışırız
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ılabilirtü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