Access运行AutoExec函数时出现函数参数数量错误求助

直接原因：函数调用缺参数 #

你收到的错误提示"Expression entered has a function containing the wrong number of arguments"，核心问题是AutoExec宏调用AutoEmail函数时，没给它传要求的MySQL参数。

你的AutoEmail函数定义是Public Function AutoEmail(MySQL As String)，必须接收一个SQL字符串参数才能运行，但AutoExec里调用它的时候没传这个参数，所以触发了参数数量错误。

具体修复步骤 #

1. 修正AutoExec宏的调用
   打开AutoExec宏，找到调用AutoEmail的RunCode动作，在函数名后补充SQL参数，比如：

   AutoEmail("SELECT * FROM 你的数据表 WHERE [3D Due Date] = Date() + 1")
   

   这里的SQL要根据你的业务逻辑编写，筛选出需要发送邮件的目标记录。

2. 修复代码里的隐藏问题
   你的AutoEmail代码还有几个小bug，建议一并修正：

   • 错误处理语法错误且被注释，改成：

     On Error GoTo ErrorHandler
     ' ... 原有代码 ...
     
     ErrorHandler:
         If Err.Number <> 0 Then
             MsgBox "发送邮件出错: " & Err.Description, vbExclamation
         End If
         ' 清理资源
         If Not rs Is Nothing Then
             If rs.State = dbOpen Then rs.Close
             Set rs = Nothing
         End If
         Set oEmailItem = Nothing
         Set oOutlook = Nothing
     

   • oOutlook变量未初始化，第一次判断Is Nothing会报错，先添加初始化语句：

     Dim oOutlook As Outlook.Application
     Set oOutlook = Nothing ' 先初始化变量
     

   • rs.RecordCount可能不准确，打开记录集后先移动到末尾再返回开头，确保计数正确：

     Set rs = CurrentDb.OpenRecordset(MySQL)
     If Not rs.EOF Then
         rs.MoveLast
         rs.MoveFirst
     End If
     If rs.RecordCount > 0 Then
     ' ... 后续循环代码 ...
     

3. 手动测试函数
   先在VBA编辑器的立即窗口手动调用函数，验证参数传递是否正常：

   AutoEmail("SELECT TOP 1 * FROM 你的数据表")
   

   如果能正常运行，说明函数本身没问题，再回到AutoExec宏调试。

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