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

查看代码并不是那么难，实际上也没有编辑它。但我应该警告你一些陷阱。首先，您正在讨论的方法相当于自我修改代码，这将导致许多防病毒软件绊倒。其次，腐败是一个持续的危险，Access和自修改代码只会加剧这个问题。您提出的任何解决方案都应该最小化编辑，您还应该有一个非常强大的备份和恢复计划。第三，自修改代码将阻止您编译数据库（使用mdes）或锁定项目。这可能导致一些非常难以控制和维护的源代码。
我建议您考虑使用Pure SQL进行数据修改。然后，您可以在表中存储和修改SQL，然后只使用CurrentDB.Execute来运行它。

显示来自直通代码的代码（以ms访问）

3 个答案: