Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Ivanko_011
Имеются две подчиненные формы 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)

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