Userformda KDV hesaplama problemi

[byfika]

Merhabalar,
Userformdan ilk veri girişinde hesaplamalarda herhangi problem yok. Fakat bul değiştir yapıldığında KDV oranı değiştirildiyse, hesaplanan KDV aynı kalmakta ama genel toplam sonradan seçilen orana göre olmakta. Örnekte daha açık şekilde açıklama mevcuttur. BUL DEĞİŞTİRDE veri güncellemesi yapmamaktadır. Bilgileriniz için teşekkürler.

 

[htsumer]

Merhabalar,
Userformdan ilk veri girişinde hesaplamalarda herhangi problem yok. Fakat bul değiştir yapıldığında KDV oranı değiştirildiyse, hesaplanan KDV aynı kalmakta ama genel toplam sonradan seçilen orana göre olmakta. Örnekte daha açık şekilde açıklama mevcuttur. BUL DEĞİŞTİRDE veri güncellemesi yapmamaktadır. Bilgileriniz için teşekkürler.

Private Sub CommandButton1_Click()

If Label26.Caption = "" Then
MsgBox "Önce Kayıt Bul butonunu kullannınız"
Else
ass = Label26.Caption * 1
Cells(ass, 2) = TextBox1
Cells(ass, 3) = TextBox2
Cells(ass, 4) = TextBox12
Cells(ass, 5) = TextBox3
Cells(ass, 6) = TextBox4
Cells(ass, 7) = TextBox5
Cells(ass, 8) = TextBox6

Cells(ass, 9) = ComboBox13 'combobox13 ü ben deneme amacıyla girdim
Cells(ass, 10) = ComboBox14 'combobox13 ü ben deneme amacıyla girdim
Cells(ass, 15) = ComboBox15 'combobox13 ü ben deneme amacıyla girdim

Cells(ass, 12) = TextBox7
Cells(ass, 13) = TextBox8
Cells(ass, 14) = TextBox9
Cells(ass, 15) = TextBox10
Cells(ass, 16) = TextBox11


Label26.Caption = ""
[B][COLOR="Red"]TextBox10.Value = Format(ComboBox15 * TextBox9 / 100, "#,##0.00")[/COLOR][/B]

MsgBox "Kayıt Değiştirildi."
End If
End Sub

 

[htsumer]

Değiştir/Kaydette mükerrer kayıt açıyor kodları düzenlemeniz gerek.

 

[htsumer]

Şöyle yaparsanız daha iyi olur.

Private Sub CommandButton1_Click()

If Label26.Caption = "" Then
MsgBox "Önce Kayıt Bul butonunu kullannınız"
Else
ass = Label26.Caption * 1
Cells(ass, 2) = TextBox1
Cells(ass, 3) = TextBox2
Cells(ass, 4) = TextBox12
Cells(ass, 5) = TextBox3
Cells(ass, 6) = TextBox4
Cells(ass, 7) = TextBox5
Cells(ass, 8) = TextBox6

Cells(ass, 9) = ComboBox13 'combobox13 ü ben deneme amacıyla girdim
Cells(ass, 10) = ComboBox14 'combobox13 ü ben deneme amacıyla girdim
Cells(ass, 15) = ComboBox15 'combobox13 ü ben deneme amacıyla girdim

Cells(ass, 12) = TextBox7
Cells(ass, 13) = TextBox8
Cells(ass, 14) = TextBox9
Cells(ass, 15) = TextBox10
Cells(ass, 16) = TextBox11


Label26.Caption = ""
TextBox10.Value = Format(ComboBox15 * TextBox9 / 100, "#,##0.00")

MsgBox "Kayıt Değiştirildi."
[B][COLOR="Red"]CommandButton2.Enabled = False[/COLOR][/B]
End If
End Sub

Private Sub CommandButton3_Click()
[B][COLOR="Red"]CommandButton2.Enabled = True[/COLOR][/B]
Unload Me
UFBul.Show

 

[Ömer BARAN]

Merhaba.

Daha önce açtığınız aşağıdaki konu sayfasında (2 numaralı cevap)
Combobox15 için önerdiğim kodları Userform kod bölümüne uygularsanız KDV oran değişikliği ile ilgili istediğiniz olur.

Userforma Giriş Problemi


Ayrıca;
►UserFormdan sayfaya veri kaydederken;
-- Tarih TextBoxunu Cells(.....)=CDate(TextBox...)
-- Sayısal değer olan Combobox veya TextBoxlar için de Cells(.....)=1*Combobox...
gibi bir kod satırı ile aktarmalısınız.
Çünkü mevcut haliyle verilerin sayfadaki formatları sayı veya tarih değil METİN oluyor.
► Sayfadan userforma veri alırken;
sayıları ve tarihi TextBox...=Format(Cells(....),"........") gibi biçimlendirme yaparak almalısınız.
.

 

[byfika]

Teşekkürler

Sayın Ömer BARAN bey, Çok teşekkürler, daha önce gönderdiğiniz kodları girdiğimde Bul yaptığımda userforma geri yükleme yapmıyordu (muhtemelen ben yanlış bir işlem yaptım herhalde). Ama kodlar çalışıyordu. Fakat bul geri yüklemesini geç fark ettim. Bugün gönderdiğiniz kodları forma girip kontrol yaptığımda kodlar bir işlemin dışında problemsiz çalışmakta. Ama KDV oranını Değiştir yaptığımda değiştirmiyor diğer verileri değiştiriyor.
Özür dileyerek bir şey daha sormak istiyorum. Textboxı (örnek tutardaki kısım gibi) textbox özelliklerinden Enabled'ı true yapmakla manuel veri girişine kapatıyorum. Bu şekilde yapılabilinir mi? doğru bir işlem mi?
Elinize bilginize sağlık Teşekkürler.
Saygılarımla

 

[byfika]

Hata

Sayın Ömer BARAN bey, önceki işlemde bul işlemimin çalışmamasını buldum.
Eğer UserForm_Activate kodunu silip sadece UserForm_Initialize girersem bul çalışmıyor. Her ikisi olduğunda hiç bir problem yok.

 

[Ömer BARAN]

Tekrar merhaba.
Sorun kalmadı değil mi?

 

[byfika]

Hata

Ömer bey, sadece bir yerde sorun var, bul değiştir yaptığımda KDV oranını değiştirmeme rağmen sadece oranı değiştirmiyor fakat hesaplamaları doğru yapıyor.

 

[Ömer BARAN]

Tekrar merhaba.

Belge ekte.
.

 

[byfika]

Teşekkür

Merhabalar Ömer bey, hakkınızı ödeyemem sizin gibi üstadların kodlarını inceleyerek çok şeyler öğreneceğim. Çok teşekkürler Saygılarımla

 

[Ömer BARAN]

.
Estağfurullah, kolay gelsin.
.