■メニュー
1.得意先残高マスタの作成（3回目）
===================================================================
こんにちは、ティウェアの高橋です。
得意先残高マスタの作成の3回目。
では、はじめましょう。
------------------------------------------------------------------
２．取消ボタンの処理
取消ボタンを押すことにより、得意先残高マスタの処理を中止します。
2-1.btn取消_Click()について
p_tancd = Int(0)
From_Clr
Me![営業所コード].SetFocus
取消の処理は初期の状態に戻します。
From_Clrで各項目を空白等にします。
処理を終了して営業所コードにフォーカスをあてます。
------------------------------------------------------------------
３．終了ボタンの処理
得意先残高マスタの処理を終了してマスタメンテナンス処理メニュー
に移動させます。
3-1.btn終了_Click()について
If IsNull([得意先コード]) Or Trim([得意先コード]) & "" = "" Then
DoCmd.Close
DoCmd.OpenForm "m_マスタメンテナンス処理メニュー"
Exit Sub
End If
On Error GoTo Err_btn終了_Click
DoCmd.Close
DoCmd.OpenForm "m_マスタメンテナンス処理メニュー"
Exit_btn終了_Click:
Exit Sub
Err_btn終了_Click:
MsgBox "エラーナンバー " & Err.Number & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
Resume Exit_btn終了_Click
終了ボタンを押すと、マスタメンテナンスメニュー画面に移動します。
＊注意
3-1と3-2の”マスタメンテナンス”の部分を半角にしてください。
メルマガでは全角でないとエラーになりますのでこのような記述に
しています。
------------------------------------------------------------------
４．From_Clrの処理
得意先残高マスタの画面項目をクリアします。
登録、取消の処理で使用されています。
Sub From_Clr()を作成して下さい。
[営業所コード].Enabled = True
[営業所コード].Locked = False
[営業所コード].BackColor = 16777215 '白色
[得意先コード].Enabled = True
[得意先コード].Locked = False
[得意先コード].BackColor = 16777215 '白色
Me![詳細タブ].Enabled = False
If p_eigyocd = Int(0) Then
Me![営業所コード] = ""
Me![得意先コード] = ""
Else
Me![営業所コード] = p_eigyocd
Me![得意先コード] = p_tokucd
p_eigyocd = Int(0)
End If
Me![営業所名] = ""
Me![得意先名] = ""
Me![前年残高] = CCur(0)
Me![開始残高] = CCur(0)
Me![請求残高] = CCur(0)
Me![請求今回残高] = CCur(0)
Me![請求伝外税金額] = CCur(0)
Me![請求請外税金額] = CCur(0)
Me![請求内非金額] = CCur(0)
Me![請求伝消費税] = CCur(0)
Me![請求請消費税] = CCur(0)
Me![請求入金金額] = CCur(0)
Me![請求_1回前] = CCur(0)
Me![請求_2回前] = CCur(0)
Me![請求_3回前] = CCur(0)
Me![請求_4回前] = CCur(0)
Me![請求_5回前] = CCur(0)
Me![月次残高] = CCur(0)
Me![月次今回残高] = CCur(0)
Me![月次伝外税金額] = CCur(0)
Me![月次請外税金額] = CCur(0)
Me![月次内非金額] = CCur(0)
Me![月次伝消費税] = CCur(0)
Me![月次請消費税] = CCur(0)
Me![月次入金金額] = CCur(0)
Me![月次_1月前] = CCur(0)
Me![月次_2月前] = CCur(0)
Me![月次_3月前] = CCur(0)
Me![月次_4月前] = CCur(0)
Me![月次_5月前] = CCur(0)
得意先コードを入力できる状態にします。
各項目に初期値を送っています。
メンテナンスもパターン化しています。
パターン化することは、開発速度を上げる上でも大切なことです。
それとひとつのパターンが完璧にできれば不具合も少なくなります。
次回も得意先残高マスタです。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|