Access (VBA)

Access VBAに関するフォーラムです。
  • 掲示板への投稿には会員登録(無料)が必要です。会員登録がまだの方はこちら
  • 掲示板ご利用上のお願い」に反するご記入はご遠慮ください。
  • Q&A掲示板の使い方はこちらをご覧ください
トピックに返信
質問

 
(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

トピックに返信