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
|