如何在MS Access中使用文本框值作为参数执行查询或自定义函数？

踩过不少Access查询的坑，我来给你捋清楚这两种方式的问题和修正办法：

你写的CREATE FUNCTION是SQL Server的语法，Access里没法直接用这套逻辑，得分两种场景调整：

如果你的后端是SQL Server数据库 #

1. 先在SQL Server里创建好这个表值函数（不是在Access里操作），确保函数能正常执行。
2. 在Access里创建一个传递查询，指向你的SQL Server数据库，然后在按钮的点击事件里用VBA传递文本框的参数：

   Private Sub CommandButton1_Click()
       Dim qdf As QueryDef
       ' 替换成你的传递查询名称
       Set qdf = CurrentDb.QueryDefs("qry_传递查询调用函数")
       ' 匹配SQL Server函数的参数名@Jaar，传入文本框的值
       qdf.Parameters("@Jaar") = Me.Textbox1.Value
       ' 打开查询查看结果，也可以绑定到窗体/报表
       DoCmd.OpenQuery "qry_传递查询调用函数"
       Set qdf = Nothing
   End Sub
   

如果是纯Access本地数据库（.accdb/.mdb） #

Access不支持表值函数，你可以把逻辑改成参数查询，或者用VBA生成动态SQL来执行，比如：

Private Sub CommandButton1_Click()
    Dim strSQL As String
    Dim jaar As Integer
    jaar = Me.Textbox1.Value
    strSQL = "SELECT f.Fiets_id, f.Fiets_Type, SUM(DATEDIFF('d', h.Huurovereenkomst_Begin_datum, h.Huurovereenkomst_Eind_datum)) AS AantalDagen " & _
             "FROM Fiets f " & _
             "INNER JOIN HuurovereenkomstFiets hf ON hf.HuurovereenkomstFiets_Fiets_id = f.Fiets_id " & _
             "INNER JOIN Huurovereenkomst h ON h.Huurovereenkomst_id = hf.HuurovereenkomstFiets_Huurovereenkomst_id " & _
             "WHERE YEAR(h.Huurovereenkomst_Begin_datum) = " & jaar & " " & _
             "AND YEAR(h.Huurovereenkomst_Eind_datum) = " & jaar & " " & _
             "GROUP BY f.Fiets_id, f.Fiets_Type"
    ' 执行SQL并打开结果
    DoCmd.OpenQuery "qry_DynamicResult", acViewNormal
    ' 或者绑定到列表框显示
    ' Me.ListResult.RowSource = strSQL
    ' Me.ListResult.Requery
End Sub

你之前的写法错在控件引用语法，Access里不能直接写Textbox1，必须指定窗体名称，还有DATEDIFF的参数格式也得改：

1. 修改你的查询SQL，正确引用窗体控件：

   SELECT f.Fiets_id, f.Fiets_Type, SUM(DATEDIFF('d', h.Huurovereenkomst_Begin_datum, h.Huurovereenkomst_Eind_datum)) AS AantalDagen
   FROM Fiets f
   INNER JOIN HuurovereenkomstFiets hf ON hf.HuurovereenkomstFiets_Fiets_id = f.Fiets_id
   INNER JOIN Huurovereenkomst h ON h.Huurovereenkomst_id = hf.HuurovereenkomstFiets_Huurovereenkomst_id
   WHERE YEAR(h.Huurovereenkomst_Begin_datum) = Forms!你的窗体名称!Textbox1 
     AND YEAR(h.Huurovereenkomst_Eind_datum) = Forms!你的窗体名称!Textbox1
   GROUP BY f.Fiets_id, f.Fiets_Type
   

   注意：把你的窗体名称换成你实际的窗体名字，比如frm_FietsJaarStatistiek；Access的DATEDIFF第一个参数用缩写'd'表示天数，不是SQL Server的DAY。

2. 按钮点击事件直接调用这个查询就行：

   Private Sub CommandButton1_Click()
       ' 打开查询显示结果
       DoCmd.OpenQuery "你的查询名称"
       ' 如果要在窗体上显示，比如绑定到列表框
       ' Me.ListResult.RowSource = "你的查询名称"
       ' Me.ListResult.Requery
   End Sub
   

• 一定要确保Textbox1输入的是整数年份（比如2024），可以加个输入验证避免错误：

  Private Sub Textbox1_BeforeUpdate(Cancel As Integer)
      If Not IsNumeric(Me.Textbox1) Or Me.Textbox1 < 1900 Or Me.Textbox1 > Year(Date) + 1 Then
          MsgBox "请输入有效的年份（比如2024）！"
          Cancel = True
      End If
  End Sub
  

• 如果用传递查询，要确认Access和SQL Server的连接字符串正确，参数名称和SQL Server函数的参数完全匹配（包括大小写，取决于SQL Server的排序规则）。

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