区分マスタの削除処理を解説します。
削除処理をするか確認画面を表示させて処理を行います。
処理がおわると伝票区分にフォーカスをあてます。
-------------------------------------------------------------------
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 = 区分_削除()
'ここでフォームをクリアする処理をいれます
[伝票区分].SetFocus
End Sub
-------------------------------------------------------------------
削除処理です。
区分コードのパラメータを受け渡して処理を行います。
Function 区分_削除()
区分_削除 = True
On Error GoTo 区分_削除_err
Set cm = New ADODB.Command
Set pm = New ADODB.Parameter
Set pm = New ADODB.Parameter
pm.Direction = adParamInput
pm.Type = adSmallInt
If Me![伝票区分] = "売上" Then
pm.Value = Int(1)
Else
If Me![伝票区分] = "入金" Then
pm.Value = Int(2)
End If
End If
Set pm_1 = New ADODB.Parameter
pm_1.Direction = adParamInput
pm_1.Type = adSmallInt
pm_1.Value = [伝票区分番号]
With cm
.ActiveConnection = cn
.CommandType = adCmdStoredProc
.CommandText = "sp_区分マスタ_del"
.Parameters.Append pm
.Parameters.Append pm_1
End With
cm.Execute
Set pm = Nothing
Set pm_1 = Nothing
Set cm = Nothing
Exit Function
区分_削除_err:
MsgBox "エラーナンバー " & ado_err.Number & _
vbCrLf & _
"エラーソース " & ado_err.Source & _
vbCrLf & _
Err.Description, vbCritical, "エラー"
区分_削除_err99:
区分_削除 = False
Set pm = Nothing
Set pm_1 = Nothing
Set cm = Nothing
End Function
-------------------------------------------------------------------
sp_区分マスタ_delのストアドプロシジャーの処理です。
削除するときはwhereを必ず入れてください。
もし、ないとすべて削除されます。
Alter Procedure sp_区分マスタ_del
(
@伝票区分 smallint,
@伝票区分番号 smallint
)
As
delete 区分マスタ
where (伝票区分 = @伝票区分) and
(伝票区分番号 = @伝票区分番号)
return
次回は第３コースの最終回（10回）となります。
===================================================================
◆
実践テクニック、Accessで作るクラサバシステム ◆
Accessでクラサバシステムを作る秘訣は、業務に使えるシステムを徹底活用する
ことです。
編集・構成：高橋浩
提供・発行：ティウェア
http://www.1tware.com/index.html
Access2000+MSDE2000、Access2002+MSDE2000、Access2003+MSDE2000で
作る販売管理ソフト、クライアントサーバーシステムを構築
※当メールマガジンに掲載された記事を許可なく転載することを禁じます。
===================================================================
実践テクニック、Accessで作るクラサバシステム（隔週 火曜日発行中）
ＳＥが１０年以上の開発ノウハウを惜しみなく完全公開！
|