AccessTr.neT

Tam Versiyon: Liste kutusundan seçilen kayıtları güncelleme
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
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.
Arkadaşlar yukarıda belirtmeyi unutmuşum. Aynı güncelleme olayının T_RAPORLAR tablosunda da olması gerekiyordu.
https://accesstr.net/konu-kritere-gore-g...ht=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.
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.
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?
Eklediğiniz kodda sıkıntı var, ekteki uygulamadaki kod ile 50000 kayıtlık tabloda sorunsuz olarak işlem yapıldı.
Sayfalar: 1 2