设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

access插入错误代码之省事办法(sub转换为function)

2015-4-16 15:02| 发布者: admin| 查看: 1071| 评论: 10|原作者: 大熊|来自: www.office-cn.net

摘要: Sub InsertErrorHandler() '插入错误处理代码,如用于函数则将Exit Sub修改为Exit Function. SendKeys On Error Goto Err_Handler String(3, Chr(10)) SendKeys Exit_Proc: Chr(10) SendKeys {Ta ...
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
发表评论

最新评论

引用 tmtony 2002-4-7 08:36
我也有一法
strMdl = "rivate Sub InsertErrorHandler()" & vbCrLf
                strMdl = strMdl & "On Error Goto Err_Handler" & vbCrLf
                。。。。。。。
               
                strMdl = strMdl & "End Sub" & vbCrLf

               
                mdl.AddFromString strMdl
引用 大熊 2002-4-7 09:49
记得你在ACCXP曾谈过修改MOUDLE,非常高明。我这个方法只是抄来偷懒罢了,所以只能拿来新手学园来班门弄斧了!:)原文是用宏键或菜单自动插入,但我试了不行,你有试过吗,这段代码就是从你那抄来的。你应该有看过才对!
引用 tmtony 2002-4-7 10:12
我倒忘啦。
其实ACCESS有许多很好的对自身编程的功能是值得使用的
从98年到现在,我一直在尝试编写一种工具来根据你设计的表自动生成窗体和报表,还有生成主界面和菜单
我现在已经完成自动生成窗体和报表的工具,生成主界面的工具亦在编写中。这样以后编写程序只需设定需要的表和关系,然后不需要再用手工重复做你的窗体,界面和报表(这些工作其实很大的重复性),当然,一些特殊的报表和窗体还是需要定制的
现在主要的问题是灵活性与复杂性的折中
如果这个自动生成工具太过灵活,但设置必定比较复杂,这样,间接又增加了编程的复杂度
但如果灵活性不够导致每次生成都要改动你工具的代码的话,那与手工定制每个窗体也就没有区别啦
这个工具现在自己使用非常方便,但要做成商品化且便于使用,还需些时日哦。

引用 大熊 2002-4-7 11:12
你所说的商品化的东西,肯定好不到哪去!从微软公司的向导就可以推测出这个结果!但是,自己用是非常方便的,而且设得越细越方便!
引用 tmtony 2002-4-7 16:17
呵呵,不一样的东东啦
不过,你说的也在理,的确它现在对我自己是方便,对别人未必真的方便
这中间始终是个度的问题,很难把握
引用 大熊 2002-4-8 23:51
有空的话,搞个试玩版啊!
引用 binbow_z 2003-1-5 22:29
如何用菜单和宏要快速输入?
引用 binbow_z 2003-1-7 07:51
问题: 做好的菜单或宏在模块设计窗口无法用!请详解!
引用 tmtony 2003-1-8 05:22
要使用com addin来做才行,它与窗体设计时可用到的加载项不一样。
需要使用VB和office XP来开发。
我的VB源代码繁简转换程序就是此类
引用 zhuyiwen 2003-1-8 17:19

查看全部评论(10)

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-4-25 02:15 , Processed in 0.087861 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回顶部