Tablolarınızdaki Resmi fiyat hanenizin bozulmaması için malz adlı tabloya Fiyat_2010 adında bir alan ekledim.
Formunuzdada 2010 fiyatlarını güncelle dediğiniz zaman 2010 fiyatları ilgili Pozno ile ilişkili olarak bu alan doldurulacaktır.

Sanırım istediğiniz budur...

Sn.Power istediğime çok yaklaştık. Resmi Fiyat hanesi bozulursa (yani 2010 fiyatları buraya atanırsa) tam istediğim olacak. Bu arada kodunuzda yazdığınız 500 ifadesi neye yarıyor? (kayıt sayısı mı?)

Çok teşekkür ederim.

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

Sn.POWER, çok teşekkür ederim. Şimdi tam istediğim gibi oldu, ellerinize sağlık.

Selamlar...

Resmi fiyatlar güncellendikten sonra Net_fiyatlarında güncellenmesi için kodu aşağıdaki gibi değiştirin.

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

yerine

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

yapınız...

Üstadım elleriniz dert görmesin. çok teşekkür ederim. Süper oldu...