Skip to main content

AccessTr.neT


fonksiyon

sadikkavakli
sadikkavakli
9
3160

fonksiyon

Çözüldü #1
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
.rar deneme.rar (Dosya Boyutu: 27,11 KB | İndirme Sayısı: 1)
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
Çözüldü #2
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
Cevapla
Çözüldü #3
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.
.rar deneme.rar (Dosya Boyutu: 43,43 KB | İndirme Sayısı: 7)
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
Çözüldü #4
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.
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla
Çözüldü #5
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
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla
Çözüldü #6
Ne için derken yanlış anlaşıldım. Bir ürün siparişinde iskontoları vs. hesaplatmayamı çalışıyorsunuz?
AccessTr.Net teknik konular içeren bir sitedir. Bu tip sitelerde en iyi şekilde yardım alabilmeniz için Site Kurallarını mutlaka okumanız ve buna göre hareket etmeniz lazım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task