No.4ベストアンサー
- 回答日時:
>内容を実現させるには具体的にどういう操作が必要なのでしょうか。
>未入力で他のコントロールにフォーカスが移ったらカレンダーの値を代入
フォームの日付を入力するコントロールが例えばDate1としてカンレンダーコントロールをCalendar1という名前としたた場合。
Date1のプロパティを開きイベントでフォーカス喪失時イベントをコードビルダで開き
Private Sub Date1_LostFocus()
If IsNull(Me.Date1) Then
Me.Date1 = Me.Calendar1.Value
End If
End Sub
でDate1のコントロールにフォーカスが移り何も入力されないで他のコントロールにフォーカスが移るとCalendar1の日付をDate1に代入させます。何か入力すれば代入されません。例えばフォーカスの移るタブ順がCalendar1で次がDate1であればCalendar1から何も入力されないでDate1に移りDate1でも何も入力されなかった場合にCalendar1からDate1に日付を持ってきます。
>他の方のいうようにボタンを作り
これはフォーム上にボタンコントロールを一つ作ります。
そのボタンのプロパティを開きクリック時イベントに記述します。(ボタンがCmd1という名前の場合)
Private Sub Cmd1_Click()
Me.Date1 = Me.Calendar1.Value
End Sub
とすればボタンを押せばカレンダーから日付をDate1に代入させます。
大変丁寧にありがとうございます。
色々試して見ましたが、思うような成果が得られず、
自分の力量不足を実感しました。
また、何かありましたら宜しくお願いいたします。
No.3
- 回答日時:
>カレンダーを用いて入力する際同じ日付を続けて入力できないのはなぜ
一度クリックしてあるカレンダーの同じ日付を再度クリックしてもイベントが発生しないからだと思いますが。
フォームの日付を入力するコントロールに
If IsNull(Me.日付のコントロール名) Then
Me.日付のコントロール名 = Me.カレンダーコントロール名.Value
End If
として未入力で他のコントロールにフォーカスが移ったらカレンダーの値を代入させてはどうでしょうか。
または他の方のいうようにボタンを作り
Me.日付のコントロール名 = Me.カレンダーコントロール名.Value
で代入させる。
この回答への補足
お恥ずかしい話ですが、回答の
内容を実現させるには具体的に
どういう操作が必要なのでしょうか。
プロパティの何かを変える必要があると言うことなのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Chrome(クローム) 入力フォームの履歴を消したい 2 2023/06/29 13:02
- その他(パソコン・スマホ・電化製品) Googleカレンダーで不要データを一括削除したい 1 2023/08/02 12:42
- Excel(エクセル) 【Excel関数】カレンダーで文字が入っていたら転記 4 2023/07/24 23:28
- Access(アクセス) チェックボックスにチェックが入った後の挙動 1 2022/08/21 12:39
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- Access(アクセス) Access DTPickerの初期表示月を変えたい 1 2022/08/02 08:55
- Excel(エクセル) Excel 入力した内容を保持したい 1 2023/06/23 12:27
関連するカテゴリから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関数 基準日に一番近い指...
おすすめ情報