Access VBA创建模块报错：'NewObjectModule'当前不可用

你的问题核心是DoCmd.RunCommand依赖Access界面的实时状态，批量/自动执行时界面未就绪导致命令不可用，但单步执行时人为操作给了界面足够响应时间，所以功能正常。以下是几个可靠的解决方向：

1. 改用VBA对象模型直接创建模块（推荐） #

抛弃依赖界面的DoCmd.RunCommand acCmdNewObjectModule，直接通过Modules.Add方法创建模块，完全绕开界面状态限制，代码更稳定：

Public Function CreateModule(strModulename As String)
    Dim newMod As Module
    Dim modExists As Boolean
    
    On Error GoTo errHandler
    
    ' 先检查目标模块是否已存在
    modExists = False
    For Each newMod In Modules
        If newMod.Name = strModulename Then
            modExists = True
            Exit For
        End If
    Next newMod
    
    If modExists Then
        MsgBox "模块 " & strModulename & " 已存在"
        GoTo ExitHere
    End If
    
    ' 直接创建并命名模块
    Set newMod = Modules.Add(strModulename)
    ' 保存模块
    DoCmd.Save acModule, strModulename

ExitHere:
    Set newMod = Nothing
    Exit Function
errHandler:
    Call LogError("CreateModule-Utils")
    Resume ExitHere
End Function

这个方法无需依赖界面操作，不管是加载项自动执行还是手动触发都能稳定运行，同时还增加了模块存在性检查，避免重复创建的报错。

2. 强制确保Access界面激活（备选，不推荐） #

如果一定要保留DoCmd.RunCommand的写法，可以在执行命令前强制激活Access窗口，确保界面状态就绪：

' 在执行RunCommand前添加
AppActivate CurrentDb.Name ' 用当前数据库名称激活窗口
DoEvents ' 让界面完成激活响应

但这种方法依赖窗口标题，若数据库重命名或有同名窗口会失效，稳定性远不如对象模型方法。

3. 检查加载项的运行上下文 #

加载项如果是在后台线程、非UI触发的事件（比如定时任务）中执行，DoCmd命令会因为没有UI上下文而失效。确保你的函数是通过Access UI触发（比如自定义Ribbon按钮、窗体按钮点击），而非后台任务调用。

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