You could just use SQL statements in the After Update event or on the click of a button. USe the following code:
Dim MyDB as database
Dim MySQL as string
'If it's a new record, do the following:
MySQL = "INSERT INTO [Table_Name] (FieldName) VALUES ('" & me![Form_Field] & "')"
'or an existing record do this:
MySQL = "UPDATE [Table_Name] Set FieldName='" & me![Form_Field] & "' WHERE Criteria"
Set MyDB = currentdb
MyDB.execute(MySQL)
All you have to do is Change the name of the table, field name, and form field name for each table and re-execute the MySQL command. Note: If it is a numeric value, you do not need the apostrophes(Single Tick Marks) around the Form Field Value.