教えて！アクセス2007！/Access2007・期日指定で表示させる

質問

教えて！アクセス2007！/Access2007・期日指定で表示させる方法

データーの日付は　テキスト型で定型入力を>L99\年99\月99\日と設定し

このように表示させてます→　H20年03月26日　

このデーターからH20年03月26日からH22年07月31日までの

抽出方法を教えて下さい。

回答No.5

piroin654

訂正です。

＞説明の通りＳＱＬにコピーして貼り付けてみるのですが
＞うまくいきません

の原因だと思いますが、#4において、

############################
名前を　Q期日指定　とします。

SELECT T日付.納品日
FROM T日付
WHERE (((Format(CDate(Format([日付],"@@@@\/@@\/@@")),"gee\年mm\月dd\日")) Between [Forms]![F検索]![tx開始日] And [Forms]![F検索]![tx終了日]));
############################

としていましたが、中の[日付]を[納品日]にするのを
忘れていました。したがって、

SELECT T日付.納品日
FROM T日付
WHERE (((Format(CDate(Format([納品日],"@@@@\/@@\/@@")),"gee\年mm\月dd\日")) Between [Forms]![F検索]![tx開始日] And [Forms]![F検索]![tx終了日]));

が正しいです。確認しておいてください。
これで動作すると思います。

フォームで表示したい、ということなので設定の手順を
述べます。

(1)　クエリの作成
Q期日指定と同じ内容ですが、フォームの名前を
変えておきます。

SELECT T日付.納品日
FROM T日付
WHERE (((Format(CDate(Format([納品日],"@@@@\/@@\/@@")),"gee\年mm\月dd\日")) Between "H20年01月01日" And "H20年01月01日"));

これで新規にクエリを作り、名前を「Q期日検索」としてください。

(2) フォームの作成
フォームの新規作成から、「オートフォーム表形式」を
選択し、「基になるテーブルまたはクエリの選択」で
「Q期日検索」を選択し、出来たフォームの名前を
「F期日検索」として保存してください。パラメータが
表示されますが

(3) フォームの調整1
出来たフォームをデザインビューで開き、詳細のところに
カーソルを当て、十字になったらクリックして下に3cmくらい
押し下げてください。ついでにラベルも下に移動させてください。
フォームの幅は適度に広くしておいてください。

空いたところに、テキストボックスを二つ、ボタンを
二つ設定してください。

テキストボックスの名前はそれぞれ、
「tx開始日」と「tx終了日」
にしてください。
それぞれのテキストボックスの定型入力に

L99\年99\月99\日;;_

を貼り付けてください。

(4) フォームの調整2
二つのボタンの名前をそれぞれ、
「cmd抽出」と「cmd解除」
にしてください。

フォームのコード表を開き、以下を貼り付け
保存してください。

Private Sub cmd解除_Click()
Me.RecordSource = "SELECT * FROM T日付 WHERE (((Format(CDate(Format([納品日],'@@@@\/@@\/@@')),'gee\年mm\月dd\日')) Between 'H20年01月01日' And 'H20年01月01日'))"
End Sub

Private Sub cmd抽出_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Me.RecordSource = "SELECT * FROM T日付 WHERE (納品日 Between '" & Me!tx開始日 & "' AND '" & Me!tx終了日 & "')"
End Sub

(5) フォームの調整3
フォームのレコードソースのところに
Q期日検索
と表示されていますが、これを消して、
改めて、(1)　クエリの作成
のところにある「Q期日検索」のSQL文を
コピーして貼り付けてください。
これにより、「Q期日検索」はいらなくなるので
削除してもかまいません。

以上で設定終了です。フォームを開いたときに
はフォームのコントロールソースで
Between 'H20年01月01日' And 'H20年01月01日'
としているように特定の日を表示するように
しておき、フォームにすべてのデータを表示
しないようにしておきます。選択したときに
選択したデータが表示されます。
cmd解除を押すと開いたときと同じになります。
もし、H20年01月01日の日付がテーブルに
なければ何も表示されません。

補足

いつもありがとうございます。
返事遅くなって申し訳ありません

ずっとアドバイス通り、がエラーメッセージが次のようにでます

「式が正しく入力されてないか、数式に複雑な要素が多すぎます。
式を簡単にしてください」

色々してみるのですがうまくいきませんでした。

他に方法はあるのでしょうか？