VBA kodlarında bulunan

If rs1!Poz = rs!Poz_No Then rs!Fiyat_2010 = rs1![2010]: rs.Update

yerine

If rs1!Poz = rs!Poz_No Then rs!Resmi_Fiyat = rs1![2010]: rs.Update

yazarsanız Update işlemini Resmi_Fiyat üstüne yazar...

500 ifadesinin kayıt sayısı ile ilgisi yok. Kontrol içindir. Yani kayıt yoksa hata vermemesi için çıkması anlamında yazılmıştır...

Bilginiz olsun...

If rs1.EOF = True Then GoTo 500

rs1 ile ilişkilendirilen dosyada kayıt yoksa 500 e git

EOF = End Of File

İyi çalışmalar... Rap leri unutmayın...