'-------------------------

  '―――――――――

  '｜　　検証用　　｜

  '―――――――――

  'DoCmdClose acQuery, "QQQ検証"　'クエリを閉じる("QQQ検証"が存在不問)

  'intX = DCount("*", "[MsysObjects]", "[Name]='QQQ検証' And [Type]=5")　’"QQQ検証"の存在確認

  'If intX <> 0 Then ’"QQQ検証"が存在していたら、削除する

  ' DoCmd.DeleteObject acQuery, "QQQ検証"

  'End If

  'Dim qdf As DAO.QueryDef '変数宣言

  'Set qdf = CurrentDb.CreateQueryDef("QQQ検証", mySQL) 'クエリを作成

  'DoCmd.OpenQuery "QQQ検証" 'クエリを表示