Liste kutusundan seçilen kayıtları güncelleme

Liste kutusundan seçilen kayıtları güncelleme - Baskı Önizleme

+- 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ığı: Liste kutusundan seçilen kayıtları güncelleme (/konu-liste-kutusundan-secilen-kayitlari-guncelleme.html)

Sayfalar: 1 2

Liste kutusundan seçilen kayıtları güncelleme - serdar_20 - 14/02/2015

Merhabalar;
Ek'te göndermiş olduğum örnek dosyada F_RAPOR formunda bulunan formda liste kutusundan çoklu seçim yaparak kayıtları güncellemek istiyorum. Formda bulunan komut22 ye tıklayınca liste kutusundaki seçili kayıtların T_VERILER tablosundaki durumu alanının 2 olarak güncellenmesini nasıl yapabiliriz?
Yardımcı olursanız sevinirim.

Cvp: Liste kutusundan seçilen kayıtları güncelleme - serdar_20 - 14/02/2015

Arkadaşlar yukarıda belirtmeyi unutmuşum. Aynı güncelleme olayının T_RAPORLAR tablosunda da olması gerekiyordu.

Cvp: Liste kutusundan seçilen kayıtları güncelleme - yorum70 - 14/02/2015

https://accesstr.net/konu-kritere-gore-guncelleme.html?highlight=kabahat

Sn.Serdar20, benzer bir şekilde hali hazırda kullandığımız programda siteden aldığım yardımlarla uygulama yapılmıştı.

Burada, kritere göre BEKLEMEDE olanları GÖNDERİLDİ olarak guncelliyor.

Cvp: Liste kutusundan seçilen kayıtları güncelleme - serdar_20 - 14/02/2015

Sayin yorum70 tesekkur ederim ama guncellemek istedigim veriler liste kutusundan secilen verilerden geldigi icin ve iki farkli tablidaki veriler guncellenecegi icin istegimi tam olarak karsilamiyor.

Cvp: Liste kutusundan seçilen kayıtları güncelleme - serdar_20 - 16/02/2015

Merhabalar;

Örnek dosyada liste kutusundan seçilen kayıtlara oluşan sorguya göre

Kod:

UPDATE sorgu SET sorgu.DURUMU = 2;

şeklinde bir sorgu oluşturdum.
Butonunun olayında

Kod:

Dim Q As QueryDef

Dim v As Variant

Dim sql, kiriter As String

For Each v In Me.Liste0.ItemsSelected

kiriter = kiriter & Me.Liste0.Column(0, v) & ","

Next

kiriter = "(" & Left(kiriter, Len(kiriter) - 1) & ")"

Set DB = CurrentDb()

   Set Q = DB.QueryDefs("sorgu")

   Q.sql = "Select * From T_VERILER Where [ID] In" & kiriter & ";"

   Q.Close

   DoCmd.OpenQuery "yeni oluşturduğum sorgu" 'UPDATE sorgu SET sorgu.DURUMU = 2;

şeklinde yaptım bu haliyle istediğim oldu ama veri sayısı artınca işlem esnasında bir hata olur mu acaba? Sonuçta önce yeni bir sorgu oluşup sonrasında oluşan sorguya göre güncelleme işlemi yapılıyor. Değerli hocalarım acaba konu hakkında yorumlarınızı/önerilerinizi alabilir miyim?

Cvp: Liste kutusundan seçilen kayıtları güncelleme - ozanakkaya - 18/02/2015

Eklediğiniz kodda sıkıntı var, ekteki uygulamadaki kod ile 50000 kayıtlık tabloda sorunsuz olarak işlem yapıldı.