selam arkadaşlar, aşagıdaki vereceğim  kod satırları hata veriyor, çözemedim bi bakabilir misiniz, çok teşekkürler.

aciklamaDegisken = "update  sonTablo set aciklama = '" & Me.aciklama & "'  where  select Last(Kimlik) from sonTablo "

DoCmd.RunSQL aciklamaDegisken

(11-03-2022, 12:46)tarkanaykın demiş ki: kod satırları hata veriyor, çözemedim bi bakabilir misiniz, çok teşekkürler.

aciklamaDegisken = "update  sonTablo set aciklama = '" & Me.aciklama & "'  where  (((Kimlik)=" & dLast("Kimlik","sonTablo") & "))"

deneyin.

hala, aynı hatayı veriyor,  listbox1 e çift tıklamayla sonTablo ya kaydedebiliyordum da şimdi ne değişti nerde hata yaptım anlamadım, kusura bakmayın tekrar döndüm.

Private Sub listbox1_DblClick(Cancel As Integer)
aq.Value = Me.listbox1.Column(4)

Dim aciklamaDegisken As String

 




DoCmd.OpenQuery "sorguMkysNucleusOrtakListbox Kopyası son ekle"


aciklamaDegisken = "update  sonTablo set aciklama = '" & Me.aciklama & "'     where  (((Kimlik)=" & DLast("Kimlik", "sonTablo") & "))"
DoCmd.RunSQL aciklamaDegisken
Me.aciklama.Value = ""

MsgBox "veriler 'sorunlular' tablosuna kaydedildi"


End Sub

metnin içinde de tek tırnak olduğu için hata veriyor isterseniz kodu aşağıdaki gibi düzenleyebilirsiniz ama bu durumda da eğer ifadenizde çift tırnak varken hata verebilir

dediğiniz gibi oldu, çok teşekkür ederim, zaten yazı sabit bi yazı, çift tırnak kullanmam, teşekkürler kolay gelsin

Rica ederim
İyi çalışmalar