Skip to main content

AccessTr.neT


Tablo Güncelleme

Tablo Güncelleme

Çözüldü #1
İ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.
Son Düzenleme: 18/02/2021, 12:26, Düzenleyen: fenerli6774. (Sebep: Düzeltme)
Cevapla
#2
Visual Basic Code
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?
Cevapla
#3
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
Son Düzenleme: 18/02/2021, 14:52, Düzenleyen: fenerli6774. (Sebep: Düzeltme)
Cevapla
#4
ç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
Cevapla
#5
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
Cevapla
#6
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.
.rar Deneme11.rar (Dosya Boyutu: 71,83 KB | İndirme Sayısı: 5)
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task