powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не определяется Me.ScrollBars
3 сообщений из 3, страница 1 из 1
Не определяется Me.ScrollBars
    #32692025
toly_m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет всем!

Есть подчиненная форма табличного режима, занимающая половину основной формы, при 2-3 записях в ней много места остается некрасивым серым цветом, хотелось бы уменьшать высоту подчиненной формы в зависимости от числа ее записей, что и получилось более-менее. Но т.к. в подчиненной форме меняется число столбцов (т.к. подключаются разные таблицы) в некоторых случаях появляется гориз. полоса прокрутки, и после изменения высоты требуется проверить, появилась ли гориз. полоса, и если да, то еще чуть-чуть увеличить высоту подчиненной. После подсчета числа записей подчиненной и уменьшения ее высоты пробовал проверить наличие гориз. полосы проркутки так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
lngRowHeight=Forms!frmEdit!subData.Form.Controls( 0 ).Height
lngRowCount = DCount("id", "tbl_row")

If Forms!frmEdit!subData.Form.ScrollBars =  1  Then
      MsgBox "Есть гориз. полоса!"
      lngSubHeight = (lngRowCount +  2 ) * lngRowHeight
      Forms!frmEdit!subData.Height = lngSubHeight
End If

Но ход программы не заходит в условие проверки (не выводится MsgBox),
также не помогло ни Forms!frmEdit!subData.Requery ни Forms!frmEdit!subData.Repaint.

Итак, после открытия подчиненной формы как можно из VBA узнать, есть ли в ней горизонтальная полоса проркутки?
...
Рейтинг: 0 / 0
Не определяется Me.ScrollBars
    #32692038
Фотография Serge Gavrilov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Дык, а чему равно Forms!frmEdit!subData.Form.ScrollBars?
Проверили бы, может 3?
...
Рейтинг: 0 / 0
Не определяется Me.ScrollBars
    #32692100
toly_m
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Serge Gavrilov может 3?

Точно, этот случай упустил из внимания :)
Спасибо!
...
Рейтинг: 0 / 0
3 сообщений из 3, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Не определяется Me.ScrollBars
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]