AccessTr.neT
Formdaki tüm kayıtların bir butonla güncellenmesi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Formdaki tüm kayıtların bir butonla güncellenmesi (/konu-formdaki-tum-kayitlarin-bir-butonla-guncellenmesi.html)

Sayfalar: 1 2


Cvp: Formdaki tüm kayıtların bir butonla güncellenmesi - POWER - 10/05/2011

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


Cvp: Formdaki tüm kayıtların bir butonla güncellenmesi - elmariachi - 10/05/2011

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.


Cvp: Formdaki tüm kayıtların bir butonla güncellenmesi - POWER - 10/05/2011

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


Cvp: Formdaki tüm kayıtların bir butonla güncellenmesi - elmariachi - 10/05/2011

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

Selamlar...


Cvp: Formdaki tüm kayıtların bir butonla güncellenmesi - POWER - 11/05/2011

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


Cvp: Formdaki tüm kayıtların bir butonla güncellenmesi - elmariachi - 11/05/2011

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