وعليكم السلام   مثل ما قال اخونا عبدالسلام ، هكذا: private sub cmd_click() on error goto err_cmd_click .. .. .. .. exit_cmd_click: exit sub err_cmd_click: if err.number=3314 then msgbox "هنا تضع صيغة رسالتك" resume exit_cmd_click else msgbox err.number & vbcrlf & err.description endif end sub   جعفر