Имеются две подчиненные формы Form1 и Form2:

Private Sub Form_Load()

wsp.BeginTrans

Set Form1.Form.Recordset = dbs.OpenRecordset("SELECT Таблица1.*
FROM Таблица1;", dbOpenDynaset)

Set Form2.Form.Recordset = dbs.OpenRecordset("SELECT Таблица2.*
FROM Таблица2
WHERE (((Таблица2.ID)=” & Form1.Form.ID & “));", dbOpenDynaset)

End Sub


Обновлении Формы Form2 по событию Form_Current формы Form1

Form2.Form.Recordset.Requery

НЕ РАБОТАЕТ

, а если повторить

Set Form2.Form.Recordset = dbs.OpenRecordset("SELECT Таблица2.*
FROM Таблица2
WHERE (((Таблица2.ID)=” & Form1.Form.ID & “));", dbOpenDynaset)

Возникает ошибка

Private Sub Form_Load() wsp.BeginTrans Set Form1.Form.Recordset = dbs.OpenRecordset("SELECT Таблица1.* FROM Таблица1;", dbOpenDynaset) Set Form2.Form.Recordset = dbs.OpenRecordset("SELECT Таблица2.* FROM Таблица2 WHERE (((Таблица2.ID)=” & Form1.Form.ID & “));", dbOpenDynaset) wsp.CommitTrans End Sub

А так будет работать?

+1 к коту

wsp.CommitTrans еще рановато

Ошибаетесь.
Вы начинаете транзакцию, но при этом ее не фиксируете. Т.е. все опреации в вашем случае, указанные после начала транзакции будут отменены.
А вааще если хотите отменить действия транзакции в случае, если что-то пошло не так - используйте RollbackTran

Естественно. При условии, что транзакция прошла успешно. ИНЫМИ СЛОВАМИ - ВАШИ ЗАПРОСЫ ВЫПОЛНЯТСЯ
Без Commit-а транзакция не состоится вааще. Будет проигнорировано все, что находится после BeginTran. Что у вас и происходит. А в сочетании с ошибками на которые вам показал кот вы получаете ту картину, которую и имеете в действительности.