LEADERSOFT.ru Разработка на заказ программ и сайтов
ЕСЛИ БАЗА ВАМ НУЖНА В ЛИДЕРСОФТ ЗАЙДИ СПЕРВА!
Все примеры Microsoft Access - VBA


















































09. По умолчанию таблицы открываются в небольшом окне, для того чтобы их открыть на все окно используйте этот пример.

Все примеры Microsoft Access
Private Sub butExecute_Click()
    On Error GoTo 999
    funOffBars 'Гасим все панели
    DoCmd.ShowToolbar "Menu Bar", acToolbarYes 'Строка меню
    DoCmd.ShowToolbar "Table Datasheet", acToolbarYes 'Меню таблиц
    DoCmd.OpenTable "Пример 01", acViewNormal 'Открываем таблицу
    DoCmd.Maximize 'Масштабирование
    Exit Sub
999:
    MsgBox Err.Description, vbCritical, "Масштабирование"
    Err.Clear
End Sub