Ms access Access Delete命令无法识别变量

Ms access Access Delete命令无法识别变量,ms-access,vba,Ms Access,Vba,我试图使用Dlookup设置一个变量,该变量引用表中设置的数值。我不能像直接设置值那样正确设置格式。第一个命令起作用,第二个命令尝试删除不正确数量的记录,第三个命令提示我“输入参数” 请帮忙 Sub purge_whse() Dim purge As Integer purge = DLookup("Setting_Value", "app_settings", "[Setting_Name]='data_retention'") DoCmd.RunSQL "DELETE * FROM t

我试图使用Dlookup设置一个变量,该变量引用表中设置的数值。我不能像直接设置值那样正确设置格式。第一个命令起作用,第二个命令尝试删除不正确数量的记录,第三个命令提示我“输入参数”

请帮忙

Sub purge_whse()

Dim purge As Integer

purge = DLookup("Setting_Value", "app_settings", "[Setting_Name]='data_retention'")

DoCmd.RunSQL "DELETE * FROM tbl_whse_cr WHERE DateDiff('m',[INSERT_DTTM],Now()) > 13;"
DoCmd.RunSQL "DELETE * FROM tbl_whse_cr_edi_cnfg WHERE DateDiff('m',[INSERT_DTTM],Now()) > 'purge';"
DoCmd.RunSQL "DELETE * FROM tbl_whse_cr_edi_cnfg WHERE DateDiff('m',[INSERT_DTTM],Now()) > purge;"

我相信你想要的是:

DoCmd.RunSQL "DELETE * FROM tbl_whse_cr_edi_cnfg WHERE DateDiff('m',[INSERT_DTTM],Now()) > " & purge & ";"

“Purge”是一个变量,因此它必须存在于RunSQL字符串之外。

我相信您想要的是:

DoCmd.RunSQL "DELETE * FROM tbl_whse_cr_edi_cnfg WHERE DateDiff('m',[INSERT_DTTM],Now()) > " & purge & ";"
“Purge”是一个变量,因此它必须存在于RunSQL字符串之外