ник: Анатолий (Киев)
Попробуйте вместо:
Set frmCat = Forms("frmCat_SKU").Controls("frmDir_SKU_tblSub").Form
frmCat.RecordSource = frmCat.RecordSource
выполнить:
Forms("frmCat_SKU").Controls("frmDir_SKU_tblSub").Requery
Если не поможет - перед обновлением источника запоминайте:
st = frmCat.SelTop
После обновления и нахождения записи:
st = frmCat.SelTop - st
frmCat.Recordset.Move st
frmCat.Recordset.Move st * -1
Где-то так... 