AccessTr.neT

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

hata veren yerde, aşagıdaki kodlardan sonra
'.......................................
'........................................
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 If
End If
End If
End If
End If
End If
End If
End If

tam 8 tane end if yazmalısın end if eksik diyor

Değerli Form Üyeleri,

Emeği geçen bütün arkadaşlara saygılarımı sunarım.

çalışmanın en son hali ek'tedir. Fakat İskonto oranı %100 olduğu zaman hata vermektedir.

saygılarımla.

Sıfıra bölme hatası alıyorsunuzdur.

1) Ne amaçlı olarak kodları kullanıyorsunuz?
2) O kodlar normalde form üzerinde kullanılsa daha iyi olur.

Sayın alpeki99,
Satış temsilcisi arkadaşların aldıkları siparişi merkeze mail ortamında gönderebilmesi için bu çalışmaya başladım.
saygılarımla

Ne için derken yanlış anlaşıldım. Bir ürün siparişinde iskontoları vs. hesaplatmayamı çalışıyorsunuz?