|
|
|
| Подскажите,
как сделать, что бы “фСотрудники”,
открылась в максимальном размере (как в макросе развернуть).
Private Sub cbxLanguage_AfterUpdate()
Me.Visible = False
DoCmd.OpenForm "фСотрудники", acNormal, , , acFormEdit, acDialog
End Sub | |
|
| |
|
|
|
| Private Sub cbxLanguage_AfterUpdate()
Me.Visible = False
DoCmd.OpenForm "фСотрудники", acNormal, , , acFormEdit, acDialog
DoCmd.Maximize
End Sub
только учтите - все формы у которых свойство формы Всплывающее окно (PopUp) имеет значение нет (false) будут отображаться максимально развернутыми | |
|
| |
|
|
|
| Если на закрытие не поставить Restore | |
|
| |
|
|
|
|
...
DoCmd.OpenForm "фСотрудники", acNormal, , , acFormEdit, acDialog
DoCmd.Maximize
...
|
Вот меня терзают смутные сомнения, что максимизируется нужная форма. | |
|
| |
|
|
|
| о как - точно
видимо когда писал еще не проснулся
acNormal - должно быть | |
|
| |
|
95 Кб. |
|
| Извините, не получилось, “фСотрудники” не открывается максимально и зависает,
Нужно что бы открылась максимально в рамку Access.
См. пример.
Заранее благодарен. | |
|
| |
|
|
|
| DoCmd.OpenForm "фСотрудники", acNormal, , , acFormEdit, acDialog
вот этот acDialog и не дает форме раскрыться
сделайте вот так
DoCmd.OpenForm "фСотрудники", acNormal, , , acFormEdit, acNormal
на событие закрытие формы фСотрудники повешайте код
DoCmd.Restore
это что бы формы потом в привычном для них размере открывались | |
|
| |
|