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