ник: shaucha
Или вот другой, более полный пример:
Dim frmCat As Form
Dim rst As DAO.Recordset
Set frmCat = Forms("frmCat_SKU").Controls("frmDir_SKU_tblSub").Form
Set rst = frmCat.RecordsetClone
rst.FindFirst "SKUID = " & Me.SKUID & ""
frmCat.RecordSource = frmCat.RecordSource
frmCat.Bookmark = rst.Bookmark
Set frmCat = Nothing
Set rst = Nothing
|
Тоже ошибку выдает на строке frmCat.Bookmark = rst.Bookmark