我想判斷 combobox 有無選擇值 如果沒有選 則出現 msgbox 警告
Private Sub comboitem_Click()
Select Case comboitem.ListIndex
Case 0
stresult1 = "熱水瓶"
Case 1
stresult1 = "吹風機"
Case 2
stresult1 = "煙灰缸"
Case 3
stresult1 = "茶杯"
Case Else
stresult1 = "無"
End Select
End Sub
If (stresult1 = "無") Then
MsgBox "無選擇物品", vbQuestion, "AWS"
End If
可是 他不會出現警告的 msgbox 說
請教一下各位 我有那裡寫錯了說
Private Sub comboitem_Click()
Select Case comboitem.ListIndex
Case 0
stresult1 = "熱水瓶"
Case 1
stresult1 = "吹風機"
Case 2
stresult1 = "煙灰缸"
Case 3
stresult1 = "茶杯"
Case Else
stresult1 = "無"
End Select
End Sub
If (stresult1 = "無") Then
MsgBox "無選擇物品", vbQuestion, "AWS"
End If
可是 他不會出現警告的 msgbox 說
請教一下各位 我有那裡寫錯了說
文章標籤
全站熱搜
:::在form裡面放入一個combo1和一個按鈕,程式如下: Private Sub Command1_Click() If Combo1.Text = "" Then MsgBox "no" Else MsgBox Combo1.Text End If End Sub
如果你是怕他不選物品就存檔的話 你就給個預設值 如果你又怕他自已在cbo上面打字的話 就把style設成2-單純下拉式 這樣就不用寫code了 參考一下吧 因為cbo的click事件好像只會在使用者選了他裡面有的item才會觸發所以你的msgbox才會出不來
change是一個不錯的用法 可以試試