AccessTr.neT

Merhaba iyi forumlar arkadaşlar,

Borkod numarasını yazınca, Form'a istediğim bilgileri getiriyorum.

Dim SID As String

Dim stLinkCriteria As String

Dim VeriVarmi As Integer



VeriVarmi = Nz(DCount("Kimlik", "ETIKET_GIRIS", "[BARKOD2]='" & Me.PLTDZLT & "'"), 0)

If VeriVarmi <> 0 Then

Onay188 = Dlookup ("[IPTAL]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")

Metin192 = Dlookup ("[ACIKLAMA]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")

Onay190 = Dlookup ("[SATILDI]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")

Metin194 = Dlookup ("[SACIKLAMA]", "ETIKET_GIRIS", "[BARKOD2]=" & "'" & Me.PLTDZLT & "'")

Else

MsgBox ("Bu Barkoda Tanımlama Yapılmamış.")

Cancel = True

End If

İstediğim Düzeltmeleri yapıyorum fakat kaydet butonuna basınca update yapamadım . Kod aşağıda
CurrentDb.Execute "insert into ETIKET_GIRIS (Onay188, Metin192, Onay190, Metin194)" _
'& " select '" & Me.Onay188 & "' , '" & Me.Metin192 & "' , '" & Me.Onay190 & "' , '" & Me.Metin194 & "' "

ilgili örnek eklenmiştir.

(Onay188, Metin192, Onay190, Metin194)

Sorgunuzun üstteki kısmında tablodaki alanların isimleri olmalı. Örnek olmadığı için kodun kalan kısmı hakkında yorum yapamayacağım.

Merhaba;

(20/11/2018, 10:11)barcins yazdı: [ -> ]İstediğim Düzeltmeleri yapıyorum fakat kaydet butonuna basınca update yapamadım . Kod aşağıda
CurrentDb.Execute "insert into ETIKET_GIRIS (Onay188, Metin192, Onay190, Metin194)" _
'& " select '" & Me.Onay188 & "' , '" & Me.Metin192 & "' , '" & Me.Onay190 & "' , '" & Me.Metin194 & "' "

Hata 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?
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

Birleştiremedim henüz ayrı ayrı yaptım ama bu şekilde sorunu çözdüm.

Kod:
CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [IPTAL] = '" & Forms![GRT_BARKOD_DUZELTME]!Onay188 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [ACIKLAMA] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin192 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [SATILDI] = '" & Forms![GRT_BARKOD_DUZELTME]!Onay190 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [SACIKLAMA] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin194 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [IRSKESILDI] = '" & Forms![GRT_BARKOD_DUZELTME]!Onay196 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [IRS_NO] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin198 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [IRS_TARIH] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin204 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [URT_GITTI] = '" & Forms![GRT_BARKOD_DUZELTME]!Onay200 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [URT_ACIKLAMA] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin202 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

CurrentDb.Execute "UPDATE [ETIKET_GIRIS] SET [PALET_ACIKLAMA] = '" & Forms![GRT_BARKOD_DUZELTME]!Metin206 & "' WHERE [BARKOD2]='" & PLTDZLT & "'"

problem çözülmüştür. teşekkürler.

barcins

ozanakkaya

direnist

barcins