Skip to main content

AccessTr.neT


Dlookup İle Getirdiğimiz Kayıtları Güncelleme.

Dlookup İle Getirdiğimiz Kayıtları Güncelleme.

Çözüldü #1
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.
.rar Veritabanı1.rar (Dosya Boyutu: 26,84 KB | İndirme Sayısı: 5)
barcins, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/11/2018, 12:40, Düzenleyen: barcins.
Cevapla
#2
(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.
Cevapla
#3
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

Cevapla
#4
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, 29-05-2009 tarihinden beri AccessTr.neT üyesidir.
Son Düzenleme: 20/11/2018, 17:23, Düzenleyen: barcins.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task