If rs1!Poz = rs!Poz_No Then rs!Fiyat_2010 = rs1![2010]: rs.Update
yerineIf 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...