I want to add record history to Table by command button

[zugapy]

I want to add record history to Table by command button but i don't know how to.
On Asset Table will keep only current data that who borrowed asset at that moment but not enough, so i would like to keep history about borrowing and returning of asset.

Description:

When type Date Borrowed and press add to history button, the record of borrowing will be recorded in History Table.




Result of History


When type Date Returned and press add to history button, the record of borrowing will be recorded in History Table.



Result of History





I never use Ms Access and don't know about macro. I starting learn about it. Anyone, Please help me.

File attachment: www78.zippyshare.com/v/902516/file.html

Thank you very much.

[June7]

Reminds me of the LendingLibrary database. It keeps history of items checked in and out. You should look at that template for ideas.

[robrich22]

Goto Form
Right Click on "History" Button
Select Properties
Select Events
Select "On Click" Event. Click on the dots "..."
Select "Code Builder"
Paste the code in the Click Event.
Click Save Button. Click Exit VBA editor, and you should be good.

   Dim sql As String


On Error GoTo ErrHandler:
    sql = "INSERT INTO [History] (AssetID, AssetCategoryID, EmployeeID, DateBorrowed, DateReturned) " _
        & "VALUES (" & Me.AssetID.Value & ", " & Me.AssetCategoryID.Value & ", " & Me.EmployeeID.Value & ", #" & TimeValue(Me.DateBorrowed) & "#, #" & DateValue(DateReturned) & "#)"
    DoCmd.RunSQL (sql)
    MsgBox "History Added!"
    Exit Sub
ErrHandler:
    MsgBox "Missing or incorrect information.  Check to ensure all fields have proper data and try again."
    Exit Sub

[zugapy]

Goto Form
Right Click on "History" Button
Select Properties
Select Events
Select "On Click" Event. Click on the dots "..."
Select "Code Builder"
Paste the code in the Click Event.
Click Save Button. Click Exit VBA editor, and you should be good.

   Dim sql As String


On Error GoTo ErrHandler:
    sql = "INSERT INTO [History] (AssetID, AssetCategoryID, EmployeeID, DateBorrowed, DateReturned) " _
        & "VALUES (" & Me.AssetID.Value & ", " & Me.AssetCategoryID.Value & ", " & Me.EmployeeID.Value & ", #" & TimeValue(Me.DateBorrowed) & "#, #" & DateValue(DateReturned) & "#)"
    DoCmd.RunSQL (sql)
    MsgBox "History Added!"
    Exit Sub
ErrHandler:
    MsgBox "Missing or incorrect information.  Check to ensure all fields have proper data and try again."
    Exit Sub

Thank you for your help. It's work well.

[zugapy]

Reminds me of the LendingLibrary database. It keeps history of items checked in and out. You should look at that template for ideas.

Thank you for your suggestion.