ACCESSの日付について。

質問

テキストボックスが４つあります。
それぞれのテキストボックスに
テキストボックス１⇒「西暦」
テキストボックス２⇒「月」
テキストボックス３⇒「日」
を入力し、テキストボックス４にそれらを合わせた
⇒「西暦」／「月」／「日」
とかえすようにしたいのですが、
それそれのテキストボックスの『書式』・『コントロールソース』はどのようにしたら良いでしょうか？

宜しくお願い致します。

回答No.2

nicotinism · ベストアンサー

テキストボックス１⇒「西暦」
テキストボックス２⇒「月」
テキストボックス３⇒「日」
を入力し、テキストボックス４にそれらを合わせた
⇒「西暦」／「月」／「日」

フォームの元となっているレコードソース（テーブルやクエリなど）との
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
関連が開示されていないので、単純に年月日を出す場合について「怪答」します。
~~~~~~~~~~~~~~~~~~~~~~
それぞれのボックス名をTB1～TB4として
TB1～TB3 までを選択し
IME入力モード保持 → いいえ
IME入力モード → オフ
（全角文字の排除）
書式 → 固定
小数点以下表示桁数 → 0

TB1だけを選択
データ → 入力規制 → >99 And <9999
規定値 → =Year(Date())

TB2だけを選択
データ → 入力規制 → >0 And <13
規定値 → =Month(Date())

TB3だけを選択
データ → 入力規制 → >-1 And <32
規定値 → =Day(Date())

TB4にはコントロールソースに
=DateSerial([tb1],[tb2],[tb3])
編集ロック → はい

TB1～TB3まで規定値を設定してあるのは、ここに値がないと
TB4にエラーが出るので、苦肉の策です。
TB3に0（ゼロ）を入れた場合は前月の月末が出ます。

これでありえない日付は大体弾けますが、大の月・小の月・うるう年の区別は
つきませんので、やるとしたら
T4のコントロールソースを
=IIf(Month(DateSerial([tb1],[tb2],[tb3]))=[TB2],DateSerial([tb1],[tb2],[tb3]),0)
とでもすると分かりやすいかも？
但しこの場合は前月末も出てきません。

お礼

ありがとうございます～！
それにしても一つの問題に対して色々答えが出るものですね…。
nicotinismさんのが一番緻密で私の要望には一番合っていました。
内容もすごい分かりやすかったです！
なんか「とっつきにくい」と思っていたACCESSが楽しくなってきました。
また相談に乗ってくださいね♪

回答No.3

O_cyan

>テキストボックス４にそれらを合わせた「西暦」／「月」／「日」とかえすようにしたい

特に難しい記述は必要ありません。
テキストボックス３の更新後処理に
Me!テキストボックス４=CDate([テキストボックス１] & "/" & [テキストボックス２] & "/" & [テキストボックス３])
とすればテキストボックス１～３まで順に入力しテキストボックス３に「日」を入力しEnterキーなどを押された時点でテキストボックス４に日付として代入できます。

Private Sub テキストボックス３_AfterUpdate()
Me!テキストボックス４=CDate([テキストボックス１] & "/" & [テキストボックス２] & "/" & [テキストボックス３])
End Sub
こんな感じです。

お礼

いや～すごい！
ありがとうございます！！

こんなにシンプルで且つ明瞭な説明…

また色々ご教授ください！

ありがとうございました。

回答No.1

enon39

テキストボックス1,2,3 の書式は「数値」で、コントロールソースはテーブルに直結していなければ設定する必要は無いと思います。
テキストボックス４への代入ですが、
text4=format$(trim(str$(text1))+"/"+trim(str$(text2))+"/"+trim(str$(text3)),"yyyy/mm/dd")
で日付が代入出来ます。更新イベントやフォーカスイベントで値を代入すればいいと思います。
月,日の入力値以上（４０日とか１５月とか）はformat関数のエラーで引っかけられます。

参考になればいいのですが．．．

補足

ありがとうございます！

私が初心者のため情けないのですがもう少しお付き合いいただけませんでしょうか？

>更新イベントやフォーカスイベントで値を代入すればいいと思います。

とは具体的にどこに何をしたら良いのでしょうか？