ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Торможу... Me.BorderStyle=хренушки
13 сообщений из 13, страница 1 из 1
Торможу... Me.BorderStyle=хренушки
    #32273280
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Подскажите, а то что-то я торможу по страшному: так можно или нельзя изменять свойство формы Me.BorderStyle (а также Me.WindowHeight) во время выполнения в коде VBA???

Читаю справку, написано:

Задание значения свойства Тип границы (BorderStyle) допускается только в режиме конструктора формы с помощью окна свойств формы, в макросе или в программе Microsoft Visual Basic.

И не могу понять че сказать то хотели.... вроде можно, пробую изменить, получаю - "Невозможно присвоить значение объекту".
Пробовал с разными формами: модальные/немодальные, всплывающие/невсплывающие и т.д.

Мдаа, а хотелось то всего навсего изменить размер формы-диалога...

P.S. win98+AccessXp.
...
Рейтинг: 0 / 0
23.09.2003, 16:30
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273297
IgorM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorM
Участник
" только в режиме конструктора формы " - вот и весь ответ, т.е. когда форма уже открыта в обычном режиме ничего сделать нельзя.
...
Рейтинг: 0 / 0
23.09.2003, 16:39
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273327
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
ага, значит остается API.
...
Рейтинг: 0 / 0
23.09.2003, 16:58
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273333
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
Не вижу проблемы:

Me.InsideHeight = Me.InsideHeight + 1000(увеличиваем размер формы) . Для диалогов тоже работает.

Либо

Me.Section(0).Height = Me.Section(0).Height + 1000. В зависимости от того что тебе надо.
...
Рейтинг: 0 / 0
23.09.2003, 17:01
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273344
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Точняк, про InsideHeight я то и забыл... будем пилить дальше

А BorderStyle значит все-таки ни как... пока конечно без этого обойдусь, но вдруг на будущее, если приспичит обычную форму в диалог превратить (или обратно)...
...
Рейтинг: 0 / 0
23.09.2003, 17:07
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273362
CtrlAlt
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
CtrlAlt
Участник
Можно так, если очень захочется...

Dim Name As String
Name = Me.Name
Me.Painting = False
DoCmd.OpenForm Name, acDesign, , , , acHidden
Forms(Name).BorderStyle = 2
DoCmd.OpenForm Name, acNormal
...
Рейтинг: 0 / 0
23.09.2003, 17:22
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273366
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
И при этом все OnClose, OnUnload, OnOpen, OnLoad и т.п. начнут срабатывать заново.
...
Рейтинг: 0 / 0
23.09.2003, 17:25
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273368
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Охних. Никогда бы не додумался до формы, саму себя открывающей в конструкторе. А ведь получится. Я, когда, про acCmdDatasheetView не знал, так переключал вид форма/таблица...
...
Рейтинг: 0 / 0
23.09.2003, 17:27
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273375
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А еще при выходе она начнет запрашивать Save.
...
Рейтинг: 0 / 0
23.09.2003, 17:33
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273379
Фотография Geo
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Geo
Участник
Кстати да.
А и делать ей "саве" перед вторым открытием.
...
Рейтинг: 0 / 0
23.09.2003, 17:35
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273381
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Спасибо за код, решение оригинальное.

При работе немного мелькает конечно, но в принципе весьма сносно... единственно какой еще недостаток есть, это то что ты изменяешь эти параметры в конструкторе и:
1. в следующий раз форма может загрузиться уже с этими параметрами, а не те, что стояли раньше - надо не забывать
2. при изменении макета, она естественно при закрытии формы, предлагает сохранить изменения в макете формы - так что тут тоже надо поколдовать: самому закрывать через DoCmd.Close ,,SaveNo или еще как перехватывать это сообщение и глушить его
...
Рейтинг: 0 / 0
23.09.2003, 17:38
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273383
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Да, согласен, лучше конечно Save ей делать сразу, главное потом не забыть, что ты все уже поменял ... :-)
...
Рейтинг: 0 / 0
23.09.2003, 17:40
| Ответить | Цитировать | Написать  
Торможу... Me.BorderStyle=хренушки
    #32273388
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
То есть при следующем открывании надо будет сразу все менять.
...
Рейтинг: 0 / 0
23.09.2003, 17:48
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Торможу... Me.BorderStyle=хренушки
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32273368&tid=1679288]:
 0ms
get settings:
 9ms
get forum list:
 20ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 64ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 69ms
get tp. blocked users:
 2ms
others: 202ms
total:  390ms
созд. / загр.: 390ms
x
x
Закрыть


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