![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ACCESS2003、初心者です。
医療事務のデータベースを作っています。
予約フォーム(frm予防接種予約)を作っていますが、次の(1),(2)の作業がうまくできなくて困っています。
(1)リストボックスへの抽出(検索ボタンを押すまではリストボックスの中は空の状態)
frm予防接種予約のフォームで非連結テキストボックスに生年月日を入力して、検索ボタンを押す
↓
tbl患者個人票テーブルの生年月日と一致するレコード(氏名や住所)をリストボックスに表示させたい。
(2)表示されたリストボックスの中のレコードをクリックすると、そのレコードが氏名や住所に代入される。
一連の作業をfrm予防接種予約フォーム上で行いたいのですが、どのようにしたら良いのでしょうか?
No.1ベストアンサー
- 回答日時:
(1) は、リストボックスではなく、サブフォームを使ったほうが簡単かも。
リストボックスの場合は、値集合ソースをSQL文で作成し、テキストボックスの
更新後で、RowSource プロパティに代入し、Requery をかけてやればいいかと。
VBA Or マクロが必要ですね。
(2) は、リストボックスを使うのなら、Column プロパティが使えると
思います。
> そのレコードが氏名や住所に代入される。
きちんと正規化されているのなら、氏名・住所等を代入する必要はないです。
患者ID?のような値を入れてやれば、あとはクエリで対応できますので。
返答ありがとうございます。
(1)は、クエリとRequeryでうまくいきました!
コードは、
Private Sub 代入検索_Click()
Me.代入リスト.Requery
End Sub
です。
(代入リストはテキストボックス、代入検索はコマンドボタンです)
(2)は、Columnでやってうまくいきました!
ちなみに、(2)では事情によりクエリを使いたくなかったのでVBAで代入しました。
コードは、
Private Sub 代入リスト_Click()
Me.診察券 = 代入リスト.Column(0)
Me.氏名 = 代入リスト.Column(1)
Me.住所 = 代入リスト.Column(2)
End Sub
です。
ありがとうございました。
おかげで助かりました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
恒等的に正しいとはどういう意...
-
数学の質問です。 3で割ると2余...
-
高2数学 軌跡
-
高校数学:整数
-
w=1/z−iのときz平面上の図形は...
-
二次関数
-
隣り合う平方数の大きい数から...
-
数Bの数列の問題です。 正の奇...
-
X^nをX^2-X-2で割ったときの...
-
平衡定数の求め方について、ΔG=...
-
階差数列について質問したいの...
-
大、小2つの数がある。大きい数...
-
3で割ると2余り,5で割ると3余...
-
ライニプッツの公式に関してで...
-
SPIの問題でわからないところが...
-
Access VBA クリップボードの内...
-
中二の一次関数についてです 傾...
-
SPIの問題
-
数学 因数分解x∧3-12x+16=0を因...
-
比率の問題教えてください
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
恒等的に正しいとはどういう意...
-
SPIの問題
-
平衡定数の求め方について、ΔG=...
-
数Bの数列の問題です。 正の奇...
-
A,Bをn次正方行列とする場合、...
-
数学の質問です。 3で割ると2余...
-
円の方程式
-
3で割ると2余り,5で割ると3余...
-
あってる?
-
ライニプッツの公式に関してで...
-
4元連立方程式の解き方を教えて...
-
高2数学 軌跡
-
「Access」のフォームで、同じ...
-
中二の一次関数についてです 傾...
-
エクセル 2/3乗
-
高校数1についての質問です。 ...
-
TextBox1とTextBox2の数値の大...
-
次の関数の組が線形独立である...
-
7で割ると2余り、11で割ると3余...
-
w=1/z−iのときz平面上の図形は...
おすすめ情報