aşağıdaki kodlar Onur_Can dan alıntı yapılarak çalışma yapılmıştır nerede hata yapmaktayım.

Public Sub Hesapla()

Dim NBF, STI, STUT As Double

Dim a1, a2, a3 As Double

Dim is1, is2, is3, is4, is5, is6 As Double

Dim T1, T2, T3, T4, T5 As Double



If IsNull(Me.I1) Then

If IsNull(Me.I2) Then

If IsNull(Me.I3) Then

If IsNull(Me.I4) Then

If IsNull(Me.KDV) Then

If IsNull(Me.BİRİMFİYAT) Then



Me.I1 = 0

Me.I2 = 0

Me.I3 = 0

Me.I4 = 0

Me.KDV = 0

Me.BİRİMFİYAT = 0

End If

If Me.I1 = 100 Then

If Me.I2 = 100 Then

If Me.I3 = 100 Then

If Me.I4 = 100 Then

Me.SATIRTUTARDAHİL = 0

End If



a1 = 100

a2 = 0.01

a3 = 1



is1 = Me.I1

is2 = Me.I2

is3 = Me.I3

is4 = Me.I4

is5 = Me.KDV

is6 = Me.BİRİMFİYAT



T1 = (a1 - is1) * a2

T2 = (a1 - is2) * a2

T3 = (a1 - is3) * a2

T4 = (a1 - is4) * a2

T5 = a3 / T1 / T2 / T3 / T4

NBF = is6 / T5 * ((is5 / 100) + 1)

Me.NETBİRİMFİYAT = NBF



STI = (is6 - NBF) * Me.MİKTAR

Me.TOPLAMİNDİRİM = STI

STUT = NBF * Me.MİKTAR

Me.SATIRTUTARDAHİL = STUT



End Sub

Private Sub Form_Load()

Call Hesapla

End Sub