Gelir Vergisi Hesaplama

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

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

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

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

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

---

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

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