+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Dlookup İle Getirdiğimiz Kayıtları Güncelleme. (/konu-dlookup-ile-getirdigimiz-kayitlari-guncelleme.html)
Dlookup İle Getirdiğimiz Kayıtları Güncelleme. - barcins - 20/11/2018
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.
Cvp: Dlookup İle Getirdiğimiz Kayıtları Güncelleme. - ozanakkaya - 20/11/2018
(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.
Cvp: Dlookup İle Getirdiğimiz Kayıtları Güncelleme. - direnist - 20/11/2018
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ğı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_cumlesiCvp: Dlookup İle Getirdiğimiz Kayıtları Güncelleme. - barcins - 20/11/2018
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.