営業所マスタの作成、５回目です。
いよいよ初登場となります。
営業所問い合せの画面項目を説明します。
早速、はじめましょう。
-------------------------------------------------------------------
１．フォーム名、項目名の作成
フォームにマスタの項目を作成します。
１−１．フォーム名の設定
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.住所1（非連結）
名前 住所1
ＩＭＥ入力モード保持 いいえ
ＩＭＥ入力モード コントロールなし
ＩＭＥ変換モード 一般
使用可能 はい
編集ロック いいえ
-------------------------------------------------------------------
２．formについて
２−１．form → load
画面を開いた時に1回だけ通る処理です。
Set cn = Application.CurrentProject.Connection
cn.CursorLocation = adUseClient
Set Me.Recordset = Nothing
'◎ポイント解説 1 -----*-----*-----*-----
Me![営業所コード].ControlSource = ""
Me![営業所名].ControlSource = ""
Me![住所1].ControlSource = ""
p_eigyocd = 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で作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|