ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как изменять заголовки столбцов при перекрестном запросе?
19 сообщений из 19, страница 1 из 1
Как изменять заголовки столбцов при перекрестном запросе?
    #32195837
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
Господа!
Имеется следующая проблема. Есть две таблицы: товары и поступление товаров в магазин. Необходимо вывести отчет о количестве поставленного товара, скажем, за последние пять поставок. (в строках: список товаров, в столбцах: последняя пост., предпосл. пост. и т.д...)
Я создаю перекрестный запрос: в строках идут товары, в столбцах: пять последних дат поставок.
Делаю отчет - все нормально. Но потом, когда в таблицу "поступления товаров" вносятся новые данные, при запуске отчета выдается сообщение типа: " "[10.06.03]" не распознается ядром базы данных...". Все потому, что при перекретстном запросе в заголовках столбцов стоят последние пять дат. А потом, когда вносятся новые записи - происходит такая фигня. В запросе меняются заголовки столбцов.
Подскажите, пож-та, как тут быть?
...
Рейтинг: 0 / 0
01.07.2003, 11:23
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32195850
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Можно в отчете на OnOpen менять ControlSource тех контролов, которые привязаны к стролбцам перекрестного запроса.
...
Рейтинг: 0 / 0
01.07.2003, 11:33
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32195874
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
А можно подробнее? Я, естес-но, не очень уловил...
...
Рейтинг: 0 / 0
01.07.2003, 11:48
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32195879
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
В отчете некоторые контролы сидят на полях перекрестного запроса. У этих полей периодически меняются имена. Соответственно, надо менять ControlSource этих контролов, и делать это можно на OnOpen отчета.
...
Рейтинг: 0 / 0
01.07.2003, 11:51
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32195910
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
Понятно. Но как это прописать? В свойствах отчета в событии "открытие", как я понял. Это можно сделать с помощью построителя выражений или на VBA надо писать там?
Спасибо.
...
Рейтинг: 0 / 0
01.07.2003, 12:12
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32195932
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
На VBA. Примерно так:

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset(Me.RecordSource)
Me!Control1.ControlSource = rs.Fields(0).Name
Me!Control2.ControlSource = rs.Fields(1).Name
rs.Close
...
Рейтинг: 0 / 0
01.07.2003, 12:21
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32205905
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
ВС, а можно пояснить, что я должен поставить на место Fields(0).Name и т.д...
Создаю отчет на основе запроса Query1:
Код: plaintext
1.
2.
3.
4.
5.
          Date1     Date2     Date3 ....
Prod1
Prod2         
Prod3
...
...
Рейтинг: 0 / 0
11.07.2003, 16:15
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32205937
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
> а можно пояснить, что я должен поставить на место Fields(0).Name и т.д...

Ничего не надо ставить. Должно остаться, как написано. Идея-то в том, чтобы названия полей брались из запроса, где они от раза к разу меняются.
...
Рейтинг: 0 / 0
11.07.2003, 16:29
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32205957
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
Просто из приведенного кода я не вижу, что данные заголовков столбцов он берет именно из запроса Query1.
Блин... Конец рабочей недели. Голова совсем не варит... Чего я не понимаю?
...
Рейтинг: 0 / 0
11.07.2003, 16:40
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32205978
sasha_1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sasha_1
Участник
ну ведь написано
Me.RecordSource

me-это отчет, соответственно из его сурса поля и берутся.
...
Рейтинг: 0 / 0
11.07.2003, 16:52
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32206797
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
>На VBA. Примерно так:
>
>Dim rs As DAO.Recordset
>Set rs = CurrentDb.OpenRecordset(Me.RecordSource)
>Me!Control1.ControlSource = rs.Fields(0).Name
>Me!Control2.ControlSource = rs.Fields(1).Name
>rs.Close

ВС!
Выдает ошибку в первой же строке:
"Compile error
User-defined type not defined".
...
Рейтинг: 0 / 0
14.07.2003, 10:49
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32206802
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
А библиотека DAO подключена?
...
Рейтинг: 0 / 0
14.07.2003, 10:51
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32206840
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
Теперь да. :)
Теперь что-то новое: "Приложению Microsoft Access не удается найти поле "Control1", указанное в выражении".
...
Рейтинг: 0 / 0
14.07.2003, 11:14
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32206874
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Почтеннейший, я ведь не знаю, как Ваши контролы называются. Control1 - это я просто для примера написал.
...
Рейтинг: 0 / 0
14.07.2003, 11:35
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32206910
PaulB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
PaulB
Гость
Смотрите:
C:\Program Files\Microsoft Office\Office\Samples\Решения.mdb
"Создание сложных отчетов"
"Создание перекрестного отчета с динамическими заголовками столбов"

Кратко поясню: там программно присваиваются переменные источники данных полям, имена которых зафиксированы.
...
Рейтинг: 0 / 0
14.07.2003, 11:55
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32207556
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
ВС!
Большое спасибо! Все сработало. Просто тормозил...
Есть еще маленький вопросик... В верхнем колонтитуле ставлю поле даты (date1), которое должно, по идее, отображать название столбца-источника (из запроса).
В той же процедуре при открытии пишу:
Me![Date1] = rs.Fields(2).Name
Не работает...
Me![Date1].Value = rs.Fields(2).Name
Тоже не работает... :(
...
Рейтинг: 0 / 0
14.07.2003, 18:02
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32207559
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Me![Date1].ControlSorce = "=""" & rs.Fields(2).Name & """"
...
Рейтинг: 0 / 0
14.07.2003, 18:05
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32207996
Champion
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Champion
Гость
Спасибо огромное, ВС! Что бы я без вас делал. :)
Именно так и сработало... А почему - не пойму. Правой части вообще не понял...
...
Рейтинг: 0 / 0
15.07.2003, 10:55
| Ответить | Цитировать | Написать  
Как изменять заголовки столбцов при перекрестном запросе?
    #32208063
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
По поводу правой части: она создает стринг типа

="Vasya"

Именно так дожен выглядеть ControlSource (знак равенства, а потом выражение), если это не поле.
...
Рейтинг: 0 / 0
15.07.2003, 11:37
| Ответить | Цитировать | Написать  
19 сообщений из 19, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как изменять заголовки столбцов при перекрестном запросе?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32195910&tid=1680536]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 69ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 37ms
get tp. blocked users:
 1ms
others: 228ms
total:  368ms
созд. / загр.: 368ms
x
x
Закрыть


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