Dim frm As Form, ctrl As Control

DoCmd.OpenForm "Редактор"

Set frm = Forms!Редактор

MsgBox "Текущая запись:" & frm.CurrentRecord

End Sub

 

Результат:

 

Свойство Visible

Пример

Даны 2 формы : «Форма6» и «Редактор», «Форма6» вызывает форму «Редактор» после вызова становится невидимой:

 

Private Sub Кнопка0_Click()

Dim frm As Form, ctrl As Control

DoCmd.OpenForm "Редактор", acNormal

Set frm = Forms!Форма6

Frm.Visible = False

End Sub