前回に続き区分マスタの作成です。
1．登録ボタンを押すことにより、区分マスタの登録、変更をします。
2．削除ボタンを押すことにより、区分マスタの削除をします。
3．取消ボタンを押すことにより、処理を中断します。
4．終了ボタンを押すことにより、区分マスタの終了をします。
5．プログラムの具体的な流れ
項目の数字のチェック、項目のチェックを正常に処理されていれば
登録の処理に移行します。
もし、項目にエラーが存在すれば、項目の訂正を作業者に知らせます。
読み込んだ時のsyorimodeにより、登録処理なのか変更処理なのか
判断しています。
削除の場合、削除の確認画面をだします。
終了ボタンを押すことにより、マスタメンテナンスのメニューに戻ります。
＊メルマガで記述できる文字が80文字以内ですから、折り返す形で記述します。
折り返すには"_"を使います。
-------------------------------------------------------------------
6.登録ボタンに関する処理
Private Sub btn登録_Click()
'チェック項目をここに入れます。
If inttouroku = 1 Then '登録確認(有り)
If MsgBox("登録しますか", (vbYesNo + vbDefaultButton2 _
+ vbInformation), "登録") = vbYes Then
Else
DoCmd.GoToControl "区分名"
Exit Sub
End If
End If
Select Case syorimode
Case 0 '登録
intRet = 区分_更新(0)
Case 1 '変更、削除
intRet = 区分_更新(1)
End Select
From_Clr
[伝票区分].Enabled = True
[伝票区分].Locked = False
[伝票区分番号].Enabled = True
[伝票区分番号].Locked = False
[伝票区分].SetFocus
End Sub
-------------------------------------------------------------------
7.削除ボタンに関する処理
Private Sub btn削除_Click()
If intsakujyo = 1 Then '削除確認(有り)
If MsgBox("データを削除しますか", (vbYesNo + vbDefaultButton2 _
+ vbInformation), "削除") = vbYes Then
Else
DoCmd.GoToControl "区分名"
Exit Sub
End If
End If
intRet = 区分_削除()
From_Clr
[伝票区分].Enabled = True
[伝票区分].Locked = False
[伝票区分番号].Enabled = True
[伝票区分番号].Locked = False
[伝票区分].SetFocus
End Sub
-------------------------------------------------------------------
8.取消ボタンに関する処理
Private Sub btn取消_Click()
If inttorikesi = 1 Then '取消確認(有り)
If MsgBox("取り消しますか", (vbYesNo + vbDefaultButton2 _
+ vbInformation), "取消") = vbYes Then
Else
DoCmd.GoToControl "区分名"
Exit Sub
End If
End If
From_Clr
[伝票区分].SetFocus
End Sub
-------------------------------------------------------------------
9.終了ボタンに関する処理
Private Sub 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
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
End Sub
次回も区分マスタです。
登録処理をメインに記述します。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
Accessの初級者も中級者もこの実践テクニックの活用編ですぐわかる
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|