テキストボックスの値から検索するには？

解決

稲兎 2004-10-12 14:41:30 No: 116922 IP: [192.*.*.*]

いつも参考にさせて頂いております。

フォーム上にテキストボックス・コマンドボタン・リストボックスを設置しました。
テキストボックスに文字（注文番号‥）を入力しコマンドボタンをクリックすると、リストボックス内の該当するデータを反転したいと思っているのですが…。
上手く出来ずに居ます。

良い方法がありましたらアドバイスを宜しくお願い致します。

編集削除

raki URL 2004-10-12 14:53:55 No: 116923 IP: [192.*.*.*]

どこまで出来ているのですか？

リストボックス内から該当するデータを検索できないのですか？
それとも反転できないだけですか？

編集削除

稲兎 2004-10-12 15:34:48 No: 116924 IP: [192.*.*.*]

返答ありがとうございます！

説明不足で申し訳ありません。
リストボックス内から該当するデータの検索が出来ずにいます。

リストボックスのデータはＳＱＬにてグループ化して表示しています。
宜しくお願い致します。

編集削除

raki URL 2004-10-12 16:19:52 No: 116925 IP: [192.*.*.*]

リストボックスの全データは一応以下のように
取得できますが・・・

    Dim i As Integer

    For i = 0 To List1.ListCount - 1
        Debug.Print List1.List(i)
    Next

>リストボックスのデータはＳＱＬにてグループ化して表示しています。
という一文をみると、こんな単純なことではないのでしょうか？

>ＳＱＬにてグループ化して表示
というのが実際どのような表示になるのかが
分からないのでなんとも言えませんが。

データベースからＳＱＬで取得してきて
単純に表示しているだけではないのですか？

編集削除

稲兎 2004-10-12 16:33:35 No: 116926 IP: [192.*.*.*]

返答ありがとうございます。

やりたかった事は・・・。

テキストボックス内に「A0001」と入力し、コマンドボタンをクリックすると・・
既にデータが表示されているリストボックスにて該当するデータを反転したかった
のです。

テキストボックス
［Ａ０００１］■

リストボックス
Ａ０００１ ←反転
Ａ０００２
Ｂ０００１

編集削除

raki URL 2004-10-12 16:46:30 No: 116927 IP: [192.*.*.*]

以下のようではダメでしょうか。
#『Command1』『List1』『Text1』を御自身の
#コントロール名に変更してください。

Private Sub Command1_Click()
    Dim i As Integer

    For i = 0 To List1.ListCount - 1
        If List1.List(i) = Text1.Text Then
            List1.Selected(i) = True
        End If
    Next
End Sub

編集削除

葉月 2004-10-12 16:51:57 No: 116928 IP: [192.*.*.*]

おそらく処理順序としては
１．ＤＢよりデータを取得（これがＳＱＬって言ってるもの？）
２．取得したデータをリストボックスに格納
３．テキストボックスに値を入力し、ボタンクリック！
４．一致するデータをリストボックスより探し出し、一致したら反転

としか読み取れないのですが・・・
そうするとrakiさんの回答でうまくいかないのでしょうか？
エクセルＶＢＡですが、さっくりとフォーム作って
同じことができている気がするのですが・・・

編集削除

稲兎 2004-10-12 16:57:38 No: 116929 IP: [192.*.*.*]

返答ありがとうございます！

rakiさんの回答にて無事に作成する事が出来ました。
まだまだ勉強不足ですね・・・。

大変参考になる回答を早急に対応して頂き助かりました。
本当にありがとうございました！

編集削除

稲兎 2004-10-12 16:57:39 No: 116930 IP: [192.*.*.*]

編集削除