(20/11/2018, 10:11)barcins yazdı: İstediğim Düzeltmeleri yapıyorum fakat kaydet butonuna basınca update yapamadım . Kod aşağıdaHata verdiğiniz ilettiğiniz kod Update değil Ekleme sorgusudur. 1. mesajınıza eklediğiniz örnek üzerinden hata veren Update sorgunuzu aşağıdaki gibi dener misiniz?
CurrentDb.Execute "insert into ETIKET_GIRIS (Onay188, Metin192, Onay190, Metin194)" _
'& " select '" & Me.Onay188 & "' , '" & Me.Metin192 & "' , '" & Me.Onay190 & "' , '" & Me.Metin194 & "' "
Yazdığınız Update kodunda çok hatalar var. Where kısmında yazdığınız PLTDZLT gibi bir alan adı ETIKET_GIRIS tablonuzda yok. Ayrıca güncelleme yapılması istediğiniz alan adı tablonuzda PALET_ACIK değil PALET_ACIKLAMA. Yine Where kısmındaki kriter güncelleme yapılacak olan kaydı diğer kayıtlardan ayıran benzersiz bir alan olmalı.
Ben bunu Barkod2 olarak düzelttim.
UPDATE sorgularındaki cümle yapısı üzerinde biraz daha durmalısınız.
İyi çalışmalar.
Kod:
Dim sorgu_cumlesi As String
sorgu_cumlesi = "UPDATE [ETIKET_GIRIS] SET [PALET_ACIKLAMA] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin192 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"
Debug.Print sorgu_cumlesi
CurrentDb.Execute sorgu_cumlesi