Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(Windows 10全般 : Access 2003)
コンボボックスとリストボックスを併用した検索
投稿日時: 20/04/07 23:27:36
投稿者: ねこねこ

Accessで販売実績のデータベースを作成してます。
フォームのコンボボックスで顧客名を選ぶと、
その顧客へ販売している製品がリストボックスに表示され、
リストボックスから製品を選択(複数の場合もあり)して、
「検索」ボタンを押すとクエリからデータを検索し、サブフォームに該当のデータが出るようにしたいです。
 
下記のサイトを拝見し、
書いてあったコードを自分なりに修正したところ、無事動いたのですが、
製品だけの検索になってしまいます。
 
http://www.accessclub.jp/bbs/0015/beginers6827.html
 
Private Sub フィルタ適用ボタン_Click()
 
'----( 変数宣言 )-------------------------------------------------
Dim strFilter As String 'フィルタ文字列
Dim lngX1 As Long 'リストボックスの行カウンタ
 
'-----( リストボックスの複数選択行を取得 )------------------------
strFilter = ""
For lngX1 = 0 To Me![リスト].ListCount - 1
If Me![リスト].Selected(lngX1) Then
If strFilter = "" Then
strFilter = "製品コード IN ('" & Me![リスト].Column(0, lngX1) & "'"
Else
strFilter = strFilter & ",'" & Me![リスト].Column(0, lngX1) & "'"
End If
End If
Next
 
'----( フィルタ適用 )---------------------------------------------
If strFilter <> "" Then
strFilter = strFilter & ")"
Me![販売実績サブ].Form.Filter = strFilter
Me![販売実績サブ].Form.FilterOn = True
End If
 
End Sub
 
同じ製品を違う顧客へ販売する場合もあるので、
顧客×製品で検索したいのですが、併用は可能でしょうか?
また、どのように修正したらいいでしょうか?

トピックに返信