使用字符串中的变量重新查询

Question

我无法使用 SQL 字符串重新查询我的子表单，这是我的代码：

Dim Day As Integer
Day = txt_Days.Value         
SQL = "SELECT [qry_Records].[Tool_ID], [qry_Records].[Cal_Date]," _
    & "[qry_Records].[Cal_By], [qry_Records].[As_Received], " _
    & "[qry_Records].[Result], [qry_Records].[Next_Due], " _
    & "[qry_Records].[Due] FROM [qry_Records]" _
    & " WHERE [qry_Records].[Due] < Day;"

subform_View_Search_Records.Form.RecordSource = SQL

我尝试使用不同的变体在 SQL 字符串末尾引用 Day 变量，如下所示，但没有任何效果：

& " WHERE [qry_Records].[Due] < ""Day"";"
& " WHERE [qry_Records].[Due] < '"Day"';"

非常感谢您的帮助！

Answer 1

你只需要添加几个＆符号

& " WHERE [qry_Records].[Due] < " & Day & ";"

Answer 2

我会试试这个：

SQL = "SELECT [Tool_ID], [Cal_Date]," _
    & "[Cal_By], [As_Received], " _
    & "[Result], [Next_Due], " _
    & "[Due] FROM [qry_Records]" _
    & " WHERE [Due] < " & format$(txtDays, "\#dd\/mm\/yyyy\#")

subform_View_Search_Records.Form.RecordSource = SQL

最后的“;”没用。