能否在VBA的Public Const中使用DLookup函数？Access表单代码优化咨询

核心结论 #

不能在VBA的Public Const中使用DLookup函数，同时Environ、Format(Now,...)这类运行时表达式也无法赋值给Const。

原因说明 #

VBA对常量（Const）的赋值有严格要求：必须是编译阶段就能确定结果的常量表达式，比如固定字符串、数值字面量。而DLookup是查询数据库的运行时函数，Environ读取系统环境变量、Now获取当前时间也都是只有程序运行时才能得到结果的操作，这些都属于运行时表达式，无法在编译阶段确定值，直接赋值给Public Const会导致编译错误。

替代优化方案（适配多表单场景） #

针对你有10个表单需要重复加载基础信息的需求，推荐用标准模块+公共过程/函数的方式简化代码，避免重复：

方案1：公共函数（灵活适配不同控件） #

在Access中新建一个标准模块（比如命名为modCommon），写入以下代码：

' 获取当前系统用户ID
Public Function GetCurrentSysUserId() As String
    GetCurrentSysUserId = Environ("Username")
End Function

' 获取数据库中对应的用户名（处理DLookup返回Null的情况）
Public Function GetCurrentDbUserName() As String
    Dim sysUserId As String
    sysUserId = Environ("Username")
    ' 用Nz函数把Null转为空字符串，避免控件显示错误
    GetCurrentDbUserName = Nz(DLookup("User", "Adm_User", "UserId='" & sysUserId & "'"), "")
End Function

' 获取格式化后的当前时间
Public Function GetFormattedCurrentTime() As String
    GetFormattedCurrentTime = Format(Now, "dd/mm/yyyy hh:mm")
End Function

然后每个表单的Form_Load事件只需调用这些函数：

Private Sub Form_Load()
    Me.text_userId.Caption = GetCurrentSysUserId()
    Me.text_uSer.Caption = GetCurrentDbUserName()
    Me.text_dtNow.Caption = GetFormattedCurrentTime()
End Sub

方案2：公共过程（极致简化表单代码） #

如果所有表单的控件名称完全统一，可以进一步封装成公共过程，让每个表单的代码只需要一行：

在标准模块modCommon中写入：

Public Sub LoadBasicFormInfo(ByVal targetForm As Form)
    Dim sysUserId As String
    sysUserId = Environ("Username")
    Dim dbUserName As String
    dbUserName = Nz(DLookup("User", "Adm_User", "UserId='" & sysUserId & "'"), "")
    Dim currentTime As String
    currentTime = Format(Now, "dd/mm/yyyy hh:mm")
    
    ' 直接给目标表单的控件赋值
    targetForm.text_userId.Caption = sysUserId
    targetForm.text_uSer.Caption = dbUserName
    targetForm.text_dtNow.Caption = currentTime
End Sub

每个表单的Form_Load事件只需：

Private Sub Form_Load()
    LoadBasicFormInfo Me
End Sub

这种方式的优势在于，后续如果要修改基础信息的逻辑（比如时间格式、查询条件），只需要修改标准模块里的代码，无需逐个修改10个表单，维护成本大幅降低。

内容的提问来源于stack exchange，提问作者Tejota