Access (VBA)

Access VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(指定なし : 指定なし)
削除ボタンのみ削除を有効にしたい
投稿日時: 21/12/01 18:24:00
投稿者: yamasho

お世話になります。
 
以前、「削除ボタンのみ削除を有効にしたい」
で質問させていただきました。
 
質問内容は以下の通りです。
 
表形式のフォームがあります。
削除ボタンを押すとVBAで該当レコードを
削除するようになっています。
  
DELETEキーや右クリックでの削除・移動での削除は不可にして、
削除ボタンのみの削除をしたいです。
   
フォームのプロパティで、削除の許可をいいえにしたところ、
削除ボタンでの削除もできなくなってしまいました。
   
削除ボタンでのみ削除することは可能なのでしょうか?
可能な時はどのようにすればいいでしょうか?
 
そのときに、以下の方法で解決したのですが、
削除をキャンセルするとエラーになってしまいます。
 
Private Sub cmdDelete_Click()
    Me.AllowDeletions = True
    DoCmd.RunCommand acCmdDeleteRecord
    Me.AllowDeletions = False
End Sub
 
削除をキャンセルすると、
 
RunCommandアクションの実行は取り消されました。
 
というエラーになってしまいます。
回避するにはどうすればいいでしょうか?
 
 

回答
投稿日時: 21/12/01 20:35:41
投稿者: hatena
投稿者のウェブサイトに移動

エラートラップを追加すればいいでしょう。
 

Private Sub cmdDelete_Click()
    Me.AllowDeletions = True
    On Error Resume Next
    DoCmd.RunCommand acCmdDeleteRecord
    On Error GoTo 0
    Me.AllowDeletions = False
End Sub

投稿日時: 21/12/21 20:03:34
投稿者: yamasho

お世話になります。
 
エラートラップを追加することで解決しました。
ありがとうございました。