担当者マスタの作成、5回目です。
担当者問い合せの画面項目を説明します。
営業所問い合せは、第５コース第９回 「営業所マスタの作成」から
説明していますので「担当者マスタの作成」では、省略します。
営業所コードで同じような記述で作ってください。
基本的には、営業所問い合せと同じ構成で作成します。
「えー、苦労して営業所問い合せを作ったのに、またー」
と思っていませんか？
では、簡単に作る方法を紹介します。
「営業所問い合せ」を流用して「担当者問い合せ」を作ります。
1.フォーム画面で「営業所問い合せ」上でを右クリックします。
「コピー」を押します。
2.フォーム画面で何もないところにマウスを移動して右クリックします。
「貼り付け」をクリックします。
貼り付けのボックスが現れます。
フォーム名を「担当者問い合せ」と入力します。
ＯＫボタンを押します。
これで担当者問い合せのフォームの出来上がりです。
では、項目名、VBAを変更して「担当者問い合せ」を完成させましょう。
では、はじめましょう。
-------------------------------------------------------------------
１．フォーム名、項目名の作成
フォームにマスタの項目を作成します。
１−１．フォーム名の設定
1.プロパティの内容
表題 担当者問い合せ
既定のビュー 帳票フォーム
-------------------------------------------------------------------
１−２．フォームヘッダーの項目名の設定について
1.フォームヘッダーの項目（テキストボックス）
名前 カナ名
IME 入力モード保持 はい
IME 入力モード 半角カタカナ
IME 変換モード 人名/地名
使用可能 はい
編集ロック いいえ
2.フォームヘッダーの項目（ボタン）
a.あボタン
名前 btnあ
表題 あ
ここから、力作業になります。
”い”〜”ん”まで”あ”と同じように作ってください。
小文字の”ぁ、ぃ、ぅ、ぇ、ぉ、っ、ゃ、ゅ、ょ”と
”゛、゜、ー”もあります。
ひらがなのボタンは無理に作らなくてもよいです。
カナ名検索があるのでそれだけでよい方は作らなくても・・・。
b.1字消去ボタン
名前 1字消去(F5)
表題 btn1字消去
これは、カナ名に入力された文字を1文字だけ
消去させるボタンです。
c.全消去ボタン
名前 全消去(F7)
表題 btn全消去
カナ名に入力された文字を全て消去させるボタンです。
d.全表示ボタン
名前 全表示(F9)
表題 btn全表示
登録されている担当者を全て表示させるボタンです。
e.終了ボタン
名前 終了(End)
表題 btn終了
処理を終了して呼び出された画面に戻ります。
ここでは、担当者マスタメンテナンス画面に戻ります。
-------------------------------------------------------------------
１−３．詳細の項目名の設定について
詳細は、すべてテキストボックスとなります。
1.フォームヘッダーの項目
a.担当者コード（非連結）
名前 担当者コード
書式 00
小数点以下表示桁数 0
ＩＭＥ入力モード保持 いいえ
ＩＭＥ入力モード コントロールなし
ＩＭＥ変換モード 一般
使用可能 はい
編集ロック いいえ
b.担当者名（非連結）
名前 担当者名
ＩＭＥ入力モード保持 いいえ
ＩＭＥ入力モード コントロールなし
ＩＭＥ変換モード 一般
使用可能 はい
編集ロック いいえ
c.営業所名（非連結）
名前 営業所名
ＩＭＥ入力モード保持 いいえ
ＩＭＥ入力モード コントロールなし
ＩＭＥ変換モード 一般
使用可能 はい
編集ロック いいえ
-------------------------------------------------------------------
２．formについて
２−１．form → load
画面を開いた時に1回だけ通る処理です。
Set cn = Application.CurrentProject.Connection
cn.CursorLocation = adUseClient
Set Me.Recordset = Nothing
'◎ポイント解説 1 -----*-----*-----*-----
Set cn = Application.CurrentProject.Connection
cn.CursorLocation = adUseClient
Set Me.Recordset = Nothing
Me![担当者コード].ControlSource = ""
Me![担当者名].ControlSource = ""
Me![営業所名].ControlSource = ""
p_tancd = Int(0)
[カナ名].Enabled = True
[カナ名].SetFocus
カナ名 = ""
◎ポイント解説 1 -----*-----*-----*-----
帳票フォームの詳細項目をクリアする時は、ControlSourceを
使います
-*-------*-------*-------*-------*-------*-------*-------*-------*-
２−２．form → Open
フォームが開くときに、最初のレコードが表示される前に
発生します。
カナ名 = ""
カナ名に空白を送ります。
-*-------*-------*-------*-------*-------*-------*-------*-------*-
２−３．form → Unload
画面を閉じる時に1回だけ通る処理です。
cn.Close
Set cn = Nothing
-*-------*-------*-------*-------*-------*-------*-------*-------*-
２−４．form → KeyDown
フォーム上で何かしらのキーが押されたときの処理です。
Select Case KeyCode
Case 120 '全表示（Ｆ9）
If btn全表示.Enabled = True Then
btn全表示.SetFocus
SendKeys "{ENTER}"
NumLock_処理
End If
Case 116 'btn1字消去（Ｆ5）
If btn1字消去.Enabled = True Then
btn1字消去.SetFocus
SendKeys "{ENTER}"
NumLock_処理
End If
Case 118 'btn全消去（Ｆ5）
If btn全消去.Enabled = True Then
btn全消去.SetFocus
SendKeys "{ENTER}"
NumLock_処理
End If
Case 35 '終了（ＥＮＤ）
If btn終了.Enabled = True Then
btn終了.SetFocus
SendKeys "{ENTER}"
NumLock_処理
End If
End Select
Exit Sub
Form_KeyDown_err:
MsgBox "エラーが発生しました。再度、見直してください。", _
vbCritical, "エラー"
Form上のキーボードイベント取得を「はい」にすると
Form上のKeyDownを優先されます。
これでマウスは使わないで処理ができます。
次回も、担当者マスタの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|