■メニュー
1.得意先マスタの作成（4回目）
===================================================================
こんにちは、ティウェアの高橋です。
それでは、得意先マスタの作成の4回目をはじめましょう。
では、開始します。
-------------------------------------------------------------------
２．取消ボタンの処理
取消ボタンを押すことにより、得意先マスタの処理を中止します。
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_マスタメンテナンス処理メニュー" ' 3-1
Exit Sub
End If
On Error GoTo Err_btn終了_Click
DoCmd.Close
DoCmd.OpenForm "m_マスタメンテナンス処理メニュー" ' 3-2
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
Me![カナ名].Enabled = False
Me![略名].Enabled = False
Me![郵便番号].Enabled = False
Me![住所1].Enabled = False
Me![住所2].Enabled = False
Me![電話番号].Enabled = False
Me![ＦＡＸ番号].Enabled = False
Me![締日].Enabled = False
Me![担当者コード].Enabled = False
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![カナ名] = ""
Me![略名] = ""
Me![郵便番号] = ""
Me![住所1] = ""
Me![住所2] = ""
Me![電話番号] = ""
Me![ＦＡＸ番号] = ""
Me![締日] = 0
Me![担当者コード] = ""
Me![担当者名] = ""
Me![請求先営業所コード] = ""
Me![請求先得意先コード] = ""
Me![請求先名] = ""
Me![消費税計算法] = ""
Me![掛区分] = ""
'消費税計算法
zeikbn = Int(0)
'掛区分
kakekbn = Int(0)
得意先コードを入力できる状態にします。
各項目に初期値を送っています。
メンテナンスもパターン化しています。
パターン化することは、開発速度を上げる上でも大切なことです。
それとひとつのパターンが完璧にできれば不具合も少なくなります。
ストアドで質問をもらうのですが、VBAにSQLをゴリゴリ書いても
かまいません。
でも、スピードを重視するのであれば、ストアドで作りましょう。
ストアドも基本がわかれば、それほど難しくありません。
ストアドは、ループさせながら一時ファイルに書き込みながら作れます
でも、できれば一回で処理できるようなSQLを作るように心がけてください
そのほうが、早いです。
ビューで大まかに作り、ストアドで手を加える、これが近道です。
次回も、得意先マスタの作成となります。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|