アクセスでの日付入力

質問

アクセスでの日付入力

役に立った：2件

質問者：t-tomo
投稿日時：2002/02/13 14:59
困り度：

ＡＣＣＥＳＳで手間のかかる日付入力を出来るだけ簡単に入力できたらと考えています。
カレンダーコントロールを使用すると、日付入力のテキストボックスの数分カレンダーコントロールが必要になってしまうので、出来れば今日の日付を常に表示してボタンを使って前後の日付に変更出来るようにしたいと思っているのですが。
もしくは、コンボボックスのように矢印をクリックすると、カレンダーが出てくるのでも良いのですが。
何か良い方法があれば教えて下さい。

この質問への回答は締め切られました。

回答(2件)

No.2ベストアンサー10pt

回答者：SpeedKing
回答日時：2002/02/13 22:07

カレンダーコントロールを貼り付けたダイアログ用フォームを作成して、そこで選択した日付を該当するテキストボックスに戻す、というのは如何でしょうか。この場合、上記フォームをオープンするボタンあるいはテキストボックスのダブルクリックイベント等で、フォームをオープンする際に引数として戻すコントロールを指定すれば良いと思います。
日付入力用の部品として共通で使用できますけど。

通報する

この回答への補足

ダイアログ用フォームとはどのように作成するのですか？
またOpenFormで引数として戻すコントロールの指定が分からないのですが...

質問者のみ：
この回答にお礼をつける

No.1ベストアンサー20pt

回答者：gonta_goma
回答日時：2002/02/13 20:22

私がよく使ってる方法ですが。
日付を表示するのはテキスト0で、コマンド1というボタンに以下を書き込みます。

Private Sub コマンド1_Click()
　If IsDate(テキスト0.Value) Then
　　テキスト0.Value = CDate(テキスト0.Value) + 1
　Else
　　テキスト0.Value = Date
　End If
End Sub

テキスト0が空欄や日付以外だったら今日の日付にし、日付が入っていたら1日進めます。
これと日付を戻すボタンを作れば良いと思います。
日付を戻すには、テキスト0.Value = CDate(テキスト0.Value) - 1　にします。

通報する