AccessTr.neT

Merhabalar
excelde =ARA(A2;{0;1;21;51;101;251;501;1001;2001;3001;4001};{0;12;13,5;17,3;19,6;23;26,6;30,3;34,3;38,3;42,3})
fonksiyonuyla ptt taahhütlü gönderi listesine gram miktarını girip ücreti hesaplamasını sağlıyorum.
bu fonksiyonu Access te nasıl kullanabilirim.
açıklama :
1- 20 gram arası 12 TL
21-50 gram arası 13,50 tl
51-100 gram arası 17,30 tl
101-250 gram arası 19,60 tl
251-500 gram arası 23,00 tl
501-1000 gram arası 26,60 tl
1001-2000 gram arası 30,30 tl
2001-3000 gram arası 34,30 tl
3001-4000 arası 38,30 tl
4001- 5000 arası 42,30 tl
şeklinde hesaplanıyor
excel ve Access dosyası ektedir
ofis2003
not: şu anki taahhütlü ptt ücreti hesaplama için kullanıyorum
Teşekkürler

1 - konuyu ilgili yere açmaya dikkat edin mesela siz konunuzu Site Kuralları kısmına açmışsınız farklı yerlere açtığınız konular dikkatten kaçabilir
2 - https://accesstr.net/konu-yapilmamasi-ge...talar.html konusunu incelemenizi öneririm tablo yapınız bu hataları içeriyor ilerde sorun çıkabilir
3 - çalışmanızda ücret sınırlarını belirleyen değerler özel bir tabloya kaydedilseydi daha iyi olurdu, ilerde bu değerler değiştiğinde kodla oynamak yerine verilerin olduğu tabloyu değiştirmeniz yeterli olurdu.
Not: tabladaki ücret alanının geçerlilik kuralı kısmındaki ifadeyi sildim
aşağıdaki kod SAYISI alanının güncelleştirme sonrası olayına ait
dilerim işinize yarar
iyi çalışmalar

Private Sub SAYISI_AfterUpdate()

xGr = CLng(Me.SAYISI)

zGr = Switch(xGr < 21, 12#, xGr < 51, 13.5, xGr < 101, 17.3, xGr < 251, 19.6, xGr < 501, 23#, xGr < 1001, 26.6, xGr < 2001, 30.3)

If xGr > 2000 Then zGr = (Fix((xGr - 1) / 1000) - 1) * 4 + 30.3

Me.ÜCRETİ = zGr

End Sub

Merhabalar Sayın Uzman düzenlediğiniz kodu veri tabanında gramı sütunu açıp buraya taşıdım
ve tam istediğim şekilde hesaplamaları yaptı, ptt zammı yılda bir kez olduğundan gerektiğinde
koddaki ücret değerlerini güncelleyip kullanmaya devam ederim diye düşünüyorum.
Elinize emeğinize sağlık Teşekkür ederim iyi akşamlar

Rica ederim
İyi çalışmalar )