Question

我在表单中有许多Subs，代码如下

Dim db As DAO.Database
Set db = CurrentDb()
Dim strSQL as String
db.Execute strSQL

在＆＃34;表单级别初始化db是不错的做法＆＃34;即只写一次上面两行代码？如果是这样，我该怎么做？

这与MSAccess: Global vs Local Variable Declaration

有所不同

Answer 1

我在模块中有这个功能：

Public Function currDB() As Database
    Static currDB_v As Database

    If currDB_v Is Nothing Then
        Set currDB_v = CurrentDb
    End If

    Set currDB = currDB_v

End Function

并致电CurrDB.Execute

如果您在Q中发布时没有错误处理，那么您也可以编写函数：

Public Sub ExecSQL(SQL as string)
    CurrDB.Execute SQL
End Sub

在表单级别启动CurrentDb对象

1 个答案: