SQL Access VBA Excel

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") & "#"