Private Sub Text46_AfterUpdate()
Dim strSource2 As String
strSource2 = "SELECT [Product Code],[Stock Level],[Description] FROM [products/stock] WHERE [Product Code] LIKE " & "'%" & Me.Text46.Value & "%';"
Me.listSource.RowSource = strSource2
Me.listSource = vbNullString
End Sub
何らかの方法で Text46 の値と一致する製品コードを持つすべての製品をデータベースで検索することになっていますが、実際には機能せず、理由もわかりません。listSource は、情報を表示するリストボックスです。
前もってありがとう、ボブP