ＡＣＣＥＳＳ2000；日付と曜日表示について

質問

ＡＣＣＥＳＳ2000で本日の日付を曜日と一緒に表示することについて。
=date()やformatを使ってやってみたら出来るのですが、この場合、=と直結してしまうため、せっかく日付と曜日を表示できてもコンボボックスをいじれなくなってしまいました。私が作ろうとしている表示は

　　　　年　　　　月　　　　日　　　　曜日

で、各テキストボックスに、このフォーマットを開いたら本日の表示が出る。しかし、変更も各、コンボボックスで可能（西暦以外）というものです。
ただ表示するだけではなく、変更も可能にしようと思えば、どうしたらよいでしょうか？
ちなみにＡＣＣＥＳＳやプログラミングはまだ１週間という初心者です。
早急に業務で作らなければならなく、困っています。
お願いします。

回答No.3

CHRONOS_0 · ベストアンサー

御希望通りの事をしようと思えば
テーブルに年、月、日と曜日のフィールドが必要です

しかも自動で本日を表示させる、年月日曜日の入力でありえないものが入力されたらはじく
と言うような事をするにはVBAも必須になってきます

>ＡＣＣＥＳＳやプログラミングはまだ１週間という初心者です。
にはお勧め出来ない仕様ですね

日付を扱うには用意されている日付時刻型を使用するのが一番いいですよ
(年、月、日、曜日を分けて入力したり出来ませんけどね)

日付入力を簡素化したければ
ActiveXのカレンダーコントロールなんてものもありますから研究してみては

回答No.4

QiYoCiLi

見積もりを取って外注さんに依頼してみては？

回答No.2

O_cyan

フォームのプロパティでレコード移動時のイベントに下記を記述してください。
例えば年・月・日・曜日の各コンボボックスをコンボ1・2・3・4とした場合。(コンボ1などの名前は作ってあるコンボの名前に変更してください。)
Private Sub Form_Current()
Me.コンボ1 = Year(Date)
Me.コンボ2 = Month(Date)
Me.コンボ3 = Day(Date)
Me.コンボ4 = WeekdayName(Weekday(Date))
End Sub
としてコンボボックスに値をセットさせれば出来ます。
変更も出来ます。
曜日は
WeekdayName(Weekday(Date))や
WeekdayName(Weekday(Date), False)
とすれば月曜日のように曜日まで表示され
Me.コンボ4 = WeekdayName(Weekday(Date), True)
とすれば月・火のように表示されます。

回答No.1

Hayashi_Trek

Formのコントロールと仮定して
FormのLoadイベントで年、月，日の各コンボボックスに値を入れればよい。
入れる値は、Year(noe()), Month(now()), Day(now())
曜日のコンボボックスは、年月日と独立して動くとだめなので
年，月，日のChangeイベントで年月日の値を取得して
Week(DateSerial(年，月，日))で曜日番号を取得して設定すれば良いでしょう。
イベントやプロパティについては、F1キーでヘルプを見てください。