0

サブフォーム データシートが埋め込まれた Microsoft Access (2010) フォームがあります。私の目標は、データシートの各列の上にバインドされていないテキスト ボックスを配置して、ユーザーがテキストを入力してその列をフィルター処理できるようにすることです。

データシートの列の 1 つである VENDOR には、tblVendor テーブルに基づくベンダー名のリストが表示されます。これは、ユーザーには見えない VendorID 列によってデータシートにバインドされています。

次のコードを使用していますが、データシートの VendorID 列に対してのみクエリを実行しているようです。テキストについて質問したいと思います。たとえば、ユーザーに「21」(Microsoft の VendorID) ではなく、「Microsoft」と入力してもらいます。

Private Sub TxtVendorSearch_Change()

Dim str1 As String

str1 = "[VendorID] LIKE '*" & Me.TxtVendorSearch & "*'"


Me!subOrderDS1.Form.Filter = str1
Me!subOrderDS1.Form.FilterOn = True

サブ終了

4

1 に答える 1

0

まだ行っていない場合は、サブフォームのクエリに[ベンダー]-名前を（必要に応じて結合して）含めるだけです。[Vendor] LIKE ...その後、の代わりにクエリを実行できます[VendorID]。テキストボックスの値は表示されているテキストとすぐには同期されないため、
リアルタイムにするには、も使用する必要があります。Me.TxtVendorSearch.Text

于 2012-10-26T22:15:20.253 に答える