在Access中使用系统表保存应用程序变量_Access数据库教程

推荐：在VB中用代码打印ACCESS报表
以下为引用的内容： Dim objACC As Object Set objACC = CreateObject("ACCESS.Application") objACC.OpenCurrentDatabase

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

然而，在完成应用程序开发之后，使用这个方法的问题出现了：其他人可能需要在将来某个时候改变那些值，却不知道从何处开始。我建议在数据库中建立一个名为SystemTbl的表，然后用户可以访问这个表，并在恰当的时候修改数据。

建立表和窗体

将表创建好并将变量添加到表中的新记录之后，可以为用户创建一个只允许修改而不能添加或删除记录的窗体，表中应该只包含一条记录保存有关使用方法的信息。一旦保存完所有变量，可以在应用程序需要的时候使用VBA来检索那些变量值。

例如，假设应用程序需要保存应用程序管理员的姓名和电话号码，正如你刚才所了解到的，这条信息要求容易修改，如果把它编写到窗体或模块的代码中没有什么意义。

该表预定义了一条记录和两个字段（到目前为止）：

● 表：SystemTbl

● 字段1：AdminName

● 字段2：AdminPhone

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

在该示例函数中，我们以SnapShot-ForwardOnly方式打开记录集，以减少访问记录集时占用的资源；然后，我们将表中字段的值应用到Name和Phone标签的标题上。

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

分享：ACCESS表达式生成器
“ ”、“-”、“*”、“/”这几个符号就代表数学运算中的“加”、“减”、“乘”、“除”四种运算符号。使