VB6.0用掲示板の過去のログ(No.2)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [管理用]

投稿日: 2006/08/10(Thu) 11:30
投稿者シグ
Eメール
URL
タイトルDataComboとTextBoxの中身のチェック

ちょっとわからなくなってしまいまして、宜しくお願い致します。

DataComboコントロールが10個ありましてそれにはAccess2000で作った
レコードセット(商品リスト)が連結されています。
そしてそれのとなりに選択された商品の数量を入れるTextBoxが10個ある状態です。

もしDataComboの商品が選択され数量が入力されていなかった場合は

If DataCombo1.Text= "(何かの商品)" Then
  If Text1.Text="" Then
  MsgBox "数量を入力して下さい"
End If

となるわけですが、この(何かの商品)の部分なんですが
DataComboのTextプロパティ部分に何か商品がはいってるというのは
コードではどう書けば言いのでしょうか?
DataComboのリストから選択されるので何が入るのかわからないもので…。

それと一番上のDataComboつまりDataCombo1に関しては
絶対に何か商品名が入っていないとダメという設定にしたいので、コードでは

If DataCombo1.Text="" Then
MsgBox "商品名を入力して下さい"
 ElseIf DataCombo1.Text= "(何かの商品)" Then
   If Text1.Text="" Then
   MsgBox "数量を入力して下さい"
End If

となります。が、DataCombo2〜DataCombo10までは必ずしも商品が入力されるわけではないので
何も入力されていなければそのままでOKで
もし入力されていた場合は数量がきちんと入力されているか上記のように
MsgBoxにて表示させたいのですが、どうすればよいでしょうか?
一応DataComboとTextBoxはそれぞれコントロール配列にしてありまして
ループでやればいいのかな?とはおもっているのですが…
よくわからなくなってしまいましたので、お教え願えればと思います。
宜しくお願い致します。


- 関連一覧ツリー (★ をクリックするとツリー全体を一括表示します)

- 返信フォーム (この記事に返信する場合は下記フォームから投稿して下さい)

- VBレスキュー(花ちゃん) - - Web Forum -