■メニュー
1.得意先マスタの作成（11回目）
===================================================================
こんにちは、ティウェアの高橋です。
それでは、得意先マスタの作成の11回目をはじめましょう。
では、はじめましょう。
------------------------------------------------------------------
今回は、表示させた問い合わせから得意先マスタメンテナンスに
データを移行させる処理とボタンの解説となります。
得意先名で解説します。
マウスを使う場合は、項目上でダブルクリックします。
キーボードでは、押したボタンで処理をします。
1.マウスをダブルクリックした処理
Sub 得意先名_DblClickを作成します。
Private Sub 得意先名_DblClick(Cancel As Integer)
On Error GoTo Err_得意先名_DblClick
If IsNull([得意先コード]) Or Trim([得意先コード]) & "" = "" Then
Exit Sub
End If
p_eigyocd = [営業所コード]
p_tokucd = [得意先コード]
'◎ポイント解説 1 -----*-----*-----*-----
Forms(form_modoriname).Controls(form_modoricontrols_name_1) = _
Format$(p_eigyocd, "00")
Forms(form_modoriname).Controls(form_modoricontrols_name_2) = _
Format$(p_tokucd, "00000")
'◎ポイント解説 2 -----*-----*-----*-----
Forms(form_modoriname).Controls( _
form_modoricontrols_name_setfocus).SetFocus
DoCmd.Close
DoCmd.OpenForm form_modoriname
Exit_得意先名_DblClick:
Exit Sub
Err_得意先名_DblClick:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_得意先名_DblClick
End Sub
1-1.◎ポイント解説 1 について
問い合せ画面で選択した得意先コードを得意先マスタメンテナンス
の得意先コードへに送る処理です。
form_modoriname = "得意先マスタメンテナンス"
form_modoricontrols_name_1 = "得意先コード"
それぞれの項目が入っています。
フォーム名を定数にいれてる場合は”.Controls”という
使い方をします。
そのフォームの項目である営業所コード、得意先コードに送ります。
営業所コードは2桁ですから、Format$(p_eigyocd, "00")
得意先コードは5桁ですからFormat$(p_tokucd, "00000")
1-2.◎ポイント解説 2 について
form_modoricontrols_name_setfocus = "得意先コード"
が入っています。
戻りフォームにセットフォーカスしている処理です。
もちろん、得意先マスタメンテナンスの得意先コードです。
自分自身（問い合せ画面）をクローズして得意先マスタメンテナンス
をオープンします。
-------------------------------------------------------------------
2.キーボードを押した場合の処理です。
Sub 得意先名_KeyDownを作成します。
この処理は、得意先名_DblClickとほぼ同じです。
違うのは、KeyCode<>123 は、F12でなければということです。
F12キー以外で得意先コードはスペースかNullでなければ
処理を行います。
On Error GoTo Err_得意先名_KeyDown
If KeyCode <> 123 Then
Exit Sub
End If
If IsNull([得意先コード]) Or Trim([得意先コード]) & "" = "" Then
Exit Sub
End If
p_tokucd = [得意先コード]
Forms(form_modoriname).Controls(form_modoricontrols_name_1) = _
Format$(p_eigyocd, "00")
Forms(form_modoriname).Controls(form_modoricontrols_name_2) = _
Format$(p_tokucd, "00000")
Forms(form_modoriname).Controls( _
form_modoricontrols_name_setfocus).SetFocus
DoCmd.Close
DoCmd.OpenForm form_modoriname
Exit_得意先名_KeyDown:
Exit Sub
Err_得意先名_KeyDown:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_得意先名_KeyDown
End Sub
次回も、得意先マスタの作成です。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|