通过代码显示代码(在ms access中)

Question

制作Access数据库(2003)，主要供其他程序员和技术管理人员使用，作为数据验证的工具。我想在运行代码的表单部分放置一个按钮，以显示正在运行的代码。这样程序员就可以当场编辑它了。这是为频繁更改代码的数据验证项目准备的。让我们假设代码在一个模块中，因此表单不需要保存或处于编辑模式。只需按下按钮，就会在代码视图中弹出代码。

Answer 1

您可能仅限于模块中的代码。但在窗体上的按钮中，您可以将click事件设置为：

DoCmd.OpenModule "module_name"，"the_name_of_some_function“

Answer 2

这对你有用吗？

Private Sub Command0_Click()
While True
Debug.Print "tt"
If pressed And debugmode Then
   Stop
   pressed = False
End If
DoEvents

Wend
End Sub

Private Sub Command1_Click()
    pressed = True
    ' You can just put here Stop 
End Sub

编辑:我的意思是使用DoEvents并停止

Answer 3

查看代码并不难，编辑代码也不难。但我要警告你一些陷阱。首先，你正在讨论的方法相当于自我修改代码，这将使许多杀毒软件出错。其次，破坏是访问的持续危险，而自我修改代码只会加剧这个问题。你想出的任何解决方案都应该尽量减少编辑，而且你还应该有一个非常健壮的备份和恢复计划。第三，自我修改代码会阻止你编译数据库(使用mdes)或锁定项目。这会导致一些很难控制和维护的源代码。

相反，我建议您考虑使用纯SQL进行数据修改。然后，您可以在表中存储和修改SQL，然后只需使用CurrentDB.Execute运行它。