Как открыть всплывающую форму в виде "таблицы" определённого размера и фокус в конце таблицы?

@Soft17 · Регистрация: 15.01.2017

Author24 — интернет-сервис помощи студентам

Если открываю через панель Аксес, то открывается в виде "таблицы".
Если открываю через VBA, то открывается в виде "формы".

Visual Basic

1
2
3

Private Sub Кнопка5_Click()
    DoCmd.OpenForm "tbl_02_Students_tbl", acNormal
End Sub

Как открыть всплывающую форму в виде "таблицы" определённого размера и фокус в конце таблицы?

mobile · 20.04.2019, 21:43

Сообщение от Soft17

Как открыть всплывающую форму в виде "таблицы" определённого размера и фокус в конце таблицы?

Вот так можно

Visual Basic

Private Sub Кнопка5_Click()
    DoCmd.OpenForm "tbl_02_Students_tbl", acFormDS    'Открываем как таблицу
    Forms!tbl_02_Students_tbl.Form.Recordset.MoveLast 'Переходим к последней записи
End Sub

@Soft17 · 20.04.2019, 21:50 **[ТС]**

mobile,
"определённого размера "(см. последний скрин) - как сделать ?

mobile · 20.04.2019, 22:04

Сообщение от Soft17

mobile,
"определённого размера "(см. последний скрин) - как сделать ?

Можно попробовать сохранить после приведения размеров. Если не получится (бывает), то явно назначим размер формы в твипах (1 см=567 твипов). Например так: левый верхний угол формы с координатами 0, 0, ширина 10000 твипов, высота 5000 твипов. Значения можете подобрать по своему вкусу.

Visual Basic

Private Sub Кнопка5_Click()
    DoCmd.OpenForm "tbl_02_Students_tbl", acFormDS
    With Forms!tbl_02_Students_tbl
        .Form.Recordset.MoveLast
        .Move 0, 0, 10000, 5000
    End With
End Sub

Добавлено через 6 минут
Строки надо переставить. Не в той последовательности команды получились

Visual Basic

Private Sub Кнопка5_Click()
    DoCmd.OpenForm "tbl_02_Students_tbl", acFormDS
    With Forms!tbl_02_Students_tbl
        .Move 0, 0, 10000, 5000
        .Form.Recordset.MoveLast
    End With
End Sub

Как открыть всплывающую форму в виде "таблицы" определённого размера и фокус в конце таблицы?

Решение

Решение

@Soft17 5 / 5 / 3 Регистрация: 15.01.2017 Сообщений: 690
	20.04.2019, 21:50 [ТС]	3
	mobile, "определённого размера "(см. последний скрин) - как сделать ? 0

	20.04.2019, 22:04