VB 初心者です

質問

テキストボックスがあって、そこに何も入力されてなかったらボタンを押したときエラーになるコードを教えてください。

回答No.1

housyasei-usagi · ベストアンサー

テキストボックスがText1の名前として，ボタンのコードに

if text1="" then msgbox "エラー",・・・（以下省略）

では，駄目ですか？

お礼

二重のif文にしたら実行できました。ありがとうございました。

補足

条件が2～50までの整数のみなので、
If text1.text >= 51 or text1.text1.text <= 1
or text1.text="" then エラー
end if

としてもtext1.text=""の部分がエラーでした。

回答No.2

papayuka

VBは持ってないけど、、(^-^)

If Text1.Value >= 51 Or Text1.Value <= 1 Or _
　 Text1.Value = "" Then
　　　MsgBox "エラー"
End If

とか

Select Case Text1.Value
Case 2 To 50
　'処理
Case Else
　MsgBox "エラー"
End Select

とかではどうでしょう？

お礼

ご協力ありがとうございました。