Ekteki örnekte hata mesaj kutusu hazırladım ama "Firma Kredisi" seçili iken "Marj Oranı" TextBox'una değer giremiyorum. Formülü düzeltmede yardımcı olursanız memnun olurum. Saygılar.
On Error GoTo Hata yazdığınız kısım sizi
Hata:
MsgBox "MARJ ORANINI FİRMA KREDİSİNDE GİREBİLİRSİNİZ" yazdığınız satıra götürüyor buda textbox'a her yazdığınızda bu satıra götürüyor. O kısmı düzeltirseniz probleminiz kalmaz
Birde ne yapılacak bunu ayrıntılı yazarsanız yani Vade şu olup dönem bu olursa şunlar yapılacak gibi bir açıklama ilgilenen herkes için daha anlaşılır olur.
orjinali:
[vb:1:90dde0d899]
Private Sub TextBox9_Change()
On Error GoTo Hata
ComboBox1 = "Sektör Kredisi" And ComboBox1 = "Sanayi Kredisi"
Exit Sub
On Error Resume Next
Hata:
MsgBox "MARJ ORANINI FİRMA KREDİSİNDE GİREBİLİRSİNİZ"
Exit Sub
End Sub[/vb:1:90dde0d899]
programa devam edebilmeniz için bu hatalı kodlamayı düzeltmelisiniz..
doğru kodlama..
[vb:1:90dde0d899]Private Sub TextBox9_Change()
On Error GoTo Hata
If ComboBox1 = "Sektör Kredisi" And ComboBox1 = "Sanayi Kredisi" Then Exit Sub
Hata:
If Err > 0 Then MsgBox "MARJ ORANINI FİRMA KREDİSİNDE GİREBİLİRSİNİZ"
Exit Sub
End Sub[/vb:1:90dde0d899]
Aşağıdaki kodları formunuza ekleyin... (Change olayındaki kodlarınızıda silin.)
Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If ComboBox1.Text = "Sektör Kredisi" Or ComboBox1.Text = "Sanayi Kredisi" Then
MsgBox "MARJ ORANINI FİRMA KREDİSİNDE GİREBİLİRSİNİZ"
TextBox9.Value = Empty
Else
Exit Sub
End If
End Sub
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.