vba内のテーブルからリストボックスを作成する

Question

私は、useridの検索条件があり、useridを持つ従業員名が単一のテーブルから来るリストボックスコントロールに表示されるという点で、従業員データベースのvbaフォームを開発しています私は検索ボックス（例：ユーザーID）として機能し、テキストボックスの値に応じてテーブルから値を持つリストボックスを移入する必要があり

この

Answer 1

を行うにはどのように私を助けてくださいあなたは、検索フィールドなどのデータ型のようないくつかのものに依存するので、あなたは質問するのが難しいです。この答えは、これらのポイント...

最初に、検索値のフォームとそれに応じてフィルタを検索する検索条件でリストボックスを作成する必要があります。

これを行うには、リストボックスのRowSourceプロパティを設定します。ここではそのフィルタ値のため、フォーム上のテキストボックスを探し、リストボックスのための例の値集合ソースが...

SELECT tblAgencies.AgencyID, tblAgencies.OrganizationName 
FROM tblAgencies 
WHERE (((tblAgencies.OrganizationName) 
      Like "*" & nz([Forms]![frmMainMenu2]![txtSearchAgencies],"") & "*")) 
ORDER BY tblAgencies.OrganizationName; 

で重要な部分は、同様に...ラインです。それについてのいくつかのことは...クエリがいくつかの基準のためにフォームを見ていることに注目してください。クエリの[Forms]！[frmMainMenu2]！[txtSearchAgencies]部分に表示されます。 frmMainMenu2には、txtSearchAgenciesという検索テキストボックスがあります。

NZ関数を使用して、そのテキストボックスに表示されているピクチャが少なくとも空の文字列を返すことに注意してください。最後に、ユーザーが部分文字列を入力できるように両端にワイルドカードを使用してLike演算子を使用することに注意してください。

最後に、検索ボックスの隣には、フィルタ/検索を実行するコマンドボタンがあります。それが必要なのは、このようなリストボックスをREQUERYにすることだけです...

Me.lstAgencies.Requery。

また、入力時にフィルタリングするOnChangeイベントでRequeryを試すこともできます。しかし、クエリが遅い場合、これはうまく動作しない可能性があります。

セス

Answer 2

はあなたがフィールドのユーザーID、従業員を持つテーブルTABLE1を持っているとしましょう。 コンボボックス（名前はboxid）とテキストボックス（名前はEdtEmployee）を持つフォームを作成する必要があります。 が

SELECT table1.userid FROM table1 WHERE employee like EdtEmployee & "*"; 

のようにコンボボックスの値集合ソース値を定義します。そして、私は願っています。この

Private Sub EdtEmployee_LostFocus() 
BoxId.Requery 
End Sub 

のようにテキストボックスのLostFocusイベントを定義し、これは私がMIKに同意します

Answer 3

のために動作します。 私はNeberが使用したLostFocusの代わりにAfterUpdateイベントを使用します。