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