ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Откурыть подчиненную из основной с помощью VBA
12 сообщений из 37, страница 2 из 2
  2  все
Откурыть подчиненную из основной с помощью VBA
    #32239517
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Me!SubForm.SourceObject = "Любая форма, которую ты хочешь отобразить в дырке"

Без комментариев
...
Рейтинг: 0 / 0
18.08.2003, 18:33
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239519
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Lex
Гость
Можно конечно написать условия типа
if Me![Код]=1 then Me![SubForm1].SourceObject = "SubForm_one"
if Me![Код]=2 then Me![SubForm1].SourceObject = "SubForm_two"
но хочеться что нибудь по изящней
...
Рейтинг: 0 / 0
18.08.2003, 18:33
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239521
incold
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
incold
Участник
Наверное имеется ввиду что-то вроде

Me![Код].Column(1)

если в источнике поля со списком вторая колонка, это необходимое название
...
Рейтинг: 0 / 0
18.08.2003, 18:34
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239525
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Lex
Гость
Уважаемый Vsevolod, вы наверное не поняли, подчиненных форм много, и для каждой писать условие - перебор!
Проще, мне кажеться использовать поле [Тип]
Можно конечно и в качестве данных для основной формы сделать запрос, в который можно включить буквенное обозначение типа заказов, а не просто код
и использовать его например так:
Me![SubForm1].SourceObject = Me![string_тип]
Но не очень хочеться создавать фиксированный запрос, поскольку форма может вызывать путем наложения различных запросов и я боюсь, что еще один ее может доконать (естественнно какой нибудь моей ошибкой, а не переполнением)
...
Рейтинг: 0 / 0
18.08.2003, 18:39
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239529
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Me![SubForm1].SourceObject = Me![string_тип]

и

Me!SubForm.SourceObject = "Любая форма, которую ты хочешь отобразить в дырке"

Несовместимы...

Значением SourceObject должен быть объект!!!
...
Рейтинг: 0 / 0
18.08.2003, 18:43
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239530
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Lex
Гость
Super!!!, incold спасибо, работает лучше некуда.
Слушай, а где можно енти знания оптом получить. В смысле нет ли какого справочника?
...
Рейтинг: 0 / 0
18.08.2003, 18:43
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239538
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Lex
Гость
Vsevolod, хочу вас огорчить, но все работает с типом string.
Причем даже переименовал все подчиненки для удобства в "п_"+SubFormName
и использовал такую-же конструкцию для выборки.
Me![SubForm1].SourceObject = "п_" + Me![Тип].Column(1)

И подчеркиваю ВСЕ РАБОТАЕТ ПРЕКРАСНО
...
Рейтинг: 0 / 0
18.08.2003, 18:47
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239540
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
Я уже не могу соображать, так что прошу прощения...
А вот насчет "хочу огрочить", так не надо было бы.
...
Рейтинг: 0 / 0
18.08.2003, 18:49
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239544
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Lex
Гость
Во блин еще вопрос.
Расположил все на вкладках (такой элемент в формах, где тыкаешь на ярлычки, а он разные странички показывает)
Так вот, а можно ли из VBA поменять наименование этих кладок, да и вообще количество там и т.д. (но кол-во это уже так для самообразования, пока наименований достаточно)
...
Рейтинг: 0 / 0
18.08.2003, 18:51
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239549
A-Lex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
A-Lex
Гость
Vsevolod прошу прощения, это не подкол, просто неудачно пытался проявить к вам вежливость. А ваши советы были сегодня самыми дельными. Так-что еще раз извините, если обидел.
...
Рейтинг: 0 / 0
18.08.2003, 18:53
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239951
Фотография Vsevolod V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Vsevolod V
Участник
На такие вопросы самому надобы искать ответы...
Мои действия после того, как я прочитал твой вопрос от вчера, 18:51 (изначально ответа я не знал):

1)создал форму - поместил на нее TabControl - создал кнопку на форме, щелкая на которую будет меняться имя вкладки (как это должно происходить еще не знал)

2)посомтрел в окно Properties в VBA и увидел, что эти вкладки фактически не имеют отношения к самому контролу (наверное грубо сказано), т.е вкладка - это отдельный элемент формы под названием "Page". Исходя из этого попробывал такой вариант:

Me.Вкладка1.NAME = "Vsevolod"

3)не получилось. Ошибка: это свойство можно менять только в конструкторе форм

4)ИТОГО: какого хрена тебе было не сделать тоже самое???


ЗЫ: это заняло у меня 1 мин 24 сек (без учета написания этого сабжа)
...
Рейтинг: 0 / 0
19.08.2003, 11:15
| Ответить | Цитировать | Написать  
Откурыть подчиненную из основной с помощью VBA
    #32239970
Sfagnum
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sfagnum
Участник
попробуй через етот конец Me.TAbControl_Name.Pages.Item (Номер_Вкладки_с_0).Caption
...
Рейтинг: 0 / 0
19.08.2003, 11:23
| Ответить | Цитировать | Написать  
12 сообщений из 37, страница 2 из 2
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Откурыть подчиненную из основной с помощью VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&startmsg=32239517&tid=1679851]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 9ms
get forum data:
 3ms
get page messages:
 46ms
get tp. blocked users:
 1ms
others: 200ms
total:  311ms
созд. / загр.: 311ms
x
x
Закрыть


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