[三流君 ] −−＞
[ＶＢＡで楽しく ] −−＞
[バックナンバー一覧 ]Access 検索フォームで選択した番号を使用する その１
メルマガ発行内容
＜Access 検索フォームで選択した番号を使用する その１＞
どうも、三流プログラマーのＫｅｎ３です。
今回は、
フォーム間のデータのやり取りで、
固定の処理で通用する簡単なやり方を書きたいと思います。
~~~~
固定の処理とか言ってると、逆の汎用性のある方法から聞きたいよね。
まぁ、まぁ、あせらないでよ。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba089.lzh
にdb089.mdb(Access2000版)が保存されています。
/*
* １．今回のキッカケ
*/ " [BBS :142] Accessでのパラメータ引渡し方法" ,
Yoshi さん wrote...
>投稿時間：2003/06/18(Wed) 17:25
>
>おなまえ：Yoshi
>タイトル：Accessでのパラメータ引渡し方法
>ＵＲＬ ：
>コメント：
>
>こんにちは。はじめて書き込みます。
>現在「顧客画面」と「顧客番号検索画面」というものがあります。
>「顧客画面」は、KEYである顧客番号とその他情報を登録、修正、削
>除する画面です。
>「顧客番号検索画面」は、「顧客画面」の顧客番号の検索機能です
>。
>つまり、「顧客画面」で登録されている顧客情報を変更する場合
>現在データベースに登録されている顧客番号を一覧(顧客番号検索画
>面)表示させ選択された顧客番号を「顧客画面」に戻すといった方法
>を教えてください。
>すいません、わかりずらいと思うので簡単な図を書きます。
>
>１顧客画面 ← 顧客情報の一部の修正を行いたいためこの画面を
>開く
>
>２顧客番号横の検索ボタンを押下 ← 顧客番号がすぐにわからな
>いため検索画面を開く
>
>３顧客番号検索画面が開く ← リストボックスで作成した一覧を
>表示
>
>４リストボックスの対象行を選択
>
>５顧客画面 ← 選択された顧客番号を表示させる
---------------
そんな質問に対して、
今回は、単純にデータのセット、レコード移動でかわしてみたいと思います。
/*
* ２．簡単に勝手な仕様を起す
*/ " 顧客番号検索画面" を開く。
顧客番号検索画面
^^^^^^^^^^^^^^^^
画面は、リストボックス、選択ボタン、キャンセルボタンを持っている。
画面が開かれたら、（開かれたタイミングで）
リストボックスで、
顧客番号 氏名 記号
1 ドラキチ あ
2 どさんこ い
3 ヤクルト う
4 横浜 え
5 ダイエー お
を表示する。（顧客テーブルから、顧客番号、氏名、記号をリスト表示）
対象行を選択後、
[選択]のボタンが押されたら、
顧客画面！（の）顧客番号にデータをセットする。
顧客画面、該当レコードへデータを移動する。
検索フォームを閉じる。
[キャンセル]のボタンが押されたら、
行が選択されていても、何もしないで検索フォームを閉じる。
/*
* ３．顧客番号検索画面の作成（まだ処理無し）
*/ /*
* ４．顧客画面に検索ボタンの作成（顧客番号検索画面を開く）
*/ Private Sub btn検索_Click()
On Error GoTo Err_btn検索_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = ChrW(-26521) & ChrW(23458) & ChrW(30058) & ChrW(21495)
& ChrW(26908) & ChrW(32034) & ChrW(30011) & ChrW(-26782)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_btn検索_Click:
Exit Sub
Err_btn検索_Click:
MsgBox Err.Description
Resume Exit_btn検索_Click
End Sub
余談：オートで作成されたソースを見て
~~~~~
stDocName = ChrW(-26521) & ChrW(23458) & ChrW(30058) & ChrW(21495)
& ChrW(26908) & ChrW(32034) & ChrW(30011) & ChrW(-26782)
えっ、なにこれ？漢字のフォーム名ってダメなの？
なめやがって、
stDocName = " 顧客番号検索画面"
DoCmd.OpenForm stDocName, , , stLinkCriteria
と直してテスト。
あれ・・動くよ。まぁいっか。
びっくりさせやがって、Access2000から漢字のフォーム名ムリかと思ったよ。
（ホントのところは、ダメかもしれないけど、潔癖症じゃないので、
私はそのまま書いてみました）
/*
* ５．選択後、顧客画面のレコードを移動させる
*/ Private Sub btn選択_Click()
On Error GoTo Err_btn顧客_Click
DoCmd.Close
Exit_btn選択_Click:
Exit Sub
Err_btn選択_Click:
MsgBox Err.Description
Resume Exit_btn選択_Click
End Sub
まぁ、エラー処理今回は、消しちゃいます。（オイオイ平気なの？）
Private Sub btn選択_Click()
DoCmd.Close '閉じる
End Sub
だけでいいんで。
これに、
顧客画面、該当レコードへデータを移動する。
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
機能を追加してみます。
Private Sub btn選択_Click()
Dim LNG顧客番号 As Long
'番号選択のチェック
If IsNull(Me![lst顧客番号]) Then '何も選択されていないか？チェック
MsgBox " 顧客番号を選択してください"
Exit Sub '関数を抜ける
End If
'番号をローカル変数に保存する
LNG顧客番号 = Me![lst顧客番号]
Debug.Print LNG顧客番号 'テバックで表示
'フォームを閉じる
DoCmd.Close
'レコードを移動する
DoCmd.GoToControl " 顧客番号" '顧客番号フィールドにコントロールを移動
DoCmd.FindRecord LNG顧客番号 '選択された番号のレコードに移動
'
End Sub
あれ、質問は、フォーム間の代入処理なのに、代入してないよ？
あっ、これですか・・・
Forms![顧客画面]!顧客番号 = LNG顧客番号
で、隣のフォームにデータをセットしたり・参照できるんだけど、
呼び出し元が連結フォームで処理していると、
Forms![顧客画面]!顧客番号 = LNG顧客番号
でセットすると、レコードは移動前の状態なので、
顧客番号を上から重ねて書いてしまいます。（データが壊れてしまいます）
非連結の番号エリアなら、閉じる前に、
Forms![顧客画面]![顧客番号] = Me![lst顧客番号]
Forms!顧客画面!顧客番号 = Me!lst顧客番号
で、フォーム名、コントロール名を指定して簡単にセットできます。
Forms![フォーム名]![コントロール名]
がデータセットのポイントかな。
連結フォームだと、データセット＝代入になってしまうので、
前のデータを消してしまうので、
DoCmd.GoToControl " 顧客番号" '顧客番号フィールドにコントロールを移動
で、コントロールを顧客番号にして、
DoCmd.FindRecord LNG顧客番号 '選択された番号のレコードに移動
で、レコードを探す（移動する）
代入はしていないのですが、レコードが移動しているので、
代入しているように見えます。
サンプルファイルは、
http://www.ken3.org/vba/lzh/vba089.lzh
にdb089.mdb(Access2000版)が保存されています。
動きを見てもらうのが一番ハヤイかもしれません。
※いろいろと追加して、テストしてみてください。
/*
* ６．終わりの挨拶
*/ ページフッター
ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
種類別のリンク や 広告など
Blogとリンク :[三流君の作業日記 ]/
[VBAやASPのサンプルコード ]/
広告-[通販人気商品の足跡 ]
三流君(TOP ken3.org へ戻る) ]
/ [VBA系TOPへ ]
/ [VBA系バックナンバー目次へ移動 ]
↑リストボックスウィザードで簡単に作成
[btn選択] [btnキャンセル]とボタンを２つ作成する。
↑ボタンウィザードで閉じるを簡単に作成
まだ何も本格的なコードは書いていないけど、
リストボックスにデータが表示されていると、
それらしく見えるから不思議。
↑ボタンウィザードで閉じるを簡単に作成
まぁ、このへんは、べつに気にしないで。
↑ボタンウィザードでフォームを開くを簡単に作成
btn_Clickのイベントが完成する。