Вы можете запустить SQL или запрос из VBA, например:
Set db = CurrentDB
sSQL="INSERT INTO Table2 (FKID, Stuff) VALUES (" & Me.ID & ",'" & Me.Stuff & "')"
db.Execute sSQL, dbFailOnError
MsgBox "Records inserted " & db.RecordsAffected
Или, если вы создали подходящий запрос:
DoCmd.OpenQuery "QueryName"
Обратите внимание, что если вы добавляете в таблицу, потому что хотите добавить дополнительные элементы в список выпадающих списков, выполните поиск NotInList, вы найдете ряд предложений.