Access 2016 VBA公共变量跨函数与Form_Load丢失值问题求助

我之前也踩过这个坑！Access里的公共变量有时候确实会莫名其妙丢失值，大概率是因为Access的模块加载机制或者会话内的变量重置问题，咱们一步步来搞定：

先拆解问题根源 #

你的公共变量vUser放在标准模块里本身是合规的，但Access在某些场景下（比如窗体意外重新初始化、编译错误触发全局重置、或者模块被临时卸载）会清空公共变量的值。另外，你把SetUserID放在窗体模块里作为公共函数，调用时可能存在作用域混淆，导致赋值没有正确作用到标准模块的vUser上。

解决方案1：改用TempVars存储（最可靠） #

TempVars是Access专门设计的会话级存储对象，整个Access运行期间都不会丢失值，比公共变量稳定太多。修改代码如下：

标准模块（简化版） #

Option Compare Database
Public Function fnUserID() As String
    Dim Wshnetwork As Object
    Set Wshnetwork = CreateObject("wscript.Network")
    fnUserID = Wshnetwork.UserName
    Set Wshnetwork = Nothing ' 用完记得释放对象，避免内存泄漏
End Function

启动窗体代码 #

Private Sub Form_Load()
    ' 直接把用户名存入TempVars
    TempVars.Add "vUser", fnUserID()
    txtBox.Value = TempVars("vUser").Value
    
    ' 之后在其他任何地方要使用用户名，直接调用TempVars("vUser").Value就行
End Sub

解决方案2：优化公共变量的赋值逻辑 #

如果你坚持要用公共变量，那得确保赋值的作用域绝对清晰，避免变量被意外重置：

标准模块 #

Option Compare Database
Public vUser As String

' 把赋值逻辑移到标准模块里，避免窗体作用域干扰
Public Sub SetUserID()
    Dim Wshnetwork As Object
    Set Wshnetwork = CreateObject("wscript.Network")
    vUser = Wshnetwork.UserName
    Set Wshnetwork = Nothing
End Sub

启动窗体代码 #

Private Sub Form_Load()
    ' 直接调用标准模块的赋值过程
    Call SetUserID
    txtBox.Value = vUser
End Sub

这样修改后，赋值操作直接作用在标准模块的公共变量上，彻底避免了窗体模块的作用域干扰。另外可以检查下Access选项，关闭“关闭时压缩数据库”这类可能触发模块重置的设置，同时确保没有其他代码意外修改了vUser的值。

额外小提示 #

• 尽量少用公共变量存储关键业务数据，TempVars或者自定义类模块是更稳定的选择
• 所有创建的对象（比如Wshnetwork）用完一定要用Set 对象 = Nothing释放资源

内容的提问来源于stack exchange，提问作者L.P.