- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：ACCESS VBA リストの規定値）
ACCESS VBA リストの規定値を設定する方法
このQ&Aのポイント
- フォームにテキストボックス（txt商品条件、txt金額条件）とリストボックス（lst結果）があり、txt商品条件を満たす物をlst結果に表示させ、lst結果に表示された中で、txt金額条件を満たす物を選択された状態にしたいのですがどうしたらいいでしょうか？
- lst結果にtxt商品条件を満たす物を表示させることはできたのですが、txt金額条件を満たす物を選択状態にする方法がわかりません。どのようにしたらいいのでしょうか？
- ACCESS VBAを使用して、フォームにテキストボックスとリストボックスを配置し、条件に応じたデータを表示させたいです。特に、txt商品条件を満たすデータをリストボックスに表示し、その中からtxt金額条件を満たすデータを選択状態にしたいです。方法を教えてください。
- R1-Z
- お礼率10% (11/104)
- その他(データベース)
- 回答数2
- ありがとう数2
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
Dim i As Integer For i = 0 To lst結果.ListCount - 1 lst結果.Selected(i) = (lst結果.ItemData(i) = txt金額条件) Next この場合、lst結果のvalue値の設定（連結列）をtxt金額条件で入力するデータと同じにしなければなりません。
その他の回答 (1)
- mantaro1
- ベストアンサー率48% (19/39)
回答No.1
Me!lst結果.RowSource="SELECT * FROM 商品" _ &"WHERE 商品グループ='" & Me!txt商品条件 _ & "' & 金額=" & Me!txt金額条件 Me!lst結果.Requery で、絞り込めると思います。 txt金額条件にデータが入っていないとエラーになるかもしれません。その場合は If Isnull(txt金額条件) or txt金額条件="" then ・ 金額が入っていない時の処理 ・ Else ・ 金額が入っている時の処理 ・ End If でOKかと。
補足
2つの条件を満たす物を絞り込むことはできるのですが、 リストに表示させるのは、2つの条件を満たす物だけではなく、 商品条件を満たす物すべてを表示させ、 その中の金額条件を満たす物を選択状態にさせて表示させたいのですが。