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