Accessオプションボタンで検索対象切替

質問

• Accessのフォームにテキストボックスを利用した検索画面を配置し、検索対象を「テーブルから」か「クエリから」か選べるようにする方法について教えてください。
• 現在、商品情報を元データとして持つテーブルと、テーブルを参照して変更後のデータを表示するクエリがあります。この関係のデータが複数あり、それぞれのテーブルにまとめる方法も検討しています。
• Access2003を使用している環境で、オプションボタンのコントロールソースに式を設定する際につまづいています。また、同じテーブル内に元データと変更後のデータを保存しないとオプションボタンが機能しないのか疑問です。他に検索対象を切り替える方法についても教えてください。

回答No.1

山田 太郎（@f_a_007）

添付図では、CutStr()の３つめの引数=1の時はテーブル[A]からデータを抽出し、引数=2の時はクエリ[A クエリ]からデータを抽出しています。

Public Function CutStr(ByVal Text As String, _
　　　　　　　　　　　　ByVal Separator As String, _
　　　　　　　　　　　　ByVal N As Integer) As String
　　Dim strDatas() As String

　　strDatas = Split("" & Separator & Text, Separator, , 0)
　　CutStr = strDatas(N * Abs(N <= UBound(strDatas)))
End Function

お礼

折角つくったので～と少し意固地になっておりましたが、tamu1129様の回答を受け、構造を最初から考え直す事にしました。

とは言え、f_a_007様に書いていただいたコードも試してみたいと思っております。

理解できるような次元ではまだない為、少しずつ調べている最中です。
BVAが書けるようになると出来ることが広がりそうですね！

ありがとうございました。