Sub InsertErrorHandler() '插入错误处理代码,如用于函数则将Exit Sub修改为Exit Function. SendKeys "On Error Goto Err_Handler" & String(3, Chr(10)) SendKeys "Exit_Proc:" & Chr(10) SendKeys "{Tab}" & "Exit Sub" & Chr(10) SendKeys Chr(10) SendKeys "{BACKSPACE}" & "Err_Handler:" & Chr(10) SendKeys "{Tab}" & "Resume Err_handler" End Sub |
|站长邮箱|小黑屋|手机版|Office中国/Access中国
( 粤ICP备10043721号-1 )
GMT+8, 2025-4-2 12:12 , Processed in 0.094258 second(s), 24 queries .
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.