標題: [發問] 如何讓MsgBox不要出現兩次 [打印本頁]

---

作者: av8d    時間: 2013-11-25 16:27     標題: 如何讓MsgBox不要出現兩次

[attach]16868[/attach]

打開資料後，按下登打按鈕，輸入年/月後

月請輸入13以上

因為內有除錯判斷~大於12會跳出錯誤視窗
並清除 TextBox2~

測試後發現~他會跳窗兩次~請問是什麼原因?
是因為會判斷兩次 TextBox2是否>12嗎?
我該如何修改呢？謝謝各位老師！

---

作者: GBKEE    時間: 2013-11-25 18:53

回復 1# av8d

1. Private Sub TextBox2_Change()
   
2.     If TextBox2 = "" Then Exit Sub
   
3.     If TextBox2 > 12 Or TextBox2 <= 0 Then
   
4.         MsgBox "月份輸入錯誤"
   
5.         TextBox2 = ""     '會再啟動 TextBox2_Change 這程序
   
6.     Else
   
7.         If Len(TextBox2) = 2 Then
   
8.             TextBox3.SetFocus
   
9.         End If
   
10.     End If
    
11. End Sub

複製代碼

---

作者: av8d    時間: 2013-11-26 08:49

回復 2# GBKEE


    感謝老師解答~受益良多~

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)