ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / RecordSource подчиненного отчета
20 сообщений из 20, страница 1 из 1
RecordSource подчиненного отчета
    #32560181
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Windows XP
Office XP
Не удается задать RecordSource подчиненного отчета при событии Open основного отчета:
Код: plaintext
1.
2.
Private Sub Report_Open(Cancel As Integer)
	Me.subrpt.Report.RecordSource = "SELECT * FROM tbl"
End Sub

Код: plaintext
1.
Run-time error '2455'
Введенное выражение содержит недопустимую ссылку на свойство "Form/Report".
В хелпе, вроде, по этому поводу ничего не сказано.
...
Рейтинг: 0 / 0
14.06.2004, 12:25
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560189
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Может, нельзя это делать в Report_Open родительского?
...
Рейтинг: 0 / 0
14.06.2004, 12:29
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560210
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
конечно нельзя - когда open родительского - подчиненный еще не загружен!!!
...
Рейтинг: 0 / 0
14.06.2004, 12:40
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560226
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
А по другим событиям, вообще , нельзя!
Значит такого свойства у подчиненного отчета нет!
...
Рейтинг: 0 / 0
14.06.2004, 12:46
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560228
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
В других событиях оно уже становится read-only.
Надо перенести этот код в Open подчиненного.
Me.RecordSource = "SELECT * FROM tbl"
...
Рейтинг: 0 / 0
14.06.2004, 12:47
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560234
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Но это уже свойство не подчиненного отчета.
Да и бог бы с ним.
Но когда есть несколько клонов подчиненного отчета, то увы!
...
Рейтинг: 0 / 0
14.06.2004, 12:51
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560236
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
авторНо когда есть несколько клонов подчиненного отчета, то увы!

можно сравнивать hwnd для различия клонов - по крайней мере в формах работает
...
Рейтинг: 0 / 0
14.06.2004, 12:53
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560237
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
АлексейКконечно нельзя - когда open родительского - подчиненный еще не загружен!!!
А у форм это не так!
...
Рейтинг: 0 / 0
14.06.2004, 12:54
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560243
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
авторможно сравнивать hwnd для различия клонов - по крайней мере в формах работает
Нужно для каждо клона отчета задать свой источник. Как это можно сделать, используя этот совет?
...
Рейтинг: 0 / 0
14.06.2004, 12:58
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560244
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
1 определяем в какой контрол отчета загружен подотчет на основе hwnd
2 в зависимости от имени контрола назначаем источник
...
Рейтинг: 0 / 0
14.06.2004, 13:03
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560247
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
в форме это было так

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Form_Load()
On Error Resume Next
If Me.Parent.p3.Form Is Me Then
    If Err.Number =  0  Then MsgBox "Загружена 3 подформа"
End If
End Sub

или так

Код: plaintext
1.
2.
3.
4.
5.
Private Sub Form_Load()
On Error Resume Next
If Me.Parent.p3.Form.hwnd = Me.hwnd Then
    If Err.Number =  0  Then MsgBox "Загружена 3 подформа"
End If
End Sub
...
Рейтинг: 0 / 0
14.06.2004, 13:07
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560250
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
АлексейК1 определяем в какой контрол отчета загружен подотчет на основе hwnd
2 в зависимости от имени контрола назначаем источник
Нельзя ли пример кода на событие Open родительского очета?
Для двух клонов подотчета.
...
Рейтинг: 0 / 0
14.06.2004, 13:08
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560253
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
на событие Open родительского очета нельзя так как подчиненные еще не загружены
...
Рейтинг: 0 / 0
14.06.2004, 13:10
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560262
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
Неправильно сформулировал вопрос.
Нужен код подотчета sub_rpt, с именами sub_rpt1, sub_rpt2 в родительском отчете parent_rpt. Источники tbl1, tbl2 соответственно.
...
Рейтинг: 0 / 0
14.06.2004, 13:20
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560269
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Вот нечто похожее.
/topic/57838#409215
...
Рейтинг: 0 / 0
14.06.2004, 13:24
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560274
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
что то типа (не проверял):

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Report_Open(cancel as integer)
On Error Resume Next

If Me.Parent.sub_rpt1.report Is Me Then
    If Err.Number =  0  Then me.recordsource = "select * from tbl1 "
End If

If Me.Parent.sub_rpt2.report Is Me Then
    If Err.Number =  0  Then me.recordsource = "select * from tbl2 "
End If


End Sub
...
Рейтинг: 0 / 0
14.06.2004, 13:29
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560314
Sergey_New
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey_New
Участник
2 АлексейК
Проверил. Работает. Спасибо!
...
Рейтинг: 0 / 0
14.06.2004, 14:08
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560327
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
надо же... работает... ??

Пожалуста ))
...
Рейтинг: 0 / 0
14.06.2004, 14:19
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560329
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Мне кажется, что если сделано On Error Resume Next и потом проверяется If Err.Number = 0, то перед If Me.Parent.sub_rpt2.report Is Me надо добавить Err.Clear.
...
Рейтинг: 0 / 0
14.06.2004, 14:20
| Ответить | Цитировать | Написать  
RecordSource подчиненного отчета
    #32560331
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
точно
...
Рейтинг: 0 / 0
14.06.2004, 14:21
| Ответить | Цитировать | Написать  
20 сообщений из 20, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / RecordSource подчиненного отчета
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=1612&tid=1673876]:
 0ms
get settings:
 11ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 52ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 39ms
get tp. blocked users:
 1ms
others: 233ms
total:  365ms
созд. / загр.: 365ms
x
x
Закрыть


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