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.

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 Sub

txtboy ve txten çıkıldığında olayları

Private 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 Sub

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.

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

uyarınız dikkate alacağım iyi günler.

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