+- 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ığı: Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması (/konu-girilen-degeri-metin-kutlarina-hesaplayip-yazmasi.html)
Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması - simendifer - 27/04/2025
değerli hocalarım hepinize hayırlı günler dilerim
yapmak istediğim ilişkisiz metin kutusuma yazdım değeri hesaplayıp ilgili metin kutularına yazdırmak
şöyleki: köy su abonelerinin sarfiyatını okuyup faturasını çıkartırken abonenin kullandığı su miktarı örneğin 120 ton bunun 20 tonunu kadarını 20 liradan, 21 tondan 30 tona kadarını 25 liradan, 31 tondan 40 tona kadarını 30 liradan,41 tondan 50 tona kadarını 35 liradan,50 tondan fazlasını 40 liradan hesaplayıp ilgili metin kutularına yazdırrmak istiyorum kdv sini ve genel toplamın yaparım formdan araştırdım gelir vergisi matrahı hesaplaması ıff formülü ile edenedim yapamadım formul sarfiyat metin kutusunun güncelleştirme olayına yazdım hata verdi sizlerden ricam bir el atıverin şimdiden teşekkür ederim
GVM: IIf([Metin18]>0 And [Metin18]<=20;[GVM]* 20;IIf([Metin18]>21 And [Metin18]<=30;(([GVM]-20)*25+400);IIf([Metin18]>31 And [Metin18]<=40;(([GVM]-30)*30+ 650);IIf([Metin18]>41;(([ Metin18]-40)*0,35)+950;0))))
RE: Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması - onur_can - 27/04/2025
Merhaba
Yapmak istediklerinizi Select Case komutuyla yazdırabilirsiniz.
'sarfiyat (girilen sarfiyat miktarı
'a=0-20 Arası *20
'b=21-30 arası *25
'c=31-40 arası *30
'd=41-50 arası *35
'e=51 ve sonrası *40
Ben metin kutularını böyle adlandırdım, siz değiştirebilirsiniz. Sarfiyat metin kutusunun Güncelleştirme sonrasında olayında kodumuz şu şekilde olmalıdır.
Kod:
Select Case sarfiyat
Case 1 To 20
a = sarfiyat * 20
b = 0
c = 0
d = 0
e = 0
Case 21 To 30
a = 20 * 20
b = sarfiyat * 25
c = 0
d = 0
e = 0
Case 31 To 40
a = 20 * 20
b = 9 * 25
c = sarfiyat * 30
d = 0
e = 0
Case 41 To 50
a = 20 * 20
b = 9 * 25
c = 9 * 30
d = sarfiyat * 35
e = 0
Case Is > 50
a = 20 * 20
b = 9 * 25
c = 9 * 30
d = 9 * 35
e = (sarfiyat - 51) * 40
End Select
End SubRE: Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması - simendifer - 28/04/2025
hocam eline emeğine sağlık hakkını helal et
gönderdiğin kodu güncelleştirme sonrasına yazdım metin kutularının adlarını değiştirdim ama çalışmadı acaba mödülde mi olması lazım bir zahmet bakarmısınız 1 inci mesaja düzenlenmiş rarlı dosyayı güncelledim şimdiden teşekkür ederim allaha emanet olun
RE: Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması - atoykan - 28/04/2025
Merhaba Sayın @simendifer. Kodunuzu aşağıdaki gibi düzeltin sorununuz çözülecektir. İşlemlerde ufak bir mantık hatası var onu da düzelttim.
Private Sub Metin18_AfterUpdate()
StrCrt = SARFİYAT.Value
Select Case StrCrt
Case 1 To 20
a = StrCrt * 20
b = 0
c = 0
d = 0
e = 0
Case 21 To 30
a = 20 * 20
b = (StrCrt - 20) * 25
c = 0
d = 0
e = 0
Case 31 To 40
a = 20 * 20
b = 9 * 25
c = (StrCrt - 30) * 30
d = 0
e = 0
Case 41 To 50
a = 20 * 20
b = 9 * 25
c = 9 * 30
d = (StrCrt - 50) * 35
e = 0
Case Is > 50
a = 20 * 20
b = 9 * 25
c = 9 * 30
d = 9 * 35
e = (StrCrt - 50) * 40
End Select
End SubRE: Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması - simendifer - 28/04/2025
selamünaleyküm değerli hocam atoykan
onurcan hocamın kodunu ekledim çalışmadı ama incelediğimde sarfiyat alan adı ufak harfti büyük harf yaptım b c d e alan değerlerini 10 yaptım çalıştı ellerinize saglık tam istediğm gibi ilgi ve alakanıza candan teşekkür ederim çok saağolun bitmiş halini ekliyorum bir arkadaşa lazım olur konu başlığını tam ifade edeemessem sizler düzeltirsiniz kalın sağlıcakla allaha emanet olun iyiki varsınız
RE: Girilen Degeri, Metin Kutlarına Hesaplayıp Yazması - atoykan - 28/04/2025
Rica ederiz. Bu tip sorunlar nedeni ile sürekli hatırlatıyoruz yapilmamasi gereken olumcul hatalar konusunu mutlaka inceleyin, alan, denetim vb adlarında Türkçe karakter, tamamını büyük harf kullanmayın diyerek. İyi çalışmalar.