リストボックスをクリアし今日から30日間の日付を追加する - Access

リストボックスとコマンドボタンのフォーム作成

フォームにリストボックスとコマンドボタンを下のように配置します。
リストボックスのラベルは「日付」に、コマンドボタンの標題は「日付をセット」にしました。
リストボックスを選択し、値集合タイププロパティを「テーブル／クエリ」から「値リスト」に変更します。


コマンドボタンを選択します。
クリック時イベントに［イベント プロシージャ］を選択し［…］をクリックします。

VBAの作成

リストボックスをクリアし、30日間の日付を追加するVBAです。


・リストボックスをクリアは「Clear」を使えないので、RowSource = ""を使います。
・AddItemで、今日の日付からForループで、30日間リストボックスに追加します。

Private Sub コマンド4_Click()
    Dim i As Long
    Dim td As Date
    
    Me.リスト1.RowSource = ""
    
    td = Date
    For i = 0 To 29
        Me.リスト1.AddItem td + i
    Next
End Sub

実行画面です。
初めにリストボックスをクリアし追加しているので、ボタンをクリックする度に毎回新規に表示されます。