何度もすいません アクセスにて

質問

アクセスにて
テーブル
氏名　月　開始時間　終了時間　１日　２日　３日・・・３１日
とデータを持っております。
氏名はそのまま　月は1～12の数字　開始時間　終了時間は23：00のような２４時間表記　　１日～３１日までのデータは
該当するところに-1の表記があり非該当はnull値となっております

フォームにて1日　と入力すると　1日に-1の入っているデータの
氏名　開始時間　終了時間　をすべて出したい場合
どのようにすればいいでしょうか？
フォームはカレンダーで1～31のチェックボックスを作成する予定です
フォームで入力した値で抽出をし　レポートに出したいのですが
いまいちやり方がわかりません　ご示唆お願いいたします。

回答No.2

nicotinism · ベストアンサー

「年」のフィールドが有りませんので、一年で使えなくなりますが
「やっつけ仕事」の様でもよければ・・・

フォームに非連結のテキストボックス（仮に「選択日」）とします。
この選択日の更新後処理にこんな風でしょうか・・
フィールドの１日～３１日の数字部分の半角・全角の違いで
パラメータの入力が出るかもしれません
その場合はすぐ下のと入れ替えてみてください
(行頭の ' を付け替える)
と言いますか
フィールドの１日～３１日の数字部分の半角・全角と
選択日の半角・全角が同じでないとマズイかも？
選択日のIME プロパティで、フィールドの１日～３１日の
数字と同じになるようにする必要があるかもです。

Private Sub 選択日_AfterUpdate()
Select Case Me!選択日
　　Case 0
　　Me.FilterOn = False
Case Else
　　Me.Filter = "[" & Me!選択日 & "日] = -1"
'　　Me.Filter = "[" & StrConv(Me!選択日, vbWide) & "日] = -1"
　　Me.FilterOn = True
End Select
End Sub

全く自信はございません。(^_^;)

お礼

ありがとうございます　時間がなかったのでやっつけ仕事でとりあえず
作りました。
稼動しながら徐々に修正していきたいと思います。

回答No.1

nicotinism

テーブル設計がExcel的ですね。
勤務管理か予約表みたいなものだと思いますが
最終的にどういった目的で使いたいのでしょう？
また時間は翌日に跨ぐことはありますか？

補足

そうなんですよ　まだまだアクセス初心者でエクセル的になってしまいました時間があれば勉強しながらって思うのですが　せかされているもので　とりあえずって感じです（＾＾；
最終目的は1ヶ月のカレンダーを出してカレンダーの中に時間の早い順に予定表を作りたいんですよね。