アクセスのフォームについて

質問

アクセスのフォームについて２件質問させてください。

その１
クエリーからあるフォームを作っていますが、元になるクエリー（テーブルにも）には項目がなく、ただそのフォームに表示されればいいというデータをそのフォーム上で入力したいのです。
そこで非連結でテキストボックスを作ったのですが、１ヶ所に入力するとどのページにも同じデータが表示されています。
それぞれのページに違うデータをフォームから直接入力するにはどのようにしたらいいでしょうか？

その２
大変むずかしい依頼がきて悩んでいます。
フォームでラベルや図形で1ヶ月を３等分した簡単な図を作り、
フォーム上のある日付をその図の中に●や▲で表示したいのです。
イメージは下のような感じですが、このようなことは可能でしょうか？

　　 　　2002/3　　　　　　　2002/4　　　　　　　　　　
┃ 　│ 　 │　 ┃　　│　●　│　　┃　　

以上２件一緒にして申し訳ございませんが、ご存知の方がいらっしゃいましたらよろしくお願いします。

回答No.4

Te-Sho · ベストアンサー

#2からです。

>その１はイベントもいろいろあるし「初期化や代入を行えばよい」と言われても・・・もう少し具体的だとありがたいのですが。
"レコード移動時"のイベントと書いたハズですが?フォームのイベントに有ります。
あと具体的と言いますが何をどうしたいのでしょうか？入力した値はどうやって保存するのですか？また、どうやってレコードに関連付けて持ってくるのでしょうか？その辺りが全く質問に記載されていなかったので取得方法、格納方法はクリアされていると思いました。
ただ、空にするのでしたらフォームのレコード移動時のイベントで
Me.テキストボックスのコントロール名 = null
で空になります。でも入力した値はどうやって保存されつおつもりでしょうか？

ご質問にうち以下の部分が分かりません
>元になるクエリー（テーブルにも）には項目がなく、ただそのフォームに表示されればいいというデータをそのフォーム上で入力したいのです。
>それぞれのページに違うデータをフォームから直接入力するにはどのようにしたらいいでしょうか？
どう考えても矛盾しています。クエリー、テーブルに項目が無い情報をどこでどうやって表示させるのですか？レコード毎違うデータなのでその情報はレコード毎に持っていなければならないはずです。その大元のテーブルになくても、その付随したテーブルとして同一キーで、その項目の情報を作成しておかなければレコード単位に違うデータをフォームから入力することは不可能です。

2に関してですがその処理はその期間だけ表示されれば終了ですか？他の期間にはある日付は入ってこないのでしょうか？

仕様の場合は開始日の日付を
clng(format([開始日],"dd"))
などで取り出して
select case文で区切ってあげれば済む話です。

まずフォームにはtext1～text6のテキストボックスを作り編集ロックにしておきます。
単純に書けば

dim yyyymm as string
dim dd as lng

dd = clng(format([開始日],"dd"))

select case yyyymm = format([開始日],"yyyymm")
case "200203"

select case dd
case 1 to 10
me.text1 = "●"
case 11 to 20
me.text2 = "●"
case is > 20
me.text3 = "●"
end select

case "200204"

select case dd
case 1 to 10
me.text4 = "●"
case 11 to 20
me.text5 = "●"
case is > 20
me.text6 = "●"
end select

end select

とやればいいです。
(あくまでザッと書いた物です。テストもしてないし工夫すればもっと短くできます。あと変数の属性もパッと作っただけです。)
この期間は今はオンコーディングですが文字列ですのでご自分で取得した文字列でも良いです。この辺りは臨機応変に変更してください。
それとももっと細かな微妙な位置での表示でしょうか？
それはこの方法では不可能ですね。
その場合は#3さんの方法だと思います。しかし10で割ってしまうと一ヶ月3ポイントしか打てないのでこれと同じですね。全く割らないと日数文スペースを表示するのでその位置になりますが、その場合フォントをMS P明朝やMS PゴシックではなくMS明朝やMSゴシックにすると等倍フォントになるので配置しやすくなります。

サンプルの式は開始日の年度の、一年前の12/31から開始日の日数を元にスペースを算出しているのでその辺りはご自分で調べて修正してくださいね。

お礼

丁寧にありがとうございました。
1.の件は納得しました。
>2に関してですがその処理はその期間だけ表示されれば終了ですか？他の期間にはある日付は入ってこないのでしょうか？
同じフォーム上に日付データはいくつもあり、処理を行いたい日付データもいくつもあります。

むずかしそうですが書いていただいた方法を試してみます。ありがとうございました。

回答No.3

maruru01

こんにちは。maruru01です。

1.
その非連結のテキストボックスを、[テキスト1]とすると、Form_Currentイベントに、

Me!テキスト1.Text = ""

と書く。

2.
ラベルや図形で書いた図に重ねるように、横の帯状のラベルを用意します。
そのラベルを[日付表示]とすると、Form_Currentイベントに、

Me!日付表示.Caption = =IIf(IsNull([開始日]),"",IIf(IsNull([終了日]),"",Space$(Int(([開始日]-DateSerial(Year([開始日])-1,12,31))/5)) & "●"))

ちなみにこの場合、5で割っているので、5日ごとにスペース1つ分ずつ、"●"の位置が右に移動します。
これを10日ごとに位置を動かせばよいなら、割る数を10に替えればいいです。逆も同じです。
いろいろな日付で試して、図の方の位置を調整して下さい。
あとは、ラベルのフォントサイズを変えるとか。

補足

ありがとうございました。
何度もすみませんがひとつだけ教えてください。
「Form_Currentイベント」というのがどこかわかりません。ラベルやテキストボックスのプロパティではないのですか？
それがわかればなんとかできそうな気がしますのでよろしくお願いします。

回答No.2

Te-Sho

1.フォームのレコードソースに連結していないコントロールだからレコードが移動しても、そのコントロールに対する初期化はされません。ですからレコードが移動しても前に入力した内容がそのまま残っています。
レコード移動時のイベントで、そのテキストボックスに対する初期化や代入を行えば良いだけです。

2.同じ幅のテキストボックスを作成して文字の位置は中央にし、日付の条件でその各々のテキストボックスの内容を判定して表示すれば良いのでは？テキストボックスは非連結にし、レコード移動時に判定して入れてあげれば良いかと。まぁラベルコントロールを使ってキャプションを変えても同じ事は出来ますが。
それが一番簡単な方法ですね。

補足

ありがとうございました。
せっかくですが私のレベルではちょっとわかりかねるご説明です。
その１はイベントもいろいろあるし「初期化や代入を行えばよい」と言われても・・・もう少し具体的だとありがたいのですが。

その２も同じくこれだけはどうしていいのかわかりません。
下に書きましたとおりです。この式の応用ができればと思ったのですが。

回答No.1

O_cyan

>その１
非連結でテキストボックスのプロパティのコントロールソースを空白にすれば良いのでは。
コントロールソースにフィールド名が入っているのではないですか？

>その２
いまいち内容がわかりません。
2002/3　2002/4　の部分の取得方法は？
３等分の印は日付からddの部分を抜き出しその値で表示させれば良いとおもいます。

補足

さっそくありがとうございました。
>その１
コントロールソースにフィールド名が入っているのではないですか？
いえ空白です。

>その２
2002/3　2002/4　の部分の取得方法は？
この表示そのものはラベルで作ります。
フォームにあるたとえば「開始日」という日付をこの図の該当する大体の位置に表示したいのです。

以前以下のような表を作りたいと質問したものです。

　　　　　　　｜　１　　月　｜　２　　月　｜　３　　月　｜　４　　月　｜　　５　月　｜　６　　月　｜
Ａ工事　　　　　　　＊＊＊＊＊＊＊＊＊
Ｂ工事　　　　　　　　　　　＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Ｃ工事　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　＊＊＊＊＊＊＊＊＊＊

その際、
=IIf(IsNull([開始日]),"",IIf(IsNull([終了日]),"",Space$(Int(([開始日]-DateSerial(Year([開始日])-1,12,31))/5)) & String$(Int(([終了日]-[開始日])/5),"*")))

という式をフォームのコントロールボックスに書けばできると答えていただき、うまく行きましたのでこれの応用ができないかと思ったのですが、どうしたらよいかわからいのです。