1
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

4

1 に答える 1

4

MS Access では、ADO を使用している場合やオプションで ANSI 標準を変更していない限り、ワイルドカードは % ではなく * です。

"SELECT [Product Code],[Stock Level],[Description] " _
& "FROM [products/stock] " _
& "WHERE [Product Code] LIKE " & "'*" & Me.Text46.Value & "*';"
于 2012-09-27T12:26:16.977 に答える