Access2021で作成していて、使用するのはAccess2016です。
非連結のテキストコントロール「Tx_日付A」と「Tx_日付B」があります。
この2つは 書式:日付(S)、日付選択カレンダーの表示:日付 にしてあります。
2つのテキストボックスともに選択すればカレンダーが表示されるのですが、初期値として Tx_日付Aは「1カ月前」、Tx_日付Bは「1カ月後」を表示させたいと思っています。
具体的には、今日が8月2日とすればTx_日付Aは 7月のカレンダー、Tx_日付Bは9月のカレンダーを表示させたいのです。
ネットで調べてみたところDTPicker.Valueに初期値を設定すればよいといった記述が有ったのですが、例えば
Me.Tx_日付A.DTPicker.Value=DateAdd("m", -1, Date)
のようにやってもエラーが出るだけでした。
また、ネット上で「DTPicker.Value」を調べてみたときに
DTPicker0.Value
DTPicker1.Value
のように DTPicker の後ろに番号がついている記述が多くありました。
この番号はDTPicker1つ1つを示しているように思えたのですが、コントロールに紐づけされているDTPickerが何番なのかを調べる方法も分かりませんでした。
質問なのですが、非連結のテキストボックスでカレンダーを表示させたとき、カレンダーの初期値を1カ月前(または1カ月後)に設定するにはどうしたらよいのでしょうか?
よろしくお願いいたします。
No.1ベストアンサー
- 回答日時:
こんにちは。
それは以前の Access で利用できていた ActiveXコントロール(Microsoft Date and Picker Control 6.0)という別物の情報でしょう。現在の Access (2010以降)では利用できなったものです。
そのかわりに、現在は日付型のデータ入力時に Access が自動でカレンダーコントロールを表示してくれてます。
さて、初期値の件ですが。
Me.Tx_日付A.Value = DateAdd("m", -1, Date)
としてテキストボックス側に初期値を入れてみては?
回答ありがとうございます。
ありゃ、今では使えない過去のものだったのですね。。。
それが分かっただけでも、大変ありがたいです。
テキストボックスに初期値を入れると、その月(質問の例では前月)のカレンダーになりました。
ただ、入力値が必ず前月の同日とは限らないので少し使いづらそうです。
カレンダーそのものが変更できないのであれば、このまま使う方が良いように思いました。
とは言え、回答いただけなければ長時間無駄な時間を費やすことになっていたと思いますので、大変ありがたく思います。
本当にありがとうございました!!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの数式で教えてください。 2 2023/01/10 09:15
- Visual Basic(VBA) excel2016でリストからカレンダーに内容を反映させたいです 2 2022/10/27 15:32
- Excel(エクセル) エクセルについて教えてください。 1 2023/03/03 08:38
- Excel(エクセル) 製品番号での整列と、検索に関して 3 2023/06/28 19:20
- Excel(エクセル) 下記エクセルの式がなぜこうなるのか理由が知りたいです。 6 2022/08/20 00:43
- Visual Basic(VBA) ExcelのVBAでシフト表を作っていますが、バグが出て困っています 2 2022/09/13 11:33
- Wi-Fi・無線LAN PCWi-Fiの設定方法がわからなくて困っています。 4 2022/12/28 18:30
- Excel(エクセル) エクセルの数式で教えてください。 2 2022/12/23 14:57
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
- Visual Basic(VBA) 【再投稿】VBAのシフト表でバグが出て困っています 3 2022/09/24 08:29
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Access サブフォームでの選択行の取得
その他(データベース)
-
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
-
4
Access でレコードセレクタが押されたときのイベントは?
その他(プログラミング・Web制作)
-
5
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
6
カレンダーコントロール
Visual Basic(VBA)
-
7
Accessでレコードの保存をせずにフォームを閉じたい
Access(アクセス)
-
8
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
9
Access-VBAのPublic変数について =基本的な事です=
Visual Basic(VBA)
-
10
Accessのクエリで、replace関数を使い、データの中にある”をブランクに置き換えたいのですが
Access(アクセス)
-
11
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
ACCESSで和暦を西暦に・・・
Access(アクセス)
-
14
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
15
カレンダーで日付をワンタッチ入力したい
Word(ワード)
-
16
ACCESS VBAサブフォーム(DATA SHEET)の値の取得方法
Visual Basic(VBA)
-
17
access の 最終レコードの判定はどう記述しますか
Access(アクセス)
-
18
アクセスVBAのMe!と[ ]
Access(アクセス)
-
19
Accessで、定型入力を使って年と月のデータだけ入力したい
Access(アクセス)
-
20
VBA ユーザーフォームのChangeイベントを停止したい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
パソコンで購入したデーターが...
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
「24日の0時」って・・・
-
「時間」、「期日」、「日付」...
-
エクセル マクロ 名前を付けて...
-
回覧板の日付について質問です...
-
ACCESSで日付を指定すると、そ...
-
エクセルで6ヵ月後を自動入力で...
-
Access 2013 テキストボックス...
-
履歴書の日付間違いで落ちますか。
-
ACCESSで1月1日~12月31日まで...
-
EXCELで日付を****年上期、****...
-
accessのレポート抽出条件について
-
Excelでヘッダに前日の日付を表...
-
WEEKDAYが反映されない
-
日付の表記(付け)
-
Access VBA SQL文で教えてください
-
wordで日付
-
エクセルで日付け表示で、明治...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
パソコンで購入したデーターが...
-
「24日の0時」って・・・
-
回覧板の日付について質問です...
-
差し込み印刷に当日の日付が入...
-
日付の大小の表現
-
「時間」、「期日」、「日付」...
-
エクセル マクロ 名前を付けて...
-
エクセルで日付別にシートを分...
-
履歴書の日付間違いで落ちますか。
-
EXCELで日付を****年上期、****...
-
エクセルで6ヵ月後を自動入力で...
-
ACCESSで日付ごとに自動連番(...
-
WEEKDAYが反映されない
-
2つの日付の中間の日付 エク...
-
Excelでヘッダに前日の日付を表...
-
エクセルで日付け表示で、明治...
-
ACCESSで1月1日~12月31日まで...
-
アンドロイドスマホ。カメラに...
-
差込印刷 縦書きで和暦(漢数...
-
Excel関数 基準日に一番近い指...
おすすめ情報