messageboxについて

解決

超初心者 2008-08-05 04:53:27 No: 140176

はじめまして！！
今VBをやり始めたんですが5つあるコンボボックスに１から5までの値を選べるようにしています。
全て空欄というエラーと数字の重複したときのエラーをMessageBoxで出したいと思ってるんですが実際今の知識だとかなりの長文になってしまし見づらくなってしまします。

仮に1つのコンボボックスであれば
if me.combobox1.text=""
messagebox.show("未入力です")
end if

という形で出来ると思うのですが５つともなると・・・・・・。
よろしくお願いします。

横須賀の熊 2008-08-05 18:28:18 No: 140177

コンボボックスを、
コントロール配列にすればよいかと思います。

横須賀の熊 2008-08-05 18:29:51 No: 140178

Dim nCnt as integer

For nCnt = 0 to 4
  if me.combobox1(nCnt).text=""
    messagebox.show("未入力です")
  end if
Next nCnt

と出来ます。

超初心者 2008-08-07 00:19:36 No: 140179

横須賀の熊さんありがとうございます。
おかげで上手くいきました。
またよろしくお願いします。