[三流君 ] −−＞
[ＶＢＡで楽しく ] −−＞
[バックナンバー一覧 ]Access サブフォームの明細データを検索、メインを移動
メルマガ発行内容
＜Access サブフォームの明細データを検索、メインを移動＞
どうも、三流プログラマーのＫｅｎ３です。
今回は、
読者よりもらった質問の続きを、処理してみたいと思います。
内容は、サブフォーム内のデータを検索して、
メインのデータを移動、そんな感じです。
いつものように、たいした解説、回答内容じゃないので、
暇つぶしに休み時間などに拾い読みしてください。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba107.lzh
にdb107.mdb(Access2000版)が保存されています。
/*
* １．今回のキッカケ
*/ >例としまして（本当はもっとドロドロしたデータベースなんですが、
> 違う例えで書いてみました。）
>
>親フォームが音楽のバンド名が記載されてます。
>サブフォームには、
>そのバンドのメンバーと出身県と楽器と年齢などが記載されています。
>
>そこで、親フォームには、そのバンドのメンバーの出身県が出るテキスト
>ボックスがあります。
>
>例えば・・・バンド名（BOOWY）−−−−−−−−−−親フォーム
> メンバー（氷室、布袋、松井、高橋）−−サブフォーム
> 出身県（群馬、群馬、群馬、福島）−−−サブフォーム
>
>●質問１
>
>で、このサブフォームに記載されている、出身県を親のフォームの
>任意に作成したテキストボックスの中に「群馬、福島」とだけ表示したいのです。
>
>「群馬、群馬、群馬、福島」と表示するのは、ちょっと・・・。
>群馬がだぶっているので、群馬の表示は１つとしたいのです。
>
>
>●質問２
>
>また、沢山のバンドや歌手をこのデータベースに入力します。
>そこで、「布袋」と検索すると、親フォームの「BOOWY」が表示されるようにしたい
>のです。
>
>まず親フォームのバンド名には
>「バンドID」と云う名のフィールド名の主キー（オートナンバー）がありまして
>
>それをサブフォームの中にもフィールド名で、 同じ「バンドID」という
>固有のデータで繋がっているです。
>
>こんな説明で分かってもらえるんでしょうか・・・。
>すごく不安です。
-----
２つの親子テーブルが存在して、
バンドIDでつなげた、フォーム・サブフォームが存在する。
前回、サブフォームを作成して、
出身地をまとめる処理までやりました。
http://www.ken3.org/backno/backno_vba22.html#106
詳細は、↑を見てください。
今回は、サブフォーム（明細的子データ）のバンドのメンバー名を探して、
親フォーム、バンド名（台帳的親データ）を探して、移動してみたいと思います。
/*
* ２．調べごと、下準備
*/ /*
* ３．DLookUp関数でデータを探す
*/ >●質問２
>
>また、沢山のバンドや歌手をこのデータベースに入力します。
>そこで、「布袋」と検索すると、親フォームの「BOOWY」が表示されるようにしたい
>のです。
子テーブル名：T_メンバー
の
名前が「布袋」のデータを検索して、
バンドID 長整数型（親テーブルとリンクした）
を検索したいので、
DLookUP関数を使ってみました。
Private Sub コマンド19_Click()
Dim str検索されたID As String
'メンバー名を条件にバンドIDをT_メンバーテーブルから検索する
str検索されたID = "" & DLookup("バンドID", "T_メンバー", "名前 = '布袋'")
'テスト表示
MsgBox str検索されたID
End Sub
上記、固定の条件ですが、ID番号を検索できました。
これを元にして、フォームの値を使用してみます。
Private Sub コマンド19_Click()
Dim str検索条件 As String
Dim str検索されたID As String
'フォームの値を元に検索条件を作成する
str検索条件 = "名前 = '" & Me!txt検索 & "'"
'str検索条件を条件にバンドIDをT_メンバーテーブルから検索する
str検索されたID = "" & DLookup("バンドID", "T_メンバー", str検索条件)
'結果のテスト表示
If str検索されたID = "" Then '検索できなかった?
MsgBox Me!txt検索 & "は、見つかりませんでした"
Else
MsgBox "検索されたのは" & str検索されたID & "です"
End If
End Sub
ポイントは、
^^^^^^^^^^^^
str検索条件 = "名前 = '" & Me!txt検索 & "'"
と、
名前 = 'テキストボックスの値'
の条件を作成します。
あとは、検索されたIDをチェックと表示してます。
/*
* ４．検索系のコマンド(命令)を探る
*/ Private Sub コマンド20_Click()
On Error GoTo Err_コマンド20_Click
Screen.PreviousControl.SetFocus
DoCmd.FindNext
Exit_コマンド20_Click:
Exit Sub
Err_コマンド20_Click:
MsgBox Err.Description
Resume Exit_コマンド20_Click
End Sub
F1を押して、コードを探ってみます。
Screen.PreviousControl
最後にフォーカスを与えられたコントロールへの参照
んっ、あまり関係ないような・・・
気を取り直して、
DoCmd.FindNext メソッド を同様にF1(HELP)探ると
解説
このメソッドには引数はありません。
構文 DoCmd.FindNext で直接呼び出すことができます。
FindNext メソッドは、前回実行した FindRecord メソッド、または [編集] メニュー
の [検索] をクリックすると表示される [検索と置換] ダイアログ ボックスで指定し
た抽出条件を満たす次のレコードを検索するために使用します。FindNext メソッドを
使用すると、レコードを繰り返し検索できます。たとえば、すべてのレコードの中から
特定の得意先のレコードを連続して検索できます。
なんだよ、これもハズシかよ・・・と思ったが、よく見ると、
前回実行した FindRecord メソッド？
おっ、なんかこのFindRecordって条件指定できそうな予感。
FindRecord メソッド
expression.FindRecord(FindWhat, Match, MatchCase, Search,
SearchAsFormatted, OnlyCurrentField, FindFirst)
使用例
次の例では、カレント フィールドに "山田" という名前が格納されているレコードの
うち最初のレコードを検索します。"やまだ" や "山田山" は検索されません。
DoCmd.FindRecord "山田",, True,, True
なるほどね、では、ID=2に移動する場合は、
カレントフィールドをIDにして、
DoCmd.FindRecord "2"
でいいのかなぁ。テストしてみると。
Private Sub コマンド20_Click()
DoCmd.GoToControl "バンドID" 'コントロールをIDへ移動
DoCmd.FindRecord "2" '2のデータを検索する
End Sub
ポイントは、
^^^^^^^^^^^^
DoCmd.GoToControl "バンドID"
で、カレントコントロールを移動
DoCmd.FindRecord "2"
で
バンドIDが２のデータに移動しました。
/*
* ５．組み合わせて、組み込んでみた
*/ Private Sub btn検索_Click()
Dim str検索条件 As String
Dim str検索されたID As String
'フォームの値を元に検索条件を作成する
str検索条件 = "名前 = '" & Me!txt検索 & "'"
'str検索条件を条件にバンドIDをT_メンバーテーブルから検索する
str検索されたID = "" & DLookup("バンドID", "T_メンバー", str検索条件)
'結果のテスト表示
If str検索されたID = "" Then '検索できなかった?
MsgBox Me!txt検索 & "は、見つかりませんでした"
Else
'データを移動させる
DoCmd.GoToControl "バンドID" 'コントロールをIDへ移動
DoCmd.FindRecord str検索されたID 'データを検索する
End If
End Sub
処理のポイントは、
~~~~~~~~~~~~~~~~~~
DLookUp関数で子テーブルから画面に入力された条件を指定して
バンドIDを検索する。
バンドIDが存在したら、
DoCmd.GoToControl "バンドID"でカレントコントロールを移動、
カレントコントロール(バンドID)に対して、
DoCmd.FindRecord str検索されたID
と、検索されたバンドIDを渡し、目的のデータを検索します。
まぁ、なんとか動作しました・・・
/*
* ５．終わりの挨拶
*/ http://www.ken3.org/vba/lzh/vba107.lzh
にdb107.mdb(Access2000版)が保存されています。
動作を見るのが一番早いかも。
今回は、
DLookUpでテーブルの検索、
DoCmd.FindRecord で検索したレコードへ移動
そんな組み合わせの処理でした。
実は、まだまだ、穴があって、
穴その１は、鈴木や田中、メンバー名、同じ人がいた時?複数データが見つかった時。
穴その２は、
DoCmd.GoToControl "バンドID"
と、バンドIDにコントロールを移動させているが、
オートナンバー等の時、バンドIDは非表示にしていたりする(可視=いいえ)
すると、バンドIDが見つからない(カレントコントロールに出来ない)
なんてエラーが発生する。
ページフッター
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
種類別のリンク や 広告など
Blogとリンク :[三流君の作業日記 ]/
[VBAやASPのサンプルコード ]/
広告-[通販人気商品の足跡 ]
三流君(TOP ken3.org へ戻る) ]
/ [VBA系TOPへ ]
/ [VBA系バックナンバー目次へ移動 ]
↑ウイザードのイメージ
で、自動作成されたのが下記のモジュールです。
↑エラーのイメージ
複数レコードが該当(メンバー名で同じ名前)した場合
と
親子共通のID、バンドIDを非表示で管理していた場合、
DoCmd.GoToControl DoCmd.FindRecord で検索の手が使えない。
さて、対策を取らないとね。
メンバー名が同じって、１人が複数のグループに在籍ってあるだろうし、
よくわからない、有名なシャッフルユニットとか？
あとは、データがフルネームで入っていない場合とか
あっ、データがフルネームで気が付いたけど、
テーブルにはフルネームで入っているけど検索は一部でしたいなんてあるのかも。
何かの参考となれば幸いです。
Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。