ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Зацените "компонент" - форму для показа любых запросов
12 сообщений из 12, страница 1 из 1
Зацените "компонент" - форму для показа любых запросов
    #32595939
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Осел
Участник
Написал такую форму, интересно мнение - не изврат ли это?
Применяется для того, чтоб формы разные не делать, а показывать в одной.
Сама процедура загрузки проста -
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Sub loadDataToSub(mainForm As Object, ControlName As String)
 
  Dim frm As Form
  Dim rst As DAO.Recordset
  Dim lngMaxRstIndex As Long, i As Long
  Dim strControlName As String
  Dim strFormName
  Dim lngCount  As Long
  
   Set frm = mainForm.Controls(ControlName).Form
   Set rst = frm.RecordsetClone
        
     lngCount = rst.Fields.Count
     lngMaxRstIndex = lngCount -  1 
   
   strControlName = ""
   For i =  0  To (lngMaxRstIndex)
     strControlName = "ctl" & i
     frm.Controls(strControlName).ControlSource = rst(i).Name
     
   Next
   
   rst.Close
End Sub
...
Рейтинг: 0 / 0
08.07.2004, 16:27:05
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596079
Hummer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer
Участник
Не любых, а по количеству контролов в форме:)

А вообще, нафига извращаться, делаем в SourceObject подчинённой формы (имеено контрола) источник данных запрос или таблица - только капшены нужно по-русски писать и видим грид с таким кол-м полей, с каким нужно.
...
Рейтинг: 0 / 0
08.07.2004, 17:21:33
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596253
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Осел
Участник
Что-то у меня не получается напрямую привязать к контролу подчиненной формы таблицу или запрос.
Да и в справке говорится, что "Свойство Объект-источник (SourceObject) определяет форму или отчет, являющиеся источником данных, выводящихся в элементе управления-
подчиненной форме или подчиненном отчете. Кроме того, для связанного объекта в свободной рамке объекта это свойство позволяет определить полный путь и имя файла, содержащего данные, выводящиеся в рамке объекта.
...
Рейтинг: 0 / 0
08.07.2004, 18:24:17
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596271
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Осел
Участник
Hummer,
Спасибо,Привязать получилось (Forms(MotherName).Controls(subControlName).SourceObject = "Запрос.1"
Так гораздо проще, непонятно только, через что менять ширину колонок.
...
Рейтинг: 0 / 0
08.07.2004, 18:37:32
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596282
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Осел
Участник
Понял, надо менять ширину и заголовки базового хранимого запроса или таблицы.
А меня название сбило - подчиненная форма. Я почему-то думал, что в этом контроле только форма может быть.
Кстати, Forms(MotherName).Controls(subControlName).SourceObject = "Query.q" тоже работает, по-английски оно вернее будет.
...
Рейтинг: 0 / 0
08.07.2004, 18:44:43
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596292
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Оселпо-английски оно вернее будет.
По-английски и по-русски - одинаково:
Объект-источник - SourceObject
Подчиненная форма - SubForm
...
Рейтинг: 0 / 0
08.07.2004, 18:54:48
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596303
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Осел
Участник
Владимир Саныч ,
Я имел в виду, что можно написать

Forms(MotherName).Controls(subControlName).SourceObject = "Query.q"
А можно Forms(MotherName).Controls(subControlName).SourceObject = "Запрос.q"
Выделенные красным слова относятся к разным языкам - первое к английскому, второе - к русскому.
...
Рейтинг: 0 / 0
08.07.2004, 19:00:12
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596372
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
ОселВладимир Саныч ,
Я имел в виду, что можно написать

Forms(MotherName).Controls(subControlName).SourceObject = "Query.q"
А можно Forms(MotherName).Controls(subControlName).SourceObject = "Запрос.q"
Выделенные красным слова относятся к разным языкам - первое к английскому, второе - к русскому.
То есть слово запрос вводит в заблуждение и наводит на мысль, что это может быть форма? Наверно, у меня что-то с русским языком...
...
Рейтинг: 0 / 0
08.07.2004, 20:27:37
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596390
Фотография Visitor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Visitor
Участник
2 ВС

человек маневрирует а ты его топишь ... сам-то на иврите код поди не пишешь?

2 Donkey

все правильно - нифик кирилицу использовать в Accesse... по крайней мере в именах объектов...
...
Рейтинг: 0 / 0
08.07.2004, 20:54:22
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596393
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Visitorсам-то на иврите код поди не пишешь?
Почему бы и нет?

Код: plaintext
1.
2.
אם א' = 5 אזי
   צא עשה
       סוף אם

В переводе:

Код: plaintext
1.
2.
If A = 5 Then
    Exit Do
End If
...
Рейтинг: 0 / 0
08.07.2004, 21:01:53
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32596401
Hummer from Home
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hummer from Home
Гость
2 Осел
Ну вот и ладушки:) А так, вполне всё в норме.

Эх, сколько ещё открытий в Аксесе предстоит сделать:)
А потом серверы, а потом дот.нет какой-нить:)
...
Рейтинг: 0 / 0
08.07.2004, 21:19:40
| Ответить | Цитировать | Написать  
Зацените "компонент" - форму для показа любых запросов
    #32698513
Осел
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Осел
Участник
Я имел в виду, что можно написать
Forms(MotherName).Controls(subControlName).SourceObject = "Query.q"
А можно Forms(MotherName).Controls(subControlName).SourceObject = "Запрос.q"

Кстати, для тех, кто будет использовать этот прием.
Access 2002 нормально рабает на обоих вариантах, причем в файле формата Access 2000 и Access 2002.
Assess 2000 обращения
Forms(MotherName).Controls(subControlName).SourceObject = "Query.q" не понимает, ему подавай на русском.
Это к вопросу о том, что разработку под Access 2000 можно вести в Access 2002, установив по умолчанию файл 2000 формата. И к вопросу о том, что английский язык - лучше.
...
Рейтинг: 0 / 0
16.09.2004, 17:54:20
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Зацените "компонент" - форму для показа любых запросов
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32596079&tid=1671742]:
 0ms
get settings:
 6ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 225ms
total:  344ms
созд. / загр.: 344ms
x
x
Закрыть


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