在Access中使用系统表保存应用程序变量

开发ACCESS应用程序时，需要在窗体和模块中引用许多变量。要管理这些变量，您当然可以使用Microsoft Visual Basic for Application(VBA)在启动窗体中设置它们的值，然后调用一个模块来初始化这些值。

然而，在应用程序开发完成后，使用这种方法的问题出现了:其他人可能需要在未来的某个时间点更改那些值，但他们不知道从哪里开始。我建议在数据库中建立一个名为SystemTbl的表，然后用户可以访问这个表，并在适当的时候修改数据。

建立表格和表单

创建表并将变量添加到表中的新记录后，您可以为用户创建一个只允许修改但不能添加或删除记录的表单。该表应该只包含一条记录，以保存有关如何使用它的信息。一旦保存了所有变量，当应用程序需要它们时，可以使用VBA来检索这些变量值。

例如，假设应用程序需要保存应用程序管理员的姓名和电话号码。正如您刚刚了解到的，这些信息很容易修改，将其写入表单或模块的代码是没有意义的。

该表预定义了一条记录和两个字段(到目前为止):

表格:系统表

1:管理员姓名

字段2:管理电话

当需要在表单上向用户显示适当的姓名和电话号码时，可以用OnOpen或OnLoad事件填充表单上相应的标签。在本例中，我们将标签命名为“PhoneLabel”和“NameLabel”。清单1.10。显示了这个示例函数的代码。

在这个示例函数中，我们在SnapShot-ForwardOnly中打开记录集，以减少访问记录集时占用的资源；然后，我们将表中字段的值应用于姓名和电话标签的标题。

最后，关闭记录集。永远记住要关闭记录集，它会累积为不需要的资源，导致性能降低甚至更糟糕的问题。由于系统表中只有一条记录，检索过程极快。现在，你已经给一个有效的数据库应用程序添加了可扩展的解决办法。
最后，关闭记录集。永远记住关闭记录集，它会积累不必要的资源，导致性能下降甚至更糟的问题。因为系统表中只有一条记录，所以检索过程非常快。现在，您已经向一个有效的数据库应用程序添加了一个可扩展的解决方案。