■□■　15分で出来る医薬品検索　for Access2000　■□■
　　　　　　　　　　　　　　　　～　基本編　～

■ 医薬品データのインポート

厚生労働省の診療報酬情報提供サービス<http://www.iryohoken.ne.jp/>より医薬品マスターをダウンロードしてください。

ダウンロードし、解凍したファイルをAccessに、
　・フィールド名を1列目⇒f1、2列目⇒f2・・（中略）・・34列目⇒f34（＊34列あると思います）
　・主キーは設定しない。
　・テーブル名⇒Y
で、インポートしてください。

↓図はインポートしたテーブルのデザインビュー

■ フォームデザイン

↑図のように”テキストボックス” ”コマンドボタン” ”リストボックス”とコントロールを３つ作ります。

■ プロパティの設定

コントロールの上でダブルクリックし、プロパティー（↑図）を表示します。

【フォームのプロパティ】
　・標題・・・15分で出来る医薬品検索
　・スクロールバー・・・なし
　・レコードセレクタ・・・いいえ
　・移動ボタン・・・いいえ
　・区切り線・・・いいえ

【テキストボックスのプロパティ】
　・名前・・・txt1

【コマンドボタンのプロパティ】
　・名前・・・cmd1
　・標題・・・検索（コマンドボタン）

【リストボックスのプロパティ】
　・名前・・・list1

↑のようにプロパティを変更してください。（＊文字色は関係ありません）

■ イベントの設定

コマンドボタンのプロパティでクリック時を選択しを押すと、

↑図が出てきますので、『コードビルダ』を選択し、Microsoft Visual Basicを立ち上げます。

Private Sub cmd1_Click()

End Sub

を↓のように変更してください。

Private Sub cmd1_Click()
　　　With Me.list1
　　　　　　.ColumnCount = 2
　　　　　　.ColumnWidths = "7cm;1cm"
　　　　　　.RowSource = "SELECT Y.f5, Y.f12 " _
　　　　　　　　　　　　　　& "FROM Y " _
　　　　　　　　　　　　　　& "WHERE (((Y.f5) Like '*" & Me.txt1.Value & "*'));"
　　　End With
End Sub

保存して完成です。

■ 完成

左：：薬品名　右：：薬価

／トップページ／基本編／応用編１／