訪問刪除命令無法識別變量

Question

我想使用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;" 

Answer 1

你想要什麼，我相信是：

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

「清理」 是一個變量，因此它必須存在RunSQL串之外。