Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема / 18 сообщений из 18, страница 1 из 1
03.05.2003, 10:56
    #32152663
ДенисCh
ДенисCh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
1)
Есть отчет в Access XP.
Добавляю в него надпись lblTitle, а свойства Caption там нет.
Как поменять Caption из VB?

2)
Как мне закрыть отчет из VB?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2003, 12:02
    #32152671
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
1
Как это нет?
lblTitle.Caption="Должно работать"
2
DoCmd.Close acReport, ReportName
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2003, 16:06
    #32152698
ДенисCh
ДенисCh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
нет такого свойства у label в отчете
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2003, 18:27
    #32152722
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Могу поспорить на пиво.
(Ручками, ручками...)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.05.2003, 19:33
    #32152732
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Либо это не label, либо Аксесс недоброкачественный.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 07:12
    #32152793
ДенисCh
ДенисCh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Спасибо за советы
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 08:33
    #32152797
ДенисCh
ДенисCh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private col As New Collection, colel As Report_repДинамикаОтгрузок

' Добавляю отчет в коллекцию
col.Add New Report_repДинамикаОтгрузок

'Изменяю название окна
col.Item(col.Count).Caption =  "jdcw h " 

col.Item(col.Count).lblTitle.Caption =  "НЕ МЕНЯЕТСЯ НАЗВАНИЕ В ОТЧЕТЕ" 

col.Item(col.Count).Visible = True


Почему не меняется название в отчете?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 10:22
    #32152807
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
>Почему не меняется название в отчете?

Отчет должен быть открыт или для просмотра acPreview (тогда, после закрытия свойство не сохраниться) или как acDesign (тогда свойство сохраниться). Ты как открываешь?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 11:23
    #32152815
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Это часть той же проблемы, что я обсуждаю в топике "New Report". Когда открыть отчет по DoCmd.OpenReport все хорошо. По New проходит вот такая конструкция
Код: plaintext
1.
2.
Dim lbl as Label
Set lbl=col.Item(col.Count).lblTitle
lbl.Caption= "Мы его добъем"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 20:35
    #32152918
ДенисCh
ДенисCh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
я попробовал, но название не изменилось.

После выполнения строчки кода,
Код: plaintext
1.
col.Add New Report_repДинамикаОтгрузок

происходит открытие отчета и дальнейшие манипуляции с ним оказываются бесполезными.
Я пытался поменять свойства Lable

1)
Код: plaintext
1.
col.Item(col.Count).lblTitle.Caption =  "НЕ МЕНЯЕТСЯ НАЗВАНИЕ В ОТЧЕТЕ"

результат печальный

2)
Код: plaintext
1.
2.
3.
Dim lbl As Label
Set lbl = col.Item(col.Count).lblTitle
lbl.Caption =  "Не добил"

результат аналогичен

3) Была идея о том, что нужно менять свойство label в исходном отчете, а затем выполнять New Report_repДинамикаОтгрузок.
Код: plaintext
1.
2.
3.
Report_repДинамикаОтгрузок.lblTitle.Caption =  "попытка"  
col.Add New Report_repДинамикаОтгрузок
col.Item(col.Count).Visible = True

результат отсутствует.

Сейчас я в третьем модуле объявил глобальные переменные. Перед выполнением
Код: plaintext
1.
col.Add New Report_repДинамикаОтгрузок

присваиваю им необходимые значения, а в событии открытия формы, инициализирую Labelы этими глобальными переменными. Этот способ работает, но он дурацкий. Должен быть нормальный способ построения отчетов.
Какой?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 20:40
    #32152920
Владимир Саныч
Владимир СанычПривилегированный пользователь
Модератор форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
> Должен быть нормальный способ построения отчетов. Какой?

Не пользоваться ...New Report_...

Код: plaintext
Увы.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.05.2003, 23:27
    #32152927
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Код: plaintext
1.
2.
3.
4.
Private Sub Report_Open(Cancel As Integer)
Dim lbl As Label
Set lbl=Me.lblTitle
lbl.Caption= "Со второго раза добъем!!!" 
end sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2003, 00:10
    #32152930
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Что-то я невнимателен. Практически предложил тоже.
Идею с New Report придется скорее всего отложить до лучших времен (может очередная версия Access что-то прояснит, а то пока от DoMenuItem недалеко ушли)
Себя успокаиваю следующим:
1. Нефиг открывать отчеты в PreView - для просмотра данных на экране использовать только формы и ничего кроме форм.
2. Для отсылки на принтер пойдет и этот ужас DoCmd (кто его только придумал, особенно DoCmd.RunCommand, правда спасибо и на том, что есть уже прогресс по сравнению с DoMenuItem).

Но пока осталась не решенным:
1) Как изменить програмно ширину отчета без режима конструктора
2) Как изменить ориентацию Portrat/Landscape без режима конструктора
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2003, 00:39
    #32152931
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Мало того, что и невнимателен, да еще и склероз...
Тут на форуме решили и те две проблемы
Код: plaintext
1.
2.
3.
4.
Dim rpt As Report
DoCmd.OpenReport  "Тест" , acPreview, , , acHidden
Set rpt = Reports( "Тест" )
rpt.Printer.Orientation = acPRORPortrait 'acPRORLandscape
DoCmd.OpenReport  "Тест" , acPreview
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2003, 07:20
    #32152954
ДенисCh
ДенисCh
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
Код: plaintext
1.
2.
3.
4.
5.
Private Sub Report_Open(Cancel As Integer)
Dim lbl As Label
Set lbl=Me.lblTitle
lbl.Caption= "Со второго раза добъем!!!" 
end sub
Стали добивать там, где все работает. Для этого способа приходтся вводить кучу глобальных переменных, что мне не очень нравится.

Я выбрал такой способ:
1) Открываю основной отчет в режиме конструктора.
Код: plaintext
1.
DoCmd.OpenReport  "Отчет" , acViewDesign, , , acHidden

2) Делаю с ним все, что угодно.
3) Закрываю его с сохранением всех изменений.
Код: plaintext
1.
2.
3.
DoCmd.SetWarnings False
DoCmd.Close acReport,  "Отчет" 
DoCmd.SetWarnings True

4) Добавляю отчет в коллккцию
Код: plaintext
1.
col.Add New Report_Отчет

Вывод: Я открываю произвольное количество различных отчетов.

Теперь появилась другая проблема.
Отчет - динамика отгрузок для заданного клиента - один лист с графиком. Для открытия и печати 30 отчетов мой комп с XP выделяет почти 700 МБ.
Проблема - хочу запихнуть все мои графики в один отчет, это возможно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2003, 08:53
    #32152984
Senin Viktor
Senin Viktor
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
>хочу запихнуть все мои графики в один отчет, это возможно?

Да.
См. Подчиненые отчеты
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2003, 11:49
    #32153151
V. Motchulsky
V. Motchulsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
1. С конструкторами тоже не все хорошо. Как только скомпилировать в ADE или MDE все перестанет работать.
Уж лучше
Код: plaintext
1.
2.
Private Sub Report_Open(Cancel As Integer)
Make Me
end sub
и
Код: plaintext
1.
2.
Public Sub Make(Rpt)
Set Rpt.lbl.Caption= "Делаем все в отдельном модуле..., тоесть опять лишь только косметически" 
End Sub
2. Вместо
Код: plaintext
1.
2.
DoCmd.SetWarnings False
DoCmd.Close acReport,  "Отчет" 
DoCmd.SetWarnings True
просто
Код: plaintext
DoCmd.Close acReport,  "Отчет" ,  acSaveYes
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.05.2003, 13:24
    #32153261
wara
wara
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проблема
"я попробовал, но название не изменилось. "
Я не совсем внимательно читал, но, по-моему в отчете недписи можно программно менять по событию "форматирование" соотв. раздела. Не в этом ли дело?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Проблема / 18 сообщений из 18, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 440ms
Закрыть
start [/forum/topic.php?fid=45&tablet=1&tid=1681634]:
 0ms
get settings:
 10ms
get forum list:
 17ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 88ms
get topic data:
 10ms
get forum data:
 5ms
get page messages:
 57ms
get tp. blocked users:
 1ms
others: 244ms
total:  440ms
x
x
Закрыть


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