OnChange Update Table

[Gary_Mc_Mahon]

Hi,
I'm trying to create a table that will track all changes made to a form like a history table although this should not be visible to the user.

I've tried to produce the code but with little success. Any help would be great.

Private Sub Date_Time_Submitted_Change()

DoCmd.GoToControl "tbl_Big_Brother"
DoCmd.GoToRecord , "", acNewRec
table!tbl_big_brother!SuspensionID = Forms!frm_account_screen!SuspensionID
table!tbl_big_brother!Field_Changed = "Date/Time Submitted"
table!tbl_big_brother![Date/Time_Changed] = Now()
table!tbl_big_brother!New_Value = Forms!frm_account_screen![Date/Time Submitted]

End Sub

Cheers
Gary

 

[Norie]

Have you looked at Recordset?

Eg

Dim rst As Recordset

Set rst = Currentdb.OpenRecordSet("tbl_Big_Brother")

With rst
.AddNew
.Fields("SuspensionID") = Forms!frm_account_screen!SuspensionID
' add similar statements for the other fields
.Update
.Close
End With

 

[Gary_Mc_Mahon]

Once again you've been a great help. Many thanks Norie. I'll give that a go.