重新查询使用字符串

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字符串如下，但没有任何工作：

& " 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 

最后的 “;”没用。