由于您提到您是一个非常新的访问者，因此我不得不邀请您首先删除代码中的错误（for循环和SQL语句不完整）。否则，您肯定需要for循环才能在某个范围内插入日期。
现在，请使用下面的代码将日期值插入表格中。我已经测试了代码，并且可以正常工作。您也可以尝试。之后，添加您的for循环以适合您的情况
Dim StrSQL As StringDim InDate As DateDim DatDiff As IntegerInDate = Me.FromDateTxtStrSQL = "INSERT INTO Test (Start_Date) VALUES ('" & InDate & "' );"DoCmd.SetWarnings FalseDoCmd.RunSQL StrSQLDoCmd.SetWarnings True
