第６コースの始まりです。
担当者マスタの作成、１回目です。
営業所マスタメンテナンスで作った問い合せ画面が担当者コード、
営業所コード上に出てきます。
2つの問い合せ画面が登場します。
では早速、はじめましょう。
-------------------------------------------------------------------
１．担当者マスタの概要
担当者コードを登録します。
担当者コードの桁数は2桁まで99人の担当者を管理できます。
２．担当者マスタのレイアウト
項目名 データ型 桁数
1.担当者コード int 4
（主キー）
2.担当者名 nvarchar 20
3.カナ名 nvarchar 20
4.営業所コード int 4
これをテーブルで作成してください。
３．フォーム名、項目名の作成
フォームにマスタの項目を作成します。
３−１．フォーム名の設定
1.プロパティの内容
表題 担当者マスタメンテナンス
３−２．項目名の設定
プロパティの内容によりグループにしています。
テキストボックスの前に同じ名前でラベルを作成して下さい。
1.担当者コード（テキストボックス）
名前 担当者コード
書式 0
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能
はい
編集ロック
いいえ
ヒントテキスト ダブルクリック、または[F12]キーを
押すと問い合せ画面に移動します
◎ポイント解説 1 -----*-----*-----*-----
”ヒントテキスト”は、担当者コード上にマウスを
そっと移動させるとヒントテキストに記述した内容が現れます。
ちょっとした説明をしたい場合に使ってください。
2.担当者名（テキストボックス）
名前 担当者名
IME 入力モード保持 いいえ
IME 入力モード ひらがな
IME 変換モード 一般
ふりがな カナ名
使用可能 はい
編集ロック いいえ
◎ポイント解説 2 -----*-----*-----*-----
”ふりがな”に指定した先”カナ名”に
半角カタカナに自動変換して表示してくれます。
これでカナ名の入力しなくて済みます。
3.カナ名（テキストボックス）
名前 カナ名
IME 入力モード保持 いいえ
IME 入力モード 半角カタカナ
IME 変換モード 無変換
使用可能 はい
編集ロック いいえ
4.営業所コード（テキストボックス）
名前 営業所コード
書式 0
小数点以下表示桁数 0
IME 入力モード保持 いいえ
IME 入力モード オフ
IME 変換モード 一般
使用可能 はい
編集ロック いいえ
ヒントテキスト ダブルクリック、または[F12]キーを
押すと問い合せ画面に移動します
-*-------*-------*-------*-------*-------*-------*-------*-------*-
３−３．ボタンの設定
１.登録ボタン
名前 btn登録
表題 登録(F8)
2.削除ボタン
名前 btn削除
表題 削除(F6)
3.取消ボタン
名前 btn取消
表題 取消(F10)
4.終了ボタン
名前 btn終了
表題 終了(End)
-*-------*-------*-------*-------*-------*-------*-------*-------*-
４．formについて
４−１．form → load
画面を開いた時に通る処理です。
処理は1回だけとなります。
Set cn = Application.CurrentProject.Connection
cn.CursorLocation = adUseClient
p_tancd = Int(0)
From_Clr
[btn取消].Enabled = False
-*-------*-------*-------*-------*-------*-------*-------*-------*-
４−２．form → Unload
画面を閉じる時に1回だけ通る処理です。
cn.Close
Set cn = Nothing
-*-------*-------*-------*-------*-------*-------*-------*-------*-
４−３．form → KeyDown
フォーム上で何かしらのキーが押されたときの処理です。
Select Case KeyCode
Case 117 '削除（Ｆ6）
If btn削除.Enabled = True Then
btn削除.SetFocus
SendKeys "{ENTER}"
End If
Case 119 '登録（Ｆ8）
If btn登録.Enabled = True Then
btn登録.SetFocus
SendKeys "{ENTER}"
End If
Case 121 '取消（Ｆ10）
If btn取消.Enabled = True Then
btn取消.SetFocus
SendKeys "{ENTER}"
End If
Case 35 '終了（ＥＮＤ）
If btn終了.Enabled = True Then
btn終了.SetFocus
SendKeys "{ENTER}"
End If
End Select
Exit Sub
Form_KeyDown_err:
MsgBox "エラーが発生しました。再度、見直してください。", _
vbExclamation, "注意"
◎ポイント解説 3 -----*-----*-----*-----
Form上のキーボードイベント取得を「はい」にすると
Form上のKeyDownを優先されます。
マウスは極力使わないというより、要らないに等しい入力ができる。
これもこのシステムの特徴。
これで、入力の速度は一気に向上します。
次回も担当者マスタの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
ものつくりは、真似をすることから始まります、システムの作成も同じです
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|