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