[Çözüldü]  MsgBox 2 defa gösteriyor

Mesaj Kutusu. Programcıların olmazsa olmazlarından.

MsgBox 2 defa gösteriyor

İleti#1)  sunaycakirr » 04 Oca 2019 10:19

Merhaba
Aşağıda yazdığım formülde ilgili Textbox boş olduğunda MsgBox ile uyarı verdiriyorum ama ilk uyarıya tamam dedikten sonra yine uyarı veriyor. Nerede hata yapıyorum.
Kod: Tümünü seç
Private Sub Kalem1_Miktar_Change()
If TextBox_BirimFiyat = "" Then
On Error GoTo Bitir

Bitir: MsgBox "Lütfen önce KDV Dahil  /  KDV Hariç fiyat belirleyiniz!!", vbCritical
Kalem1_Miktar = ""
Exit Sub
End If

If Kalem1_Miktar = "" Then
Kalem1_Fiyat = ""
Else
Kalem1_Fiyat = Replace(Kalem1_Miktar * TextBox_BirimFiyat, ".", ",")
End If

Kalem1_Fiyat = Format(Kalem1_Fiyat, "0.00")
End Sub
Kullanıcı avatarı
sunaycakirr
Yeni Başlamış
 
Kayıt: 02 Kas 2018 10:45
Meslek: Gümrük Müşavir Yardımcısı
Yaş: 29
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: EDİRNE

Cevap: MsgBox 2 defa gösteriyor

İleti#2)  sunaycakirr » 04 Oca 2019 11:27

Sorunu aşağıdaki şekilde çözdüm.
Kod: Tümünü seç
Private Sub Kalem1_Miktar_Change()

If TextBox_BirimFiyat = "" Then
On Error GoTo Bitir
If Kalem1_Miktar = "" Then Exit Sub
Bitir: MsgBox "Lütfen önce KDV Dahil  /  KDV Hariç fiyat belirleyiniz!!", vbCritical
Kalem1_Miktar = ""
Exit Sub
End If

If Kalem1_Miktar = "" Then
Kalem1_Fiyat = ""
Else
Kalem1_Fiyat = Replace(Kalem1_Miktar * TextBox_BirimFiyat, ".", ",")
End If

Kalem1_Fiyat = Format(Kalem1_Fiyat, "0.00")
End Sub
Kullanıcı avatarı
sunaycakirr
Yeni Başlamış
 
Kayıt: 02 Kas 2018 10:45
Meslek: Gümrük Müşavir Yardımcısı
Yaş: 29
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: EDİRNE


Forum MsgBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe