Access (VBA)

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

 
(Windows 10 Pro : Access 2013)
削除ボタンのみ削除を有効にしたい
投稿日時: 21/10/13 18:00:00
投稿者: yamasho

お世話になります。
  
表形式のフォームがあります。
削除ボタンを押すとVBAで該当レコードを
削除するようになっています。
 
DELETEキーや右クリックでの削除・移動での削除は不可にして、
削除ボタンのみの削除をしたいです。
  
フォームのプロパティで、削除の許可をいいえにしたところ、
削除ボタンでの削除もできなくなってしまいました。
  
削除ボタンでのみ削除することは可能なのでしょうか?
可能な時はどのようにすればいいでしょうか?

回答
投稿日時: 21/10/13 20:54:31
投稿者: hatena
投稿者のウェブサイトに移動

削除の許可をはいにしてから、削除、その後、いいえに戻す。
 

Private Sub cmdDelete_Click()
    Me.AllowDeletions = True
    DoCmd.RunCommand acCmdDeleteRecord
    Me.AllowDeletions = False
End Sub

投稿日時: 21/10/28 22:15:51
投稿者: yamasho

お世話になります。
 
無事できました。
ありがとうございました。