No.2ベストアンサー
- 回答日時:
「テキストボックスがヌルの場合にクリックすれば」と解釈して・・・
Option Compare Database
Option Explicit
Private Sub Calendar_Click()
Me.テキスト.SetFocus
SendKeys Me.Calendar, True
End Sub
Private Sub テキスト_Click()
If Len(Me.テキスト & "") = 0 Then
Me.Calendar.Visible = True
End If
End Sub
Private Sub テキスト_GotFocus()
If Len(Me.テキスト & "") > 0 And Me.Calendar.Visible Then
Me.Calendar.Visible = False
End If
End Sub
No.3
- 回答日時:
私が使うのはテキストボックスを直接クリックするのではなく
テキストボックスの横にボタンを置いて、
テキストボックスとボタンでコンボのように見せかけておき
ボタンを押すとカレンダーコントロールがドロップダウンしたかのように
現れるというものです
テキストボックスの横にボタンを置き下向き三角を表示させて
両方でコンボのように見せかけます
テキストボックスのしたドロップダウンさせたような位置に
カレンダーコントロールをおきます
(他のコントロールに重なってもかまいません)
カレンダーコントロール、テキストボックスの両方を日付フィールドに結合します
下のコードを書きます
フォームを開いたときカレンダーを隠す
Private Sub Form_Open(Cancel As Integer)
Me.Calendar6.Visible = False
End Sub
テキストボックス横のボタンを押したときカレンダーを表示
Private Sub コマンド7_Click()
Me.Calendar6.Visible = True
End Sub
カレンダーを押したときテキストボックスにフォーカスを移し
カレンダーを隠す
Private Sub Calendar6_Click()
Me.日付1.SetFocus
Me.Calendar6.Visible = False
End Sub
No.1
- 回答日時:
VBAのツールボックス上で右クリックしてみよう!
(Office 2007なのでUIが違うかもしれないが)
「その他のコントロール」って選択肢があったので
これで追加できるはず・・・
ご返答ありがとうござました。
挿入→ActiveXコントロール
でカレンダーコントロールをフォームに貼り付ける
ことができました。
しかし実現したいのは、フォーム上のテキスト
ボックスをクリックするとカレンダーが表示され、
表示されたカレンダーで日付を選ぶと、カレンダー
が消えてテキストボックスに選択された日付が表示
されるという動作なのです。
わかりにくい説明で、申し訳ありません。
どうかよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Access DTPickerの初期表示月を変えたい 1 2022/08/02 08:55
- その他(Microsoft Office) EXCELでバーコードを作成すると白くなってコードが見えません 1 2022/04/04 14:24
- C言語・C++・C# ActiveXコントロールを.NETにインポートできない??? 2 2023/05/02 02:50
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- その他(ブラウザ) zoomのバーチャル背景が選べない 4 2022/12/08 12:38
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- JavaScript jsで診断コンテンツのページ内切り替えについて 1 2023/04/14 17:31
- Visual Basic(VBA) Excel(VBA) 特定の条件に該当する行の値、書式を同じセルにコピ&ペーストしたいです 1 2022/05/21 18:18
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
関連するカテゴリから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関数 基準日に一番近い指...
おすすめ情報