MsgBox Hakkında

[alpay1]

Herkeze iyi çalışmalar diliyorum.
Private Sub TextBox10_Change()
If TextBox6.Value = "" Then
MsgBox ("YALNIZ Ã?DEME KAYDI YAPACAKSANIZ Ã?DEME BUTONUNA TIKLAYINIZ.")
Exit Sub
End If
End Sub

MsgBox bu uyarıyı yaptıktan sonra TextBox10'a yazılmış rakam silinsin istiyorum.Yardımcı olursanız sevinirim.
Saygılar.

 

[selections]

Private Sub TextBox10_Change() 
If TextBox6.Value = "" Then 
MsgBox ("YALNIZ Ã?DEME KAYDI YAPACAKSANIZ Ã?DEME BUTONUNA TIKLAYINIZ.") 
textbox10=""
Exit Sub 
End If 
End Sub

 

[veyselemre]

MsgBox ("YALNIZ Ã?DEME KAYDI YAPACAKSANIZ Ã?DEME BUTONUNA TIKLAYINIZ.")
TextBox10=0
Exit Sub

 

[danersin]

selections,
Sorunuzun cevabı ancak ne maksatla yaptığınızı anlamadım. zaten boş ise bu mesajı versin diyorsunuz ve boş olan bu textboxı mesajdan sonra boşaltsın diyorsunuz.



@selections bir an banada öyle geldi ama tb6 boş ise tb10'u boşaltmak istiyor.

 

[selections]

@danersin,
Bende sonradan fark ettim ve mesajımı sildim, dikkatiniz için teşekkür ederim.

 

[alpay1]

Private Sub TextBox10_Change()
If TextBox6.Value = "" Then
MsgBox ("YALNIZ Ã?DEME KAYDI YAPACAKSANIZ Ã?DEME BUTONUNA TIKLAYINIZ.")
Exit Sub
End If
End Sub
Bu kodu Private Sub TextBox10_Change() olayına alınca ancak bir rakam yazdıktan sonra MsgBox açılıyor.Exit yapınca rakam orada yazılı kalıyor.Eğer kullanıcı Ã?deme Butonuna basmazda aynı Form üzerinden kayıt yapmaya devam ederse o rakamda ödeme sütununa farkedeilmeden yazılabiliyor.
Az bir olasılıkta olsa böyle bir hatayı önlemek için bu kodu yamayı düşündüm.
Yalnız selections arkadaşımın yazdığı kodu denemiştim.Hata verdi.Birdaha deneyeceğim.
İlginize teşekkürler.

 

[danersin]

Yukarıdaki kodu
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
altında yazıp deneyin.

 

[selections]

Hata vermesi doğal olabilir çünkü kod textbox10 un değişmesi ile tetikleniyor ve siz bu kod ile tekrar tekrar tetikleyerek anlamsız bir döngü oluşturuyorsunuz.

 

[selections]

Sn. danersin,
sanırım yine aynı anda yazdık. yazınızı mesajımı gönderdikten sonra gördüm.

 

[alpay1]

Sayın selections beyin kodlarını denedim.Ben de daha önce aynı şekilde fakat
selections beyin küçük harflerle yazdığı textbox10="" nü TextBox10="" şeklinde yazmıştım, çalıştı fakat MsgBox ta EVET tıkladıktan sonra MsgBox kapanıp tekrar açılıyor,birdaha tıkladığınızda kapanıtordu.Aynı olay yine oldu.Ama sonuçta bu şekilde olacak herhalde.

 

[danersin]

@selections bir soruya birden fazla cevap ve yorumun hiçbir sakıncası yok hatta faydası var, ben çözüm siz de hatanın sebebini yazmış oldunuz.

alpay1 exit'te yazarsanız kodu düzgün çalışması gerekir.
textbox yada TEXTBOX vba editörü kendi anahatra kelimeleri bildiği hale çevirir.

 

[alpay1]

Mesajlar aynı anda yazılıyor herhalde Sayın danersin beyin söylediği şekilde yaptım sorun çözüldü.Çok teşekkür ederim.