■メニュー
1.得意先マスタの作成（8回目）
===================================================================
あけましておめでとうございます。
ティウェアの高橋です。
今年もがんばりましょう！
それでは、得意先マスタの作成の8回目をはじめましょう。
得意先問い合せを作成中です。
では、はじめましょう。
------------------------------------------------------------------
２．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 = ""
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で作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|