Office中國(guó)論壇/Access中國(guó)論壇

 找回密碼
 注冊(cè)

QQ登錄

只需一步,快速開(kāi)始

access插入錯(cuò)誤代碼之省事辦法(sub轉(zhuǎn)換為function)

2015-4-16 15:02| 發(fā)布者: admin| 查看: 1172| 評(píng)論: 10|原作者: 大熊|來(lái)自: www.mzhfr.cn

摘要: Sub InsertErrorHandler() '插入錯(cuò)誤處理代碼,如用于函數(shù)則將Exit Sub修改為Exit Function. SendKeys On Error Goto Err_Handler String(3, Chr(10)) SendKeys Exit_Proc: Chr(10) SendKeys {Ta ...
Sub InsertErrorHandler()
   
'插入錯(cuò)誤處理代碼,如用于函數(shù)則將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
發(fā)表評(píng)論

最新評(píng)論

引用 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曾談過(guò)修改MOUDLE,非常高明。我這個(gè)方法只是抄來(lái)偷懶罷了,所以只能拿來(lái)新手學(xué)園來(lái)班門弄斧了!:)原文是用宏鍵或菜單自動(dòng)插入,但我試了不行,你有試過(guò)嗎,這段代碼就是從你那抄來(lái)的。你應(yīng)該有看過(guò)才對(duì)!
引用 tmtony 2002-4-7 10:12
我倒忘啦。
其實(shí)ACCESS有許多很好的對(duì)自身編程的功能是值得使用的
從98年到現(xiàn)在,我一直在嘗試編寫(xiě)一種工具來(lái)根據(jù)你設(shè)計(jì)的表自動(dòng)生成窗體和報(bào)表,還有生成主界面和菜單
我現(xiàn)在已經(jīng)完成自動(dòng)生成窗體和報(bào)表的工具,生成主界面的工具亦在編寫(xiě)中。這樣以后編寫(xiě)程序只需設(shè)定需要的表和關(guān)系,然后不需要再用手工重復(fù)做你的窗體,界面和報(bào)表(這些工作其實(shí)很大的重復(fù)性),當(dāng)然,一些特殊的報(bào)表和窗體還是需要定制的
現(xiàn)在主要的問(wèn)題是靈活性與復(fù)雜性的折中
如果這個(gè)自動(dòng)生成工具太過(guò)靈活,但設(shè)置必定比較復(fù)雜,這樣,間接又增加了編程的復(fù)雜度
但如果靈活性不夠?qū)е旅看紊啥家膭?dòng)你工具的代碼的話,那與手工定制每個(gè)窗體也就沒(méi)有區(qū)別啦
這個(gè)工具現(xiàn)在自己使用非常方便,但要做成商品化且便于使用,還需些時(shí)日哦。

引用 大熊 2002-4-7 11:12
你所說(shuō)的商品化的東西,肯定好不到哪去!從微軟公司的向?qū)Ь涂梢酝茰y(cè)出這個(gè)結(jié)果!但是,自己用是非常方便的,而且設(shè)得越細(xì)越方便!
引用 tmtony 2002-4-7 16:17
呵呵,不一樣的東東啦
不過(guò),你說(shuō)的也在理,的確它現(xiàn)在對(duì)我自己是方便,對(duì)別人未必真的方便
這中間始終是個(gè)度的問(wèn)題,很難把握
引用 大熊 2002-4-8 23:51
有空的話,搞個(gè)試玩版。
引用 binbow_z 2003-1-5 22:29
如何用菜單和宏要快速輸入?
引用 binbow_z 2003-1-7 07:51
問(wèn)題: 做好的菜單或宏在模塊設(shè)計(jì)窗口無(wú)法用!請(qǐng)?jiān)斀猓?/dd>
引用 tmtony 2003-1-8 05:22
要使用com addin來(lái)做才行,它與窗體設(shè)計(jì)時(shí)可用到的加載項(xiàng)不一樣。
需要使用VB和office XP來(lái)開(kāi)發(fā)。
我的VB源代碼繁簡(jiǎn)轉(zhuǎn)換程序就是此類
引用 zhuyiwen 2003-1-8 17:19

查看全部評(píng)論(10)

QQ|站長(zhǎng)郵箱|小黑屋|手機(jī)版|Office中國(guó)/Access中國(guó) ( 粵ICP備10043721號(hào)-1 )  

GMT+8, 2025-7-17 06:06 , Processed in 0.092381 second(s), 23 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

返回頂部