• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

taksitli satış formulünde manuel giriş

sayın fedeal bey

yapmış olduğunuz çalışma benim birazdaha ufkumu açmış oldu

birazda peşine düşüşüm ve sık sorular soruşum bundandır

yapılan çalışmada sayfaya aktarımda sorun yok
textlerde değişikliğe gidilince hata veriyor
eğer bu hatayı düzenlersek çok işime yarayacak
şayet ileride yine hata verecekse üzerinde çalışmada başka yollar aramalıyım
dediğim gibi yapacağım çalışmayı işyerimde kullanacağım hatalara yer olmamaması gerekiyor

sizde ricam bir ilgilenseniz çok makbule geçer
saygılar
 
hatayı buldum,

For t = 4 To ComboBox1.Text + 3
Controls("textbox" & t).Enabled = True
Next

comboboxta 4 taksit seçtik diyelim textbox 4.5.6.7 'i seçilebilir yapıyoruz. 7. girdikmi çıkışında hesap kodu çalışıyor hesap koduda

F = TextBox16.Text
c = 0
For s = F To 4 Step -1
c = c + Controls("textbox" & s).Value
Next
taksit = (CDbl(TextBox1.Text) - CDbl(TextBox2.Text) - c) / (CDbl(ComboBox1.Text) - (F - 3))
For D = F + 1 To ComboBox1.Text + 3
Controls("textbox" & D).Value = taksit
Next
yani 4 textboxu toplayı toplam rakamdan çıkarıyoruz sonuç 0 sıfırıda bir sayıya bölünce hata

ne yapmalıyız
For t = 4 To ComboBox1.Text + 2
Controls("textbox" & t).Enabled = True
Next
dosya ekte deneyin,
 

Ekli dosyalar

sayın fedeal bey teşekkürler

1. hatadaki sorun tamam

2. sorun ise şu

farzedelim

tutar 1000 tl
peşinat 100 tl

bölü 3 taksit
aylık miktar
300tl
300tl
300tl

texten rakamları değiştirdim

1.300 ü 200 yaptım
2. 300 ü 200 yaptım
3. 300 ü 200 yaptım

tabloya göre 300 tl kayıp var kaodlar hata verir veriyoda
bu kayıp olana çözüm olarak ne yaparım

ya taksit miktarı comboda otomatik artacak
yada mesaj gibi olabilir

bu hatayıda çözersek sorun kalmıyor galiba

saygılar
 
sizin yapmak isteginiz taksidi arttırmakmı uyarı mesajı verip düzeltmekmi?
 
sayın fedeal bey hata birazda şöyle oluşuyor

dediğim rakamlara bölümde ilk işlemde kaça bölümse son rakamlı text enabled oluyor sorun olmuyor
sayfaya aktarmadan sonra bir iki işlem yapılırsa textlerdeki enabled kalkıyor ve hata

saygılar
 
tutar 1000 tl
peşinat 100 tl

bölü 3 taksit
aylık miktar
300tl
300tl
300tl

texten rakamları değiştirdim

1.300 ü 200 yaptım
2. 300 ü 200 yaptım
3. 300 ü 200 yaptım
şimdiki çalışmaya göre bu durumda kırmızı satır seçilemiyecek dolayısıyla 3.taksit olarak 500 görünecek bu durumda ya taksit sayısı arttırılacak yada 1. taksit 200 2.taksit 200 ödemek istiyorsa ve 3 taksit ödemek istiyorsa 3. taksit olarak 500 ödeyecek bunda uyarı verecek bir durum yok bence hata vermiyecektir.
 
evet haklısınız sayın fedeal bey anlattığınıza göre hata çıkmamalı
fakat tutar 1000 lira yazdık peşinat 100 tl yazdık taksit comboda klavyenin yukarı ve aşağı tuşları ile 1 den 12 ye kadar çıkın 12 taksitten sonra taksitlaeri azaltın

textlerin Enabled = True olduğunu göreceksiniz

bu durumda textlere maus ile müdahalede bile hata veriyor

anlatmak istediğim bu

enabled yerine visible kullanılsa olurmu
saygılar
 
Private Sub ComboBox1_Change()
For t = 4 To 15
Controls("textbox" & t).Enabled = False
Next

If TextBox1.Text = "" Then
MsgBox "tutar giriniz..."
Exit Sub
End If
If TextBox2.Text = "" Then
MsgBox "peşinat giriniz en az 0 tl olmalı..."
Exit Sub
End If
Genişletmek için tıkla ...

comboboxun change olayının başına kırmızı satırı ekleyin ister visible yapın ister enabled bahsettiginiz problem olacaktır.her combobox değişiminde hepsini kitleyin sonrada kod açıyor zaten.
 
teşekkürler sizi biraz yordum sayın fedeal bey kusura bakmayın

her şey için teşekkürler saygılar
 
ricaederim vakimiz müsade ettigince bilgimiz yettigince herzaman, saygılar.
 
type mismatch hatası

sayın hocam sizinle yaptığımız taksitli satış formunda hata oluştu nette ve sitede aradım taradım sonuç bulamadım bakarsanız sevinirim


Sub liste()
ListBox1.Clear
ListBox1.AddItem "TOPLAM TUTAR : " & TextBox1.Text & " TL"
ListBox1.AddItem ""
ListBox1.AddItem "PEŞİNAT : " & TextBox2.Text & " TL"
ListBox1.AddItem ""
ListBox1.AddItem "----------------------------ÖDEME PLANI---------------------------------"
ListBox1.AddItem ""

For k = 1 To ComboBox1.Text
ListBox1.AddItem k & ". TAKSİT : " & Controls("textbox" & k + 3).Value & " TL TAHSİL TARİHİ : " & CDate(TextBox3.Text) + (k * 30)
Next
For r = 20 To 20 + ComboBox1.ListIndex
k = k + 30
Controls("textbox" & r).Value = Format((k + (Date - 1)), "d.mm.yyyy")
Next
End Sub
 

Ekli dosyalar

Son düzenleme:
Visual basic sayfasında tolls-references penceresini açın missing ile başlayan seçil kutulardaki onayı kaldırın.
iyi çalışmalar.
 
slm bankaların taksitli satışlardaki komisyon kesintilerinin takibini excel de nasıl yapılabiliriz böyle bir tablo hazırlamış olan arkadaşların ilgisine ihityacım var şimdiden teşekkürler
hayırlı ramazanlar.....
 
fedeal' Alıntı:
Visual basic sayfasında tolls-references penceresini açın missing ile başlayan seçil kutulardaki onayı kaldırın.
iyi çalışmalar.
Genişletmek için tıkla ...

hayırlı akşamlar

sayın WEP TR sitesindeki uzman arkadaşlar

sayın fedeal beyin demiş olduğu tolls-references kutucuğunda işaretli missing

isimli bir işaret yok missinglere işaret bile koydum fakat sorun yine devam

ediyor bunun başka bir yolu yokmu rica ediyorum lütfen yardımcı olursanız

sevinirim

saygılar
 
Sizin dosyayı her açtıgımda aynı problem oluyor ve missing kutusundaki işareti iptal edince bende düzeliyor.ekteki dosyada değişkenleri tanımlayarak yaptım inceleyin sizde hata veriyormu? bende sorunsuz çalışıyor.
 

Ekli dosyalar

sayın fedeal bey sizin pc xp ise sorun çıkmaması lazım

benim pc wista olduğundanmıdır ne düzeltemiyorum missing kelimesi ile başlayan referansı

xp de görüp düzenliyorum ama wistada düzelmiyor missing diye bir kelime de yok referans

kutusunda

bu referanslar olmadan vba çalışmazmı diğer program dillerin dede böylemi acaba

bu referans işi iyice vba dan soğuttu beni yahu


sayın fedeal bey ilginize teşekkürler

saygılar
 
fedeal' Alıntı:
Sizin dosyayı her açtıgımda aynı problem oluyor ve missing kutusundaki işareti iptal edince bende düzeliyor.ekteki dosyada değişkenleri tanımlayarak yaptım inceleyin sizde hata veriyormu? bende sorunsuz çalışıyor.
Genişletmek için tıkla ...

Evet bendede hatasız çalıştı.:)
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst