Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
22/11/2013 23:37
Konu Sahibi
sadikkavakli
Yorumlar
9
Okunma
1655
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

sadikkavakli


Kullanici Avatari
Aktif Üye (Özel)
S.... K....
85
11/06/2010
0
Niğde
Ofis 2013 64 Bit
20/09/2017,19:25
Çözüldü 
aşağıdaki kodlar Onur_Can dan alıntı yapılarak çalışma yapılmıştır nerede hata yapmaktayım.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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


Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 27,11 KB / İndirme Sayısı: 1)
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla

C*e*l*o*y*c*e

Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Bugün,17:24
Çözüldü 
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

sadikkavakli


Kullanici Avatari
Aktif Üye (Özel)
S.... K....
85
11/06/2010
0
Niğde
Ofis 2013 64 Bit
20/09/2017,19:25
Çözüldü 
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.


Ek Dosyalar
.rar   deneme.rar (Dosya Boyutu: 43,43 KB / İndirme Sayısı: 7)
sadikkavakli, 11-06-2010 tarihinden beri AccessTr.neT Üyesidir.
Cevapla

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
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

sadikkavakli


Kullanici Avatari
Aktif Üye (Özel)
S.... K....
85
11/06/2010
0
Niğde
Ofis 2013 64 Bit
20/09/2017,19:25
Çözüldü 
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

alpeki99

Düşünmek en zor iştir...
Kullanici Avatari
Uzman
O....
6.090
29/10/2008
Bursa
Yazılım Geliştirici
Ofis 2010 32 Bit
31/08/2017,19:08
Çözüldü 
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


Konuyu Okuyanlar: 1 Ziyaretçi

[-]
Etiketler
fonksiyon


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Fonksiyon Tuşları (F1) emir ustaoğlu 11 2.078 29/08/2015, 22:43 emir ustaoğlu
Çözüldü Fonksiyon Tuşlarını Kullanma mesutyagmur 6 2.089 30/10/2013, 10:54 mesutyagmur
Çözüldü Access Fonksiyon komutları Hakkında ikosarer 3 2.257 01/04/2013, 09:36 ikosarer
Çözüldü [FONKSiYON] Eklenen Resmi Klasöre Taşıması sudamlasi79 19 5.265 30/01/2012, 15:51 ozanakkaya
Çözüldü Üç değişkenli metin kutusu için alternatif fonksiyon. Mehmet_Akif 8 3.855 26/01/2011, 23:32 Mehmet_Akif

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.