今回から名称マスタの作成です。
１．名称マスタを読み込む
1-1．form → load
画面を開いた場合に1回だけ通る処理です。
Private Sub Form_Load()
'Set cn = Application.CurrentProject.Connection
cn.CursorLocation = adUseClient
If 定数_読む = False Then
DoCmd.Close
DoCmd.OpenForm "m_ﾏｽﾀﾒﾝﾃﾅﾝｽ処理メニュー"
Exit Sub
End If
From_Clr
Me![btn取消].Enabled = False
End Sub
-------------------------------------------------------------------
1-2．form → Unload
画面を閉じる場合に1回だけ通る処理です。
Private Sub Form_Unload(Cancel As Integer)
'開放
cn.Close
Set cn = Nothing
End Sub
接続を開放します。
1-3．form → KeyDown
フォーム上で何かしらのキーが押されたときの処理です。
注意：Form上のｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ取得を「はい」にすると
Form上のKeyDownを優先されます
Private Sub Form_KeyDown(KeyCode As Integer, Shift As
Integer)
On Error GoTo Form_KeyDown_err
'Form上のｷｰﾎﾞｰﾄﾞｲﾍﾞﾝﾄ取得を「はい」にするとForm上のKeyDownを
優先する
Select Case KeyCode
Case 117 '削除（Ｆ6）
If btn削除.Enabled = True Then
btn削除.SetFocus
SendKeys "{ENTER}"
NumLock_処理
End If
Case 119 '登録（Ｆ8）
If btn登録.Enabled = True Then
btn登録.SetFocus
SendKeys "{ENTER}"
NumLock_処理
End If
Case 121 '取消（Ｆ10）
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, "エラー"
End Sub
次回も名称マスタの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
独学ではわかるはずはありません。手っ取り早く習得するにはプロのシステムを
参考にすることです
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|