Çö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.