【ACCESS VBA】ボタンを押したら現在の日付・時刻を自動入力する【業務システム開発】

ACCESS VBAを学習しています。

今回はVBAを使った完了時の自動入力について学びます。

この記事では、使い方と使用例を掲載しています。

使い方については、よく使う部分だけを抜粋してご紹介しています。

詳細は公式のドキュメントをご覧ください。

説明・パラメータ

Environ関数を使うと、Windowsのユーザ－名を取得することができます。

Private Sub Get_UserName()
    Dim user As Variant
    user = Environ("USERNAME")
End Sub

Private Sub Get_UserName()

Dim user As Variant

user = Environ("USERNAME")

End Sub

Private Sub button_入力完了_Click()
    Me!textbox_完了日 = Date
End Sub

Private Sub button_入力完了_Click()

Me!textbox_完了日 = Date

End Sub

現在の日付を取得します。

Private Sub button_入力完了_Click()
    Me!textbox_完了時刻 = Time
End Sub

Private Sub button_入力完了_Click()

Me!textbox_完了時刻 = Time

End Sub

現在の時刻を取得します。

Private Sub button_入力完了_Click()
    Me!textbox_完了日時 = Now
End Sub

Private Sub button_入力完了_Click()

Me!textbox_完了日時 = Now

End Sub

現在の日時を取得します。

Private Sub button_入力完了_Click()
    Me!textbox_完了日 = Date
    Me!textbox_完了時刻 = Time
    Me!textbox_完了日時 = Now
End Sub

Private Sub button_入力完了_Click()

Me!textbox_完了日 = Date

Me!textbox_完了時刻 = Time

Me!textbox_完了日時 = Now

End Sub

Meは自身のフォームを指しています。

Me!コントロール名とすることで、自身のフォーム内にあるテキストボックスなどのコントロールを指定して値を入力することができます。

→コントロールへの入力

「入力完了」ボタンを押すと、「完了日」、「完了時刻」、「完了日時」の3つが自動的に入力されるようになりました。

公式ドキュメントです。

ACCESSの記事を一覧にしています。ACCESS VBAの正式な情報は公式ドキュメントを読むべきですが、このサイトでは実際に使う場面を想定して紹介しているので、公式ドキュメントと併せて読んでいただくと理解が深まると思います。