Gelir Vergisi Hesaplama - Baskı Önizleme

Gelir Vergisi Hesaplama - Baskı Önizleme

+- 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ığı: Gelir Vergisi Hesaplama (/konu-gelir-vergisi-hesaplama--89461.html)

Sayfalar: 1 2

Gelir Vergisi Hesaplama - Yunus Bozkurt - 14/02/2022

Merhaba taruz üstadın gelirvergisi heaplama modulünü eklemeye çalışıyorum. ama hata alıyorum yardım edermisniz?
Sorgum şu şekilde

GelirVergisi: VERGI()

taruz üstadın kodlarını aşağıdaki şekilde değiştirdim.

Option Compare Database

Dim Barem1, Barem2, Barem3, Barem4, BirikimliMatrah, AylıkMatrah As Currency

Barem1 = Dlookup ("[Barem1]", "vdilimleri")

Barem2 = Dlookup ("[Barem2]", "vdilimleri")

Barem3 = Dlookup ("[Barem3]", "vdilimleri")

Barem4 = Dlookup ("[Barem4]", "vdilimleri")

AylıkMatrah = Dlookup ("[GVMatrahi]", "puantajlar Sorgu1")

BirikimliMatrah = Dlookup ("[Kumulatif]", "s_kumulatif") ' buda ilgili personelin kümülatif toplamı olmalı



' yukarı kısmı değiştirdim. aşağısı aynı.



Function VERGI(Barem1, Barem2, Barem3, Barem4, BirikimliMatrah, AylıkMatrah)

If BirikimliMatrah <= Barem1 Then

VERGI = AylıkMatrah * 0.15

ElseIf BirikimliMatrah - Barem1 <= AylıkMatrah Then

VERGI = (BirikimliMatrah - Barem1) * 0.2 + (AylıkMatrah - (BirikimliMatrah - Barem1)) * 0.15

ElseIf BirikimliMatrah <= Barem2 Then

VERGI = AylıkMatrah * 0.2

ElseIf BirikimliMatrah - Barem2 <= AylıkMatrah Then

VERGI = (BirikimliMatrah - Barem2) * 0.25 + (AylıkMatrah - (BirikimliMatrah - Barem2)) * 0.2

ElseIf BirikimliMatrah <= Barem3 Then

VERGI = AylıkMatrah * 0.27

ElseIf BirikimliMatrah - Barem3 <= AylıkMatrah Then

VERGI = (BirikimliMatrah - Barem3) * 0.3 + (AylıkMatrah - (BirikimliMatrah - Barem3)) * 0.27

ElseIf BirikimliMatrah <= Barem4 Then

VERGI = AylıkMatrah * 0.35

ElseIf BirikimliMatrah - Barem4 <= AylıkMatrah Then

VERGI = (BirikimliMatrah - Barem4) * 0.35 + (AylıkMatrah - (BirikimliMatrah - Barem4)) * 0.35

ElseIf BirikimliMatrah > Barem4 Then

VERGI = AylıkMatrah * 0.35

End If

End Function

RE: Gelir Vergisi Hesaplama - berduş - 14/02/2022

sorun ne ve tam olarak ne yaptığınızda çıkıyor?

RE: Gelir Vergisi Hesaplama - Yunus Bozkurt - 14/02/2022

bir işlev derlenirken hata oldu. uyarısı alıyorum.

RE: Gelir Vergisi Hesaplama - berduş - 14/02/2022

bende hata vermedi o nedenle tam olarak ne yaptığınızda çıkıyor? diye sordum
formu açıp kayda gidip Puantaj yap düğmesine bastım kayıtların güncelleneceği ile ilgili uyarıları verip işlemi gerçekleştirdi hata uyarısı vermedi
siz hangi adımları izlediğinizde hata veriyor

RE: Gelir Vergisi Hesaplama - Yunus Bozkurt - 14/02/2022

gelir vergisi hesapla sorgusunu çalıştırırmısınız.

personelin kümülatif gelir vergisine bakarak aylık gelir vergisini bulmak istiyorum.

RE: Gelir Vergisi Hesaplama - berduş - 14/02/2022

sorun galiba modülde doğrudan değer atamanızdan kaynaklanıyor

Barem1 = Dlookup ("[Barem1]", "vdilimleri")

Barem2 = Dlookup ("[Barem2]", "vdilimleri")

Barem3 = Dlookup ("[Barem3]", "vdilimleri")

Barem4 = Dlookup ("[Barem4]", "vdilimleri")

AylıkMatrah = Dlookup ("[GVMatrahi]", "puantajlar Sorgu1")

BirikimliMatrah = Dlookup ("[Kumulatif]", "s_kumulatif")

gibi değer atamalarını fonksiyon yada sub içinde yaparak dener misiniz?
bu değerlere nerede ihtiyacınız var? mesela bu atamaları anaformunuz yüklenirken yapabilirsiniz