ник: alecks_lp
вот это проходит
Set frm = Me.subForm1.Form
frm.SelTop = 1
frm.SelLeft = 1
frm.SelHeight = frm.RecordsetClone.RecordCount
frm.SelWidth = frm.RecordsetClone.Fields.Count
--------------------------------------------------------------------
frm.SelHeight = 0
|
пришлось блокировку с контролов формы убрать