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