12/04/2018, 09:59
ozanakkaya
Tutar alanının hesaplamasını metin0'ın dolu olup olmamasına göre ayarlamışsınız. Formun geçerli olduğunda olayındaki if kodunu iptal ederseniz düzelir.
Ayrıca, formun geçerli olduğunda olayına yazdığınız kod
Bu alanları tek tek hesaplatmak yerine,
Koduyla yapabilirsiniz.
Konu başlığındaki sorunuz cevaplandığı için konunuzu taşıyorum. Farklı sorunuz var ise yeni konu açarak sorabilirsiniz.
Ayrıca, formun geçerli olduğunda olayına yazdığınız kod
fiy1 = acl_malz1.Column(2)
fiy2 = acl_malz2.Column(2)
fiy3 = acl_malz3.Column(2)
fiy4 = acl_malz4.Column(2)
fiy5 = acl_malz5.Column(2)
fiy6 = acl_malz6.Column(2)
fiy7 = acl_malz7.Column(2)
fiy8 = acl_malz8.Column(2)
fiy9 = acl_malz9.Column(2)
fiy10 = acl_malz10.Column(2)
fiy11 = acl_malz11.Column(2)
fiy12 = acl_malz12.Column(2)
fiy13 = acl_malz13.Column(2)
fiy14 = acl_malz14.Column(2)
fiy15 = acl_malz15.Column(2)
fiy16 = acl_malz16.Column(2)
fiy17 = acl_malz17.Column(2)
fiy18 = acl_malz18.Column(2)
fiy19 = acl_malz19.Column(2)
fiy20 = acl_malz20.Column(2)
fiy21 = acl_malz21.Column(2)
fiy22 = acl_malz22.Column(2)
fiy23 = acl_malz23.Column(2)
fiy24 = acl_malz24.Column(2)
fiy25 = acl_malz25.Column(2)
fiy26 = acl_malz26.Column(2)
fiy27 = acl_malz27.Column(2)
fiy28 = acl_malz28.Column(2)
fiy29 = acl_malz29.Column(2)
fiy30 = acl_malz30.Column(2)
fiy31 = acl_malz31.Column(2)
fiy33 = acl_malz33.Column(2)
fiy34 = acl_malz34.Column(2)
fiy35 = acl_malz35.Column(2)
fiy36 = acl_malz36.Column(2)
fiy37 = acl_malz37.Column(2)
fiy38 = acl_malz38.Column(2)
fiy39 = acl_malz39.Column(2)
fiy40 = acl_malz40.Column(2)
fiy41 = acl_malz41.Column(2)
fiy42 = acl_malz42.Column(2)
fiy43 = acl_malz43.Column(2)
fiy44 = acl_malz44.Column(2)
fiy45 = acl_malz45.Column(2)
fiy46 = acl_malz46.Column(2)
fiy47 = acl_malz47.Column(2)
fiy48 = acl_malz48.Column(2)
fiy49 = acl_malz49.Column(2)
fiy50 = acl_malz50.Column(2)
fiy51 = acl_malz51.Column(2)
fiy52 = acl_malz52.Column(2)
fiy53 = acl_malz53.Column(2)
fiy54 = acl_malz54.Column(2)
fiy55 = acl_malz55.Column(2)
fiy56 = acl_malz56.Column(2)
fiy57 = acl_malz57.Column(2)
fiy58 = acl_malz58.Column(2)
fiy59 = acl_malz59.Column(2)
fiy60 = acl_malz60.Column(2)
mtn_tutar1 = mtn_mik1 * fiy1
mtn_tutar2 = mtn_mik2 * fiy2
mtn_tutar3 = mtn_mik3 * fiy3
mtn_tutar4 = mtn_mik4 * fiy4
mtn_tutar5 = mtn_mik5 * fiy5
mtn_tutar6 = mtn_mik6 * fiy6
mtn_tutar7 = mtn_mik7 * fiy7
mtn_tutar8 = mtn_mik8 * fiy8
mtn_tutar9 = mtn_mik9 * fiy9
mtn_tutar10 = mtn_mik10 * fiy10
mtn_tutar11 = mtn_mik11 * fiy11
mtn_tutar12 = mtn_mik12 * fiy12
mtn_tutar13 = mtn_mik13 * fiy13
mtn_tutar14 = mtn_mik14 * fiy14
mtn_tutar15 = mtn_mik15 * fiy15
mtn_tutar16 = mtn_mik16 * fiy16
mtn_tutar17 = mtn_mik17 * fiy17
mtn_tutar18 = mtn_mik18 * fiy18
mtn_tutar19 = mtn_mik19 * fiy19
mtn_tutar20 = mtn_mik20 * fiy20
mtn_tutar21 = mtn_mik21 * fiy21
mtn_tutar22 = mtn_mik22 * fiy22
mtn_tutar23 = mtn_mik23 * fiy23
mtn_tutar24 = mtn_mik24 * fiy24
mtn_tutar25 = mtn_mik25 * fiy25
mtn_tutar26 = mtn_mik26 * fiy26
mtn_tutar27 = mtn_mik27 * fiy27
mtn_tutar28 = mtn_mik28 * fiy28
mtn_tutar29 = mtn_mik29 * fiy29
mtn_tutar30 = mtn_mik30 * fiy30
mtn_tutar31 = mtn_mik31 * fiy31
mtn_tutar32 = mtn_mik32 * fiy32
mtn_tutar33 = mtn_mik33 * fiy33
mtn_tutar34 = mtn_mik34 * fiy34
mtn_tutar35 = mtn_mik35 * fiy35
mtn_tutar36 = mtn_mik36 * fiy36
mtn_tutar37 = mtn_mik37 * fiy37
mtn_tutar38 = mtn_mik38 * fiy38
mtn_tutar39 = mtn_mik39 * fiy39
mtn_tutar40 = mtn_mik40 * fiy40
mtn_tutar41 = mtn_mik41 * fiy41
mtn_tutar42 = mtn_mik42 * fiy42
mtn_tutar43 = mtn_mik43 * fiy43
mtn_tutar44 = mtn_mik44 * fiy44
mtn_tutar45 = mtn_mik45 * fiy45
mtn_tutar46 = mtn_mik46 * fiy46
mtn_tutar47 = mtn_mik47 * fiy47
mtn_tutar48 = mtn_mik48 * fiy48
mtn_tutar49 = mtn_mik49 * fiy49
mtn_tutar50 = mtn_mik50 * fiy50
mtn_tutar51 = mtn_mik51 * fiy51
mtn_tutar52 = mtn_mik52 * fiy52
mtn_tutar53 = mtn_mik53 * fiy53
mtn_tutar54 = mtn_mik54 * fiy54
mtn_tutar55 = mtn_mik55 * fiy55
mtn_tutar56 = mtn_mik56 * fiy56
mtn_tutar57 = mtn_mik57 * fiy57
mtn_tutar58 = mtn_mik58 * fiy58
mtn_tutar59 = mtn_mik59 * fiy59
mtn_tutar60 = mtn_mik60 * fiy60
mtn_maliyet = Nz([mtn_tutar1]) + Nz([mtn_tutar2]) + Nz([mtn_tutar3]) + Nz([mtn_tutar4]) + Nz([mtn_tutar5]) + Nz([mtn_tutar6]) + Nz([mtn_tutar7]) + Nz([mtn_tutar8]) + Nz([mtn_tutar9]) + Nz([mtn_tutar10]) + Nz([mtn_tutar11]) + Nz([mtn_tutar12]) + Nz([mtn_tutar13]) + Nz([mtn_tutar14]) + Nz([mtn_tutar15]) + Nz([mtn_tutar16]) + Nz([mtn_tutar17]) + Nz([mtn_tutar18]) + Nz([mtn_tutar19]) + Nz([mtn_tutar20]) + Nz([mtn_tutar21]) + Nz([mtn_tutar22]) + Nz([mtn_tutar23]) + Nz([mtn_tutar24]) + Nz([mtn_tutar25]) + Nz([mtn_tutar26]) + Nz([mtn_tutar27]) + Nz([mtn_tutar28]) + Nz([mtn_tutar29]) + Nz([mtn_tutar30]) + Nz([mtn_tutar31]) + Nz([mtn_tutar32]) + Nz([mtn_tutar33]) + Nz([mtn_tutar34]) + Nz([mtn_tutar35]) + Nz([mtn_tutar36])
mtn_maliyet = mtn_maliyet + Nz([mtn_tutar37]) + Nz([mtn_tutar38]) + Nz([mtn_tutar39]) + Nz([mtn_tutar40]) + Nz([mtn_tutar41]) + Nz([mtn_tutar42]) + Nz([mtn_tutar43]) + Nz([mtn_tutar44]) + Nz([mtn_tutar45]) + Nz([mtn_tutar46]) + Nz([mtn_tutar47]) + Nz([mtn_tutar48]) + Nz([mtn_tutar49]) + Nz([mtn_tutar50]) + Nz([mtn_tutar51]) + Nz([mtn_tutar52]) + Nz([mtn_tutar53]) + Nz([mtn_tutar54])
mtn_indirim = mtn_maliyet * mtn_oran / 100
mtn_net = Nz([mtn_maliyet]) + (Nz([mtn_kar]) - Nz([mtn_indirim]))
mtn_kar = mtn_maliyet * mtn_karoran / 100
mtn_net = Nz([mtn_maliyet]) + (Nz([mtn_kar]) - Nz([mtn_indirim]))
mtn_maliyetek = Nz([mtn_tutar55]) + Nz([mtn_tutar56]) + Nz([mtn_tutar57]) + Nz([mtn_tutar58]) + Nz([mtn_tutar59]) + Nz([mtn_tutar60])
mtn_netek = Nz([mtn_maliyetek]) + Nz([mtn_karek])
mtn_nettek = Nz([mtn_netek])
mtn_toptek = Nz([mtn_net]) + Nz([mtn_netek])Bu alanları tek tek hesaplatmak yerine,
For GSayi = 1 To 60
Controls("mtn_tutar" & GSayi) = Controls("mtn_mik" & GSayi) * Controls("fiy" & GSayi)
Controls("fiy" & GSayi) = Controls("acl_malz" & GSayi).Column(2)
mtn_maliyet = Nz(mtn_maliyet, 0) + Nz(Controls("mtn_tutar" & GSayi), 0)
Next
mtn_indirim = mtn_maliyet * mtn_oran / 100
mtn_net = Nz([mtn_maliyet]) + (Nz([mtn_kar]) - Nz([mtn_indirim]))
mtn_kar = mtn_maliyet * mtn_karoran / 100
mtn_net = Nz([mtn_maliyet]) + (Nz([mtn_kar]) - Nz([mtn_indirim]))
mtn_maliyetek = Nz([mtn_tutar55]) + Nz([mtn_tutar56]) + Nz([mtn_tutar57]) + Nz([mtn_tutar58]) + Nz([mtn_tutar59]) + Nz([mtn_tutar60])
mtn_netek = Nz([mtn_maliyetek]) + Nz([mtn_karek])
mtn_nettek = Nz([mtn_netek])
mtn_toptek = Nz([mtn_net]) + Nz([mtn_netek])Koduyla yapabilirsiniz.
Konu başlığındaki sorunuz cevaplandığı için konunuzu taşıyorum. Farklı sorunuz var ise yeni konu açarak sorabilirsiniz.