Hata Mesaj Kutusu

[servtd]

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.

 

[Ali]

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 ComboBox1 = "Sektör Kredisi" And ComboBox1 = "Sanayi Kredisi" yazmışsınız burayı anlamadım :düsün:

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.

 

[isakarakus]

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]

 

[Korhan Ayhan]

Selamlar,

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

 

[algil]

Bir başka çözümde benden. Sanayi kredisi seçildiğinde Marj Oranı ve textbox9 inaktif oluyor. Dolayısıyla giriş yapılmasına izin vermiyor.

 

[algil]

Düzeltme:

Firma kredisi seçildiğinde Marj Oranı ve textbox9 aktif oluyor , diğer hallerde inaktif. Dolayısıyla giriş yapılmasına izin vermiyor.