+- 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ığı: Kriterlere Göre Metrekare Hesaplama (/konu-kriterlere-gore-metrekare-hesaplama.html)
RE: Kriterlere Göre Metrekare Hesaplama - U.ALTUN - 17/01/2022
berduş hoca hesaplama formu fatura formunda mekanik stok girince miktar girişinde f6 ile mekanik formunu açıp ölçülerin hesaplamasını yaptıktan sonra toplamını fatura formunda miktar getirip işleme devam edilecek aynı zaman stok id ile stok tablosu ile ilişkili olarak ölçüler kullanılacak. notunuz ile ilgili olarak 1.20,1,30,1.40 gibi tam sayılar yukarı yuvarlamadan kullanılacak.
RE: Kriterlere Göre Metrekare Hesaplama - berduş - 17/01/2022
dilerim işinize yarar
güncelleme Kodu
Sub VeriGuncelle()
xEnBoy = " UPDATE Tbl_Mekanikhesaplama SET" _
& " en=IIf([En]<1,1,IIf([En]>1.4,2,(Int([En]*10-0.1+1)/10)))," _
& " boy=IIf([Boy]<2,2,(Int([Boy]*10-0.1+1)/10))"
CurrentDb.Execute xEnBoy
xMetrekare = " UPDATE Tbl_Mekanikhesaplama SET" _
& " Metrekare=en*boy"
CurrentDb.Execute xMetrekare
End SubPrivate Sub txtboy_Exit(Cancel As Integer)
Boy = IIf(txtboy < 2, 2, (Int(txtboy * 10 - 0.1 + 1) / 10))
Metrekare = txten * txtboy
End Sub
Private Sub txten_Exit(Cancel As Integer)
En = IIf(txten < 1, 1, IIf(txten > 1.4, 2, (Int(txten * 10 - 0.1 + 1) / 10)))
Metrekare = txten * txtboy
End SubRE: Kriterlere Göre Metrekare Hesaplama - U.ALTUN - 18/01/2022
berduş hocam elinize sağlık tam istediğim gibi oldu sizi bayağı uğraştırdım sonuç mükemmel oldu çok teşekkürler.
RE: Kriterlere Göre Metrekare Hesaplama - berduş - 18/01/2022
Rica ederim İyi çalışmalar
Yalniz şöyle bir sorun var; form her açılışında ilgili güncellemeyi yaptığı için ilerde çok fazla kayıt varsa formun yüklenmesi zaman alabilir
Isterseniz güncelleme kodunu bir butona atayarak sadece eski güncellenmemiş verilerin güncellenmesi sağlanabilir
Yeni eklenen kayıtlarda işlem zaten kayıt ekleme aşamasında yapıldığı için sorun olmaz
RE: Kriterlere Göre Metrekare Hesaplama - U.ALTUN - 18/01/2022
uyarınız dikkate alacağım iyi günler.
RE: Kriterlere Göre Metrekare Hesaplama - U.ALTUN - 22/01/2022
berduş hocam kodun en ölçüsünde en 2,00cm üstüne çıkınca 10cm katlarınla hesaplanacak koda aşağıdaki kodu ekledim örnek olarak 2,43cm yazınca 2,00cm getirip 2,00cm olarak hesaplıyor nerede hata yapıyorum yardım eder misiniz.
En = IIf(txten < 1, 1, IIf(txten > 1.4, 2, IIf(txten > 2, 1, (Int(txten * 10 - 0.1 + 1) / 10))))