代码是否可以修改？

马山杨梅　发表于：2012-11-16 09:36:57 　

只知道表字段等等可以用代码来修改，不知道代码是否可以用代码来修改。例如：我在标准的模块1中有一个自定义函数

Public Function CT() As String
CT = "克林顿"

End Function

当前定义的美国总统是“克林顿”，现在我在窗口中点修改，在弹出的Inputbox()中输入“奥巴马”，用这个新的值去修改模块1中的这句代码，变成CT="奥巴马"，可不可以这样做，请老师指点。谢谢！

yinyt 发表于：2012-11-16 09:48:27

让CT=Intubox()

煮江品茶发表于：2012-11-16 17:14:07

沈军发表于：2012-11-16 19:33:20

作为代码一旦开发设计完成是不会轻易去更改，除非是有设计方面的问题或要去优化，你的这个问题是需要可以变更的变量，你可以为比此做一个表，由表存储这个变量数据，需要变化时只需要更改表里的数据就行了，调用时用函数dlookup获取就可以

马山杨梅发表于：2012-11-16 20:54:04

看了煮江老师的示例演示，应该还是有那么一点接近，但里面一大堆代码以我的修行肯定是没法参透了。沈军老师的办法是没有办法的办法，我也曾经考虑过，如果这个帖子老师们认为我这个函数代码是没法通过少量代码来修改的话，就只能用这个办法了。

具体应用是这样的：财务系统中当前做账月份是2012年10月，所以模块中定义函数 NY="2012年10月" ，窗口都以这个NY函数作为限制条件，所有编辑和汇总数据记录为2012年10月，以此汇算这个月的各项报表。

一旦这个月的申报结束，就要执行月末关账，关账后发生的数据都将与2012年10月无关，这时就要修改这个NY函数定义变成 NY="2012年11月" ，使各窗体增添，汇总的数据限制在11月。

但这样每月打开模块来更改实在不妥，所以希望在执行关账程序时，同时执行一串代码来修改这个定义的函数代码，使账面自动转入新的月份。

这才有了我的提问：可不可以用代码来修改代码？

煮江品茶发表于：2012-11-16 21:57:33

鬼打架。

直接将代码拷贝去用不就完事了吗？

马山杨梅发表于：2012-11-16 22:51:33

听老师说这话，我倒真的要去好好研究一下您这个附件，看来真的是可以用代码来修改代码的。

可这堆梵文的佛经，叫我这个小和尚该挑哪些念，头都有点微微发涨。

先谢谢老师，待我明天来慢慢琢磨。

马山杨梅发表于：2012-11-17 13:13:18

煮江品茶老师，谢谢您的再次相助。

经过半天努力，终于将您小品附件中的相关二条代码整理移植到我的数据库中，刚开始还有点排异，提示类型未定义，后来对照勾选了一条引用就正常工作了。

再次谢谢您！

总记录：7篇页次：1/1 9 1 :

Access交流中心