Çözüm ektedir. Kayıt sayısı çok olduğundan güncelleme işi uzun sürecektir. Ayrıca FIYATLAR tablonuzdaki yazilar_id alanı indekslendi.

öncelikle teşekkürler ilginiz için

ks.Open kaynak_tablo_sql, CurrentProject.Connection, adOpenStatic, adLockReadOnly

çalıştır deyince bu hatayı veriyor

Pardon test satırını kaldırmamışım ondandır

If hedef_id <> 0 And yazi_id < 5 Then

satırını

If hedef_id <> 0 Then

olacak şekilde değiştiriniz.

yazılar_ıD KÜÇÜK YAZILDIĞI İÇİN OLMUŞ SANIRIM.DÜZELTİNCE ÇALIŞTI.TEŞEKKÜRLER

çalışıyor ama gecerlılık_tarıhı en eski olanı çekiyor fıyatlardan.en son ekleneni çekmesi için düzeltmem gereken yer neresi acaba

Siz 5. mesajınızda yazılar_id e göre son kayıt deyince bende en son kayıt olanı kaydettirmiştim.

hedef_id = Nz(DMax("FIYATLAR_ID", "FIYATLAR", "[YAZILAR_ID]=" & yazi_id), 0)

satırını

kucuk_tarih = Nz(DMax("GECERLILIK_TARIHI", "FIYATLAR", "[YAZILAR_ID]=" & yazi_id), 0)

hedef_id = Nz(DLookup("FIYATLAR_ID", "FIYATLAR", "[GECERLILIK_TARIHI]=#" & Format(kucuk_tarih, "yyyy\/mm\/dd" & "#")), 0)

olacak şekilde değiştiriniz.

---

Bu arada yine ifadede karışıklık var :

"çalışıyor ama gecerlılık_tarıhı en eski olanı çekiyor fıyatlardan.en son ekleneni çekmesi için düzeltmem gereken yer neresi acaba"
en son eklenen kaydımı istiyorsunuz en son kaydedilen tarihimi istiyorsunuz?

---

En son tarihteki kayıtı verecek şekilde tekrar düzenlendi.