Модераторы: Akina

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вернуть свойства полей, Вернуть умолчания 
:(
    Опции темы
Mona
Дата 12.11.2007, 19:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Может быть, я спрошу что-то не то, но все-таки.
В отчете много элементов. У каждого свои top, left, height и т.д. Те, которые указаны прямо в конструкторе. На форматировании я меняю  эти параметры (например, делаю их все =0), а потом хочу вернуть то, что было. Это возможно? Наверное, я опять ищу легких путей, но вдруг возможно.


PM MAIL   Вверх
bopoha
Дата 12.11.2007, 20:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21



Опять же при форматировании это можно вернуть обратно. Но уже для другой страницы.
PM MAIL WWW ICQ Skype GTalk   Вверх
Akina
Дата 12.11.2007, 21:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(Mona @  12.11.2007,  20:33 Найти цитируемый пост)
На форматировании я меняю  эти параметры (например, делаю их все =0), а потом хочу вернуть то, что было. Это возможно?

Ну например перед тем как начинать курочить отчет, можно сохранять исходные значения параметров. Не?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Mona
Дата 13.11.2007, 07:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Цитата

Ну например перед тем как начинать курочить отчет, можно сохранять исходные значения параметров. Не? 

Наверное, так и сделаю. Только элементов так много. 
Вобще в данном случае проблема у меня в том, что в заголовке группы при одном условии (первом форматировании) элементы стоят на своих местах, а при втором, третьем и т.д. меняют параметры и к первому условию я уже не возвращалась. И не было бы беды, но если после просмотра пустить на печать,  форматирование идет сначала, а все эти параметры  уже изменены и сами не возвращаются, как я ожидала.  Я понимаю, что все логично, но очень не удобно.
PM MAIL   Вверх
Akina
Дата 13.11.2007, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(Mona @  13.11.2007,  08:36 Найти цитируемый пост)
Наверное, так и сделаю. Только элементов так много. 


Код
' Draft code - idea only

Type lblArrayStruc
  lblName As String
  lblLeft As Integer
  lblTop As Integer
End Type

Dim tmpArray(0) As lblArrayStruc

' ...

For Each OneControl In Form.Controls
  If OneControl.Type = Label Then
    ReDim Preserve tmpArray(UBound(tmpArray)+1)
    tmpArray(UBound(tmpArray)).lblName = OneControl.Name
    tmpArray(UBound(tmpArray)).lblTop = OneControl.Top
    tmpArray(UBound(tmpArray)).lblLeft = OneControl.Left
  End If
Next



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Mona
Дата 13.11.2007, 11:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Спасибо.  Это очень даже хорошо.
Но тут  другая проблема. При запуске на печать не идет ни на Format, ни на Print, а куда?
Где мне их вернуть? Это же не переменную обнулить, мне же их надо форматировать в том месте, где они находятся. Скорее всего я не вижу чего-то очевидного, но у меня не получается.


PM MAIL   Вверх
Akina
Дата 13.11.2007, 11:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(Mona @  13.11.2007,  12:10 Найти цитируемый пост)
Но тут  другая проблема.
Из того что написано дальше, я понял буквы, слова - но не понял смысл.



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Mona
Дата 13.11.2007, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Какое событие происходит при запуске отчета на печать?
PM MAIL   Вверх
Akina
Дата 13.11.2007, 12:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(Mona @  13.11.2007,  13:36 Найти цитируемый пост)
Какое событие происходит при запуске отчета на печать? 

Цитата

The Open event occurs before a report is previewed or printed.
The Page event occurs after Microsoft Access formats a page of a report for printing, but before the page is printed. 
The NoData event occurs after Microsoft Access formats a report for printing that has no data (the report is bound to an empty recordset), but before the report is printed. 


MSDN rulezzz!


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Mona
Дата 13.11.2007, 15:10 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Цитата

The Open event occurs before a report is previewed or printed.

Я же говорю, отчет уже открыт, и все страницы отформатированы. И теперь я его запускаю на печать. У меня не попадает ни на одно событие. 
PM MAIL   Вверх
Akina
Дата 13.11.2007, 15:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Так и должно быть. Оно уже возникало в момент открытия превьюва. Его печать - это событие Application, а не Report.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
kapbepucm
Дата 13.11.2007, 15:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 993
Регистрация: 14.6.2007
Где: Латвия

Репутация: нет
Всего: 12



Mona, т.е., открыв отчёт в режиме Preview, ты хочешь, чтобы на бумаге отображалось нечто другое?


--------------------
(С) kapbepucm
PM MAIL Skype   Вверх
Mona
Дата 13.11.2007, 16:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Цитата

Mona, т.е., открыв отчёт в режиме Preview, ты хочешь, чтобы на бумаге отображалось нечто другое? 


Как раз наоборот! Открыв отчет в режиме Preview я вижу одно, а печатается другое! А хотелось бы одно и то же. 
Я хочу попробовать рассказать, что происходит. У меня в заголовке группы есть элементы. На первой странице (при первом форматировании заголовка группы) они мне нужны в том виде, в котором я расположила их в конструкторе. На второй странице я им меняю параметры (visible,top, left итд), на третьей тоже. Когда я прохожу в режиме preview по всем страницам (все они отформатированы) параметры элементов сохраняются такими, какими я их сделала при последнем форматировании. 
Теперь сразу (не выходя из Preview) я запускаю на печать. И на первой странице (и на второй) на бумаге элементы отображаются в том виде, который на просмотре на последнем. 

PM MAIL   Вверх
Akina
Дата 13.11.2007, 16:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Ну и правильно... конструктор - он ОДИН. На все листы. Есссно используется его последнее состояние.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
bopoha
Дата 13.11.2007, 16:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1283
Регистрация: 10.5.2006
Где: Беларусь, Минск

Репутация: 21
Всего: 21



Не должно такого быть. Сам постоянно скрываю/отображаю элементы для каждой страницы. И печататеся так, как и отображается.
Код в студию.
PM MAIL WWW ICQ Skype GTalk   Вверх
Mona
Дата 13.11.2007, 17:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Не должно такого быть. Сам постоянно скрываю/отображаю элементы для каждой страницы. И печататеся так, как и отображается.
Код в студию. 

Код слишком большой.
Вы создайте простой отчет на таблице из 10 записей (сгруппированных). В области данных одно поле. В нем данные - любое поле из таблицы. В нижнем колонтитуле Поле2 - свободное.

Код

Option Compare Database
Dim kol As Integer

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 kol = kol + 1
End Sub

Private Sub НижнийКолонтитул_Format(Cancel As Integer, FormatCount As Integer)
Поле2= kol
End Sub

На просмотре в Поле2 - 10, а что на бумаге?

Это сообщение отредактировал(а) Akina - 13.11.2007, 18:22
PM MAIL   Вверх
Akina
Дата 13.11.2007, 17:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454



Цитата(Mona @  13.11.2007,  18:18 Найти цитируемый пост)
Код слишком большой.
Вы создайте простой отчет на таблице из 10 записей (сгруппированных). В области данных одно поле. В нем данные - любое поле из таблицы. В нижнем колонтитуле Поле2 - свободное.

Только не он, а ВЫ проделайте это, и присоедините полученную БД, упакованную ЗИПом, к своему сообщению.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Mona
Дата 13.11.2007, 17:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 44
Регистрация: 28.4.2007

Репутация: нет
Всего: нет



Цитата

Код в студию. 

Мой код слишком большой. Создайте простой отчет на таблице из 10 записей. В области данных одно поле. Данные для него - любое поле из таблицы. В нижнем колонтитуле одно поле - свободное.

Код

Dim kol As Integer
Private Sub Report_Open(Cancel As Integer)
 kol = 0
End Sub

Private Sub Нижнийколонтитул_Format(Cancel As Integer, FormatCount As Integer)
Поле2 = kol
End Sub

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
 kol = kol + 1
End Sub
На просмотре в Поле2 - 10, а на печати(или в снимке) - что?

Я только что методом тыка вроде решила это
Код

Private Sub Нижнийколонтитул_Format(Cancel As Integer, FormatCount As Integer)
Поле2 = kol
If FormatCount = 1 Then kol = 0
End Sub


И в своем вроде вернула так же. Но не знаю действительно ли решила проблему.







Это сообщение отредактировал(а) Akina - 13.11.2007, 18:22
PM MAIL   Вверх
Akina
Дата 13.11.2007, 18:23 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 30
Всего: 454




M
Akina
Пользуйтесь тегом "Код"!



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

PM MAIL WWW ICQ Jabber   Вверх
Страницы: (2) [Все] 1 2 
Ответ в темуСоздание новой темы Создание опроса
Правила форума "MS Access"
Akina
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] и [code=sql][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | MS Access | Следующая тема »


 




[ Время генерации скрипта: 0.0735 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.