【Access 】【VBA】SQLチェッカー

SQLを作った時のチェック用。
成功すれば、クエリ―に結果が表示される。
NGならば、エラーがでる。

Access2013,Windows8
参照設定：DAO

空のクエリ１を作成すること。

Sub sql_chk()

Dim str_DataName As String
Dim sql As String

'抽出条件設定用無ければ、無視で。
Dim A As String, B As String, C As String
A = "20150731"
B = "01"
C = "01"

'作成したSQLを入れる

sql = "SELECT tbl_ほげほげ.年月日, " _
& "tbl_ほげほげ.時間帯, " _
& "tbl_ほげほげ.対応者, " _
& "tbl_ほげほげ.対応区分, " _
& "tbl_ほげほげ.内容, " _
& "FROM tbl_ほげほげ " _
& "WHERE (((tbl_ほげほげ.年月日)='" & A & "') AND " _
& "((tbl_ほげほげ.時間帯)='" & B & "') AND " _
& "((tbl_ほげほげ.区分)='" & C & "'));"

str_DataName = sql

Dim iCount As Integer

Dim DB As DAO.Database
Dim RS As DAO.Recordset

Set DB = CurrentDb
Set RS = DB.OpenRecordset(str_DataName)
'SQLがダメなら↑が黄色くなる。

iCount = RS.RecordCount
Debug.Print iCount & "件です"

'クエリ表示チェック用
DB.QueryDefs("クエリ1").sql = str_DataName
DoCmd.OpenQuery "クエリ1"

Set RS = Nothing
Set DB = Nothing

End Sub