エントリーの編集
![loading...](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/common/loading@2x.gif)
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
![アプリのスクリーンショット](https://b.st-hatena.com/bdefb8944296a0957e54cebcfefc25c4dcff9f5f/images/v4/public/entry/app-screenshot.png)
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
カレンダーコントロールを利用した日付入力汎用関数
フォームモジュールのコード Option Compare Database Option Explicit Dim ctl As Control Private Sub... フォームモジュールのコード Option Compare Database Option Explicit Dim ctl As Control Private Sub Form_Load() Set ctl = Screen.ActiveControl If IsDate(ctl.Value) Then Me.Calendar0.Value = CDate(ctl.Value) Else Me.Calendar0.Value = Date End If End Sub Private Sub Calendar0_Click() Me.Visible = False ctl = Me.Calendar0.Value DoCmd.Close acForm, "F_Calendar" End Sub フォームの名前は F_Calendar として保存します。 標準モジュールに下記の関数を作成し