Question

我得到这个代码：当我运行这个

SQLQ = "SELECT * FROM blabla WHERE bsn = '" & 
Format(ThisWorkbook.Sheets("QueryResult").Range("B1").Value, 
"#########000000000") & "' AND datum= '#" & 
ThisWorkbook.Sheets("Initiële berekening").Range("C6").Value & "#'" 
    Debug.Print SQLQ 
    objRs.Open SQLQ, con, adOpenStatic 

我从VBA错误。 “标准表达式中数据类型不匹配”（错误-2147217913（80040e07））

随着debug.print我检查，如果它得到正确的价值观和它这样做，我不明白我做错了..

Answer 1

您还需要格式化的日期表达式：

SQLQ = "SELECT * FROM blabla WHERE bsn = '" & 
Format(ThisWorkbook.Sheets("QueryResult").Range("B1").Value, "#########000000000") & "' AND datum= #" & 
Format(ThisWorkbook.Sheets("Initiële berekening").Range("C6").Value, "yyyy\/mm\/dd") & "#"