![]() |
![]() |
レコード削除時のAccessのメッセージを表示させない方法 | VBA |
![]() まず、フォームのプロパティウィンドウから[削除前確認]のイベントプロシージャをコードビルダによって作成します。 Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)
End Sub ここには削除されようとしている状態での処理を記述します。削除していいのかあるいは削除操作を中止するのか、またAccessのメッセージの表示をするかどうかの2つの返値をセットします。 例:そのまま何もメッセージを表示せずに削除する場合
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Response = acDataErrContinue End Sub 例:独自の削除確認メッセージを表示する場合
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Beep If MsgBox("削除しますか?", vbYesNo + vbQuestion) = vbYes Then Response = acDataErrContinue Else Cancel = True End If End Sub 例:常に削除させない場合
すべてのレコードに関して削除を禁止する場合には[削除の許可]プロパティを"いいえ"に設定しますが、さまざまな条件によって削除を許可したり禁止したりする場合にはこのイベントプロシージャを使用します。 Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Beep MsgBox "削除できません!" Cancel = True End Sub |
|||
この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
|
Copyright © T'sWare All rights reserved | ![]() ![]() |