+- 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ığı: fonksiyon (/konu-fonksiyon.html)
Sayfalar:
1
2
fonksiyon - sadikkavakli - 22/11/2013
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
Cvp: fonksiyon - C*e*l*o*y*c*e - 23/11/2013
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
Cvp: fonksiyon - sadikkavakli - 23/11/2013
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.
Cvp: fonksiyon - alpeki99 - 23/11/2013
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.
Cvp: fonksiyon - sadikkavakli - 23/11/2013
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
Cvp: fonksiyon - alpeki99 - 24/11/2013
Ne için derken yanlış anlaşıldım. Bir ürün siparişinde iskontoları vs. hesaplatmayamı çalışıyorsunuz?