OfficeAccessVBAクロス集計クエリなんかの年月指定をフォームの値を使って可変にしたかったので、エラー処理のためにレコードの存在を調べるメモ。#2016/08/31#としたほうが良さそうです。chipsそこへ、こんな感じのフォームのコントロールの値を使って指定します。Subシンプルに書くとこんな感じ。このコードはDAO接続で書いてます。ADOでも書けますので、詳しくはこちらをご参照ください。AccessVBAでSQLを書いてレコードを抽出・フィールドを取り出す実際、年は4桁の西暦であるとか、存在しない月はダメだとか、そもそも指定範囲にレコードが存在しないとかいろいろひっくるめてエラー処理をつけると、こんな感じかなぁ。"数値を入力してください。"年は4桁の西暦で指定してください。"存在しない年月です。レコードは存在しません。Sub※コメントでチェック条件の抜けをご指摘いただきまして追加しました!以上です!公開日:2016/11/02更新日:2016/11/22書籍を執筆しています。OfficeExcelVBAでカレンダーコントロールを自作するExcelで1行・1列おきの合計を求めるSUM関数の書き方これからExcelのマクロを勉強したいという方に!簡単な練習問題作りました。PMいつも拝読しています。