2015-02-14
440
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
