MS 访问事件加载表单

Question

我有大约 20 个 MS-Access 数据库和大约 400 个表单，并且希望在加载任何表单时执行一个操作。 也许，我需要一个数据库或应用程序级别的事件，该事件将在任何打开/加载的表单时触发。然后我可能只需要向 20 个数据库中的每一个添加一次代码，而不是向 400 个表单中的每一个添加一次代码。 并且：它必须在 VBA 中（Access >= 2010）！ 我的问题：这甚至可能吗？如果是这样，有人有提示吗？ 谢谢， 皮特

Answer 1

我认为有多种方法可以解决这个问题。

我可能会做以下事情：

1. 使用计时器创建一个隐藏表单，该表单在您的数据库打开时（使用 autoexec 宏）打开。
2. 加载隐藏表单时，初始化数据库中所有可用表单的集合/多级数组，并将其状态设置为关闭（有些困难，可能会与多级数组或集合内的集合一起使用）存储表单名称 + 布尔值打开或关闭）。
3. 定期迭代集合，检查更改，以便您可以查看表单何时关闭并触发您的事件。

您还可以使用 VBA 遍历所有表单，如果没有，则向它们添加一个模块，然后将所需的 Form_Load 代码添加到该模块。 （同时创建代码来撤消该操作可能是明智的，因此您实际上可以维护代码）。在完善它的同时，您可以检查表单是否已经具有 Form_Load 操作，如果存在，则将代码附加到该操作。

总的来说，可能，但很难。如果您需要有关某些步骤的指示，我可以提供，但对于实施的主要问题，我会提出一个单独的问题。