Option Compare Database
Option Explicit

Public f As Form
Public cntExportControl As Control

Public Property Let ExportControl(ByVal vNewValue As Control)
Dim intRecordSelectorsWidth As Integer 'Ширина области выделения (вроде как всегда 300)
Dim intHeaderHeight As Integer 'Высота заголовка
Dim intBorderWidth As Integer 'Толщина рамки
Dim intProoferTop As Integer 'Корректировка по горизонтали
Dim intProoferWidth As Integer 'Корректировка по вертикали
Set cntExportControl = vNewValue

With ParentForm(cntExportControl)
If .RecordSelectors Then intRecordSelectorsWidth = 300
intBorderWidth = (f.WindowWidth - f.InsideWidth) / 2 * -1
intProoferTop = .WindowTop + cntExportControl.Top + .CurrentSectionTop + cntExportControl.Height + intHeaderHeight
intProoferWidth = .WindowLeft + cntExportControl.Left + intRecordSelectorsWidth + intBorderWidth + .CurrentSectionLeft
intProoferWidth = intProoferWidth - f.WindowWidth + cntExportControl.Width
f.Move intProoferWidth, intProoferTop
End With
End Property

Public Function ParentForm(ByVal vCtl As Control)
Dim oParent As Object
Set oParent = vCtl
Do
Set oParent = oParent.Parent
If TypeOf oParent Is Form Or TypeOf oParent Is Report Then Exit Do
Loop
Set ParentForm = oParent
End Function

Private Sub cmd1_Click()
DoCmd.OpenForm "Form2", , , , , acHidden
Set f = Forms("Form2")
Dim s$: s = f.Name
Forms(s).ExportControl = Me.txtTest 'вот здесь получаю ошибку
Forms(s).Visible = True
Set f = Nothing
End Sub