Access-VBA - 名前フィールドパラメータ

問題

正確な登録のために特定のフィールドの値を検索する関数を呼び出しています。 これを行うために、私は自分のテーブルの代わりにレコードIDとフィールド名を私のオフィスに渡します。

 FindLinkedString関数（文字列としてのByValテーブル、整数値としてのByVal ID、文字列としてのByValフィールド）レコードセットとしてのmydb2日曜日レコードセットとしての日曜日linkedTableCount整数セットとしてのmydb2 = CurrentDb（） linkedTableCount = 1の場合LinkedTableの場合はLinkedTable.RecordCountに！ ID = IDそれからFindLinkedString = table＆ "！"フィールド＆GoTo Fin_FindLinkedStringもしIf LinkedTable.MoveNext Next Fin_FindLinkedString：LinkedTable.Close mydb2.Close終了関数 

問題は、FindLinkedString = table＆ "！"です。 ＆Fieldは、dbで値を見つけられないため、明らかに公正なゲームです。パラメータで "Table"と "Field"を回して文字列を保存します（例： "reviews" Name "それから" Smith "と表示されることを望みます）。

溶液

これを使うことができます：

 LinkedTable.Fields（ "ID"）= IDの場合、FindLinkedString = LinkedTable.Fields（ "Name"）LinkedTable.Close mydb2.Close設定LinKedTable =なし設定mydb2 =なし終了関数LinkedTable .MoveNext終了したら '... 

しかし、もっと簡単かもしれません。

 ... LinkedTable = mydb2.OpenRecordset（ "SELECT Name from"＆Table＆ "WHERE ID ="＆ID）を設定します。FindLinkedString = LinkedTable.Fields（0）...