Есть код кнопки на форме добавлящая(как задумывалось) Данные в связанные таблицы, но пишет мол "run time-error 3027" Обновление невозможно. База данных или объект доступны только для чтения.

Private Sub Кнопка24_Click()
Dim dbs As Variant
Set dbs = CurrentDb

Dim dataPersonalAdd As Recordset
Set dataPersonalAdd = dbs.OpenRecordset("dbo_Принятые сотрудники", dbOpenDynaset)
With dataPersonalAdd
.AddNew
![Табельный №] = Me![Табельный №]
![ФИО] = Me![ФИО]
![Должность] = Me![Должность]
![Дата приема] = Me![Дата приема]
![Отдел] = Me![Отдел]
.Update
End With

Dim rst As Recordset
Set rst = dbs.OpenRecordset("dbo_Сотрудники", dbOpenDynaset)
With rst
.AddNew
![Табельный №] = Me![Табельный №]
![ФИО] = Me![ФИО]
![Должность] = Me![Должность]
![Дата приема] = Me![Дата приема]
![Отдел] = Me![Отдел]
' .Update
End With

Set rst = dbs.OpenRecordset("dbo_Сотрудники ДОПОЛНИТЕЛЬНО", dbOpenDynaset)
With rst
.AddNew
![Табельный №] = Me![Табельный №]
'.Update
End With



dbs.Close
End Sub

Модератор: Тема перенесена из форума "Microsoft SQL Server".