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

Поставил себе задачу сохранять настройки ширины столбцов табличных форм, открытых пользователем, в таблице и восстанавливать их при открытии форм.
1) сделал таблицу с полями (userID, Forma, Pole, Razmer);
2) Сделал меню с вызовом опред.функции;
3) думаю, как в этой самой функции, перебрав открытые, формы а) понять, что открыта табличная; б) просмотреть вложенные, т.е. подчиненные на такой же предмет и в) получить список этих самых полей...
...
Рейтинг: 0 / 0
11.10.2004, 16:23:00
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732626
YBW
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
YBW
Гость
RTFM

перебрать все формы и проверить открыты или нет если да то в каком режиме
...
Рейтинг: 0 / 0
11.10.2004, 16:31:50
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732640
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
borisb
Участник
YBWRTFM

перебрать все формы и проверить открыты или нет если да то в каком режиме

Да перебрать открытые формы я могу ;), а вот а) понять в каком режиме была открыта и б) "выцепить" имя подчиненной(ых) и также определить как открыты...

Не могу что-то в справке выйти на синтаксис :(
Если кому не трудно, подскажите
...
Рейтинг: 0 / 0
11.10.2004, 16:34:56
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732653
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
CurrentView
...
Рейтинг: 0 / 0
11.10.2004, 16:37:22
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732655
ищ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ищ
Гость
CurrentView
...
Рейтинг: 0 / 0
11.10.2004, 16:37:32
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732670
Bor-L
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bor-L
Гость
Посмотрите тут, возможно подойдет
http://am.rusimport.ru/MsAccess/topic.aspx?ID=22
...
Рейтинг: 0 / 0
11.10.2004, 16:39:43
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732672
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
borisb
Участник
Rivkin DmitryCurrentView
Спасибо, сразу аж за два ответа ;)

А как бы (перебрав контролы?) получить список имен подчиненных форм внутри "перебираемой"? Что-то типа acForm?
...
Рейтинг: 0 / 0
11.10.2004, 16:39:55
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732682
borisb
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
borisb
Участник
Bor-LПосмотрите тут, возможно подойдет
http://am.rusimport.ru/MsAccess/topic.aspx?ID=22

Спасибо за ссылку, но нет под рукой Access2000, только 97 :(...
...
Рейтинг: 0 / 0
11.10.2004, 16:42:04
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732701
Фотография Программист-Любитель
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Программист-Любитель
Участник
for each ctl in Me.Controls
if ctl.ControlType = acSubform then
else
end if
next ctl

Я всегда придерживаюсь однообоазия в именовании подчиненных форм grЧтототамеще.
...
Рейтинг: 0 / 0
11.10.2004, 16:50:33
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732703
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
borisb Rivkin DmitryCurrentView
Спасибо, сразу аж за два ответа ;)

А как бы (перебрав контролы?) получить список имен подчиненных форм внутри "перебираемой"? Что-то типа acForm?

Ну, так и перебери внутри открытой формы все контролы, которые acForm

For Each cr On fm.Controls
if cr.ControlType = acForm Then
...
...
Рейтинг: 0 / 0
11.10.2004, 16:51:09
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732704
Фотография paparome
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
paparome
Участник
borisb Rivkin DmitryCurrentView
Спасибо, сразу аж за два ответа ;)

А как бы (перебрав контролы?) получить список имен подчиненных форм внутри "перебираемой"? Что-то типа acForm?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim a as object
Dim frm as Form

Set frm = me

For Each a In frm.Comtrols
  if TypeName(a) = "SubForm" Then
    ...
  end if
Next
...
Рейтинг: 0 / 0
11.10.2004, 16:51:10
| Ответить | Цитировать | Написать  
Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
    #32732714
Rivkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Rivkin Dmitry
Участник
Sorry
For Each cr On fm.Controls
if cr.ControlType = acSubform Then
...
...
Рейтинг: 0 / 0
11.10.2004, 16:53:57
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как определить в каком режиме (табличном, ленточном) открыта та/иная форма?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32732714&tid=1671185]:
 0ms
get settings:
 10ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 155ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 257ms
total:  522ms
созд. / загр.: 522ms
x
x
Закрыть


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