vba - 查询表达式 '2020-12-01'中的语法错误(缺少运算符)

Question

我写了这段代码。当我尝试激活此子项时，我总是会遇到此问题“查询表达式'2020-12-01'中的语法错误(缺少运算符)”。日期有问题(波兰语中的数据表示日期)。
您能帮我解决这个问题吗？我只想从表单中获取“Kolejka”，“stadion”，“Data”并将其添加到我的表Rozgrywki中。
我还在访问中附加了此错误的图片和表单的图片。
Runtime error "3075"
Dialog being composed

 Public Sub Dodaj(Kolejka, stadion, Data, DA, DB, Optional wa = 0, Optional wb = 0)
    If [wa] = "" Then wa = 0
    If [wb] = "" Then wb = 0
    DoCmd.SetWarnings False
    dodaj_rozgrywka = "" & _
            "INSERT INTO Rozgrywki ( IDStadionu, Data, Idkolejki)" & _
            "SELECT " & stadion & " AS Wyr1, #" & Data & "# AS Wyr2;, " & Kolejka & " AS Wyr3;"
    DoCmd.RunSQL (dodaj_rozgrywka)

Answer 1

将日期值格式化为字符串表达式:

"SELECT " & stadion & " AS Wyr1, #" & Format(Data, "yyyy\/mm\/dd") & "# AS Wyr2;, " & Kolejka & " AS Wyr3;"

或使用我的 CSql函数。更好的是，学习使用带参数的查询。