Access VBA自定义GetUser函数未在Expression Builder中显示的问题

我帮你排查下问题，顺便调整下代码，让它用得更顺畅：

为什么Expression Builder找不到你的函数？ #

最常见的两个坑：

• 函数放错了位置：Access的表达式生成器只认标准模块（就是VBA编辑器里插入的独立“模块”，不是窗体/报表自带的代码模块）里的Public函数。要是你把GetUser写在窗体模块里，哪怕加了Public，Builder也找不到它。
• 模块名和函数名重名：比如模块叫GetUser，函数也叫GetUser，Access会搞混，直接识别失败。

一步一步解决 #

1. 把函数移到标准模块里 #

打开VBA编辑器（按Alt+F11）：

• 右键数据库对象，选插入->模块，新建一个标准模块。
• 给模块起个不重复的名字，比如modADUserTools（千万别叫GetUser！）。
• 把你的GetUser函数复制粘贴到这个模块里。

2. 修正函数里的小问题（避免报错） #

你的代码少了对象声明，也没做错误处理（比如AD访问失败的情况），我给你调整了下：

Public Function GetUser(Optional whatpart As String = "username") As String
    Dim returnthis As String
    Dim objSysInfo As Object
    Dim objUser As Object
    
    ' 默认返回系统用户名，作为AD访问失败的备选方案
    returnthis = Environ("USERNAME")
    
    If whatpart = "username" Then
        GetUser = returnthis
        Exit Function
    End If
    
    ' 尝试从AD获取信息，加上错误处理防止崩溃
    On Error Resume Next
    Set objSysInfo = CreateObject("ADSystemInfo")
    Set objUser = GetObject("LDAP://" & objSysInfo.USERNAME)
    
    If Err.Number = 0 Then
        Select Case LCase(whatpart) ' 转小写，避免大小写匹配出错
            Case "fullname": returnthis = objUser.FullName
            Case "firstname", "givenname": returnthis = objUser.givenName
            Case "lastname": returnthis = objUser.LastName
            Case Else: returnthis = Environ("USERNAME")
        End Select
    End If
    
    ' 清理对象，释放资源
    Set objUser = Nothing
    Set objSysInfo = Nothing
    
    GetUser = returnthis
End Function

3. 在Expression Builder里找到它（或者直接写表达式） #

• 打开Expression Builder后，展开函数->用户定义，就能看到GetUser函数了（前提是已经移到标准模块）。
• 其实更快捷：直接在文本框的控件来源里输入表达式，比如=GetUser("fullname")，不用非要在Builder里找。

4. 用函数填充隐藏文本框并记录数据 #

• 在窗体上添加隐藏文本框，设置它的控件来源为你需要的表达式，比如=GetUser("username")。
• 要把值保存到数据库的话：
  • 可以直接把文本框绑定到表的对应字段（注意控件名称和控件来源别冲突）。
  • 或者在窗体的BeforeUpdate事件里写代码赋值：

    Private Sub Form_BeforeUpdate(Cancel As Integer)
        Me!你的表名_用户名字段 = Me!txtHiddenUser.Value
    End Sub
    

先测试函数是否正常 #

在VBA编辑器里打开立即窗口（按Ctrl+G），输入以下命令测试：

?GetUser("fullname")
?GetUser("firstname")

如果能正常返回你的AD用户信息，说明函数没问题，接下来在Expression Builder里就能找到了！

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