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からエラーを取得します。それが正しい値を取得し、それは私が私が間違って何を取得しないんならば、私はチェックします。Debug.Printで 「抽出条件式でのデータ型の不一致」（エラー-2147217913（80040e07））

..

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