Tablo Güncelleme

1 2
18/02/2021, 12:25

fenerli6774

İyi günler kolay gelsin.
tbKonu tablosundaki Baskan ve Bunvan alanlarını güncellemek istiyorum
Baskan alanına frmMalzeme isimli formumdaki txtBakan hücresinden
Bunvan  alanına frmMalzeme isimli formumdaki txtBunvan hücresinden
veri alınacak
tbKonu tablosundaki KonuID frmMalzeme tablosunda txtKonuID olarak bulunuyor
Bunun için bir güncelleme kodu yazabilirmisiniz
Örneklere bakarak şöyle bir şey yazmaya çalıştım ama beceremedim:

CurrentDb.Execute "UPDATE tblKonu SET " & tblKonu.Baskan = '" & Me.txtKonuID & "'” WHERE (((tblKonu.KonuID)='" & Me.txtKonuID & "'))"

İlginiz Teşekkürler.
18/02/2021, 13:05

berduş

CurrentDb.Execute "UPDATE tblKonu SET  tblKonu.Baskan = '" & Me.txtKonuID & "' WHERE (((tblKonu.KonuID)='" & Me.txtKonuID & "'))"
şeklinde dener misiniz?
Yalnız tblKonu.Baskan alanı sayısal mı metin mi?
18/02/2021, 14:41

fenerli6774

Hayır
Ad Soyad şeklinde bir metin.

CurrentDb.Execute "UPDATE tblKonu SET tblKonu.Baskan = '" & Me.txtKonuID & "' WHERE (((tblKonu.KonuID)='" & Me.txtKonuID & "'))"

Run-Time Error '3464' ;
Ölçüt ifadeisnde veri türü uyuşmazlığı

uyarısı veriyor

CurrentDb.Execute "UPDATE tblKonu SET tblKonu.Baskan = '" & Me.txtKonuID & "' WHERE (((tblKonu.KonuID)='" & Me.txtKonuID & "'))"

ifadesinde frmMazeme formundaki ilişkisiz durumdaki txtBaskan hücresindeki verisi olması gerekmiyor mu

'" & Me.txtKonuID & "' ifadesini '" & Me.txtBaskan & "' olarak değiştirdim Yine aynı hatayı verdi
18/02/2021, 16:39

berduş

çalışmanızın ilgili kısmını eklerseniz çözmeye çalışırız
ve lütfen mümkünse her sorunuza çalışmayı ekleyin
en hızlı çözüm hazır dosyanız olduğunda bulunur
19/02/2021, 11:45

Mr.Midnight

Merhaba;
Kendi programlarımda kullandığım bir yöntemle yola çıkarak ustalarımızın affına sığınarak aşağıdaki kodu deneyebilir misiniz? Sorununuza çözüm olacaktır diye umut ediyorum...



Kod:
On Error Resume Next
Dim sql As String
DoCmd.SetWarnings (False)
sql = "UPDATE tblKonu SET tblKonu.Baskan = [Forms]![frmMalzeme]![txtBaskan], tblKonu.Bunvan = [Forms]![frmMalzeme]![txtBunvan] WHERE tblKonu.KonuID=[Forms]![frmMalzeme]![txtKonuID];"
DoCmd.RunSQL sql
DoCmd.SetWarnings (True)
Me.Requery
Recalc
19/02/2021, 20:29

fenerli6774

Teşekkür ederim, yazmış olduğunuz kod sorunumu çözdü.
Berduş hocamın kodu için de öğrenmek amaçlı dosyamı yükledim. (kod daha kısa olduğu için ve merak)
önce frmIhaleolustur formunda açılan listeden istenilen ihaleyi seçiyorum,
malzeme ekle butonuna basarak frmMalzeme formun gidiyorum.
Komisyonlar butonuna basarak üye alanları açılıyor.
Çalışmam sadece btnBaskan butonunda.
btnBaskan butonuna basarak üye seçimi yapıyorum.
Kayıt için Kaydetkapat butonu ekledim. İçine Berduş hocamın kodunu kullanarak şöyle karma bişey yazdım.

CurrentDb.Execute "UPDATE tblKonu SET tblKonu.Baskan =[Forms]![frmMalzeme]![txtBaskan] WHERE tblKonu.KonuID=[Forms]![frmMalzeme]![txtKonuID];"

üyeleri tabloya ekliyor. kod başarılı ama;

çok az parametre. 2 bekleniyor
uyarısı verdi
bu arada tablodan kullanmadığım alanları sildim. incelediğim kadarıyla silinen alanları hiç bir yerde kullanmama rağmen form açılışında parametre istiyor.
1 2