Зеркальные поля в отчёте / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Зеркальные поля в отчёте

8 сообщений из 8, страница 1 из 1

Зеркальные поля в отчёте

#35869137

Dimos9

Гость

Всем привет !!!
Таким кодом создаю зеркальные поля в отчёте.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
   Dim ctl As Control
   If (Me.Page Mod  2  =  0 ) Then 'odd page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left +  1440  'move all to the left on 1 inch
         End With
      Next
   Else
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left -  1440  'move all to the right on 1 inch
         End With
      Next
   End If
End Sub

...

Рейтинг:

0 / 0

14.03.2009, 12:52

| Ответить | Цитировать | Написать

Зеркальные поля в отчёте

#35869188

непоймучка

Гость

Dimos9Всем привет !!!
Таким кодом создаю зеркальные поля в отчёте.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
   Dim ctl As Control
   If (Me.Page Mod  2  =  0 ) Then 'odd page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left +  1440  'move all to the left on 1 inch
         End With
      Next
   Else
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left -  1440  'move all to the right on 1 inch
         End With
      Next
   End If
End Sub

В результате все происходит нормально кроме поведения нижнего колинтула, который сдвигается в противоположную сторону. Например на 1 странице левое поле 2.5см а у нижнего колинтула правое поле 2.5см. И так дальше на всех страницах нижнийо колинтулл сдвигается в противоположную сторону.
Что надо поправить ?Замечу, что приведенным кодом вы сдвигаете в сторону, ПРОТИВОПОЛОЖНУЮ тем комментариям, которые у вас там написанывот это:.Left = .Left + 1440 'move all to the left on 1 inchэто НЕ move to the LEFT, это как раз move to the RIGHT. И аналогично во второй строке.

...

Рейтинг:

0 / 0

14.03.2009, 13:52

| Ответить | Цитировать | Написать

Зеркальные поля в отчёте

#35869246

Dimos9

Гость

непоймучка,

Согласен, теперь сделал так

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
   Dim ctl As Control
   If (Me.Page Mod  2  =  0 ) Then 'odd page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left -  1440  'move all to the left on 1 inch
         End With
      Next
   Else 'even page
      For Each ctl In Me.Controls
         With ctl
            .Left = .Left +  1440  'move all to the right on 1 inch
         End With
      Next
   End If
End Sub

ничего не изменилось. В атаче пример

...

Рейтинг:

0 / 0

14.03.2009, 14:55

| Ответить | Цитировать | Написать

Зеркальные поля в отчёте

#35869394

непоймучка

Гость

посмотрите

...

Рейтинг:

0 / 0

14.03.2009, 18:28

| Ответить | Цитировать | Написать

Зеркальные поля в отчёте

#35869516

Dimos9

Гость

непоймучка,

Ничего не скажешь красиво !!!

Большое спасибо

...

Рейтинг:

0 / 0

14.03.2009, 21:33

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Зеркальные поля в отчёте

#39601162

Gurd77

Гость

Ввожу код и выдает ошибку "элемент управления или подчиненная форма не могут быть размещены в указанном месте" как решить проблему.
Заранее спасибо

...

Рейтинг:

0 / 0

13.02.2018, 14:40

| Ответить | Цитировать | Написать

Зеркальные поля в отчёте

#39601193

Анатолий ( Киев )

Гость

Gurd77Ввожу код и выдает ошибку "элемент управления или подчиненная форма не могут быть размещены в указанном месте" Вероятно ширина отчета слишком мала, чтоб перемещаемый элемент вместился. Проверьте, на каком элементе возникает ошибка. Возможно это горизонтальная линия на всю ширину отчета, которую двигать не надо.

...

Рейтинг:

0 / 0

13.02.2018, 15:00

| Ответить | Цитировать | Написать

Зеркальные поля в отчёте

#39601271

Gurd77

Гость

Анатолий ( Киев ), посмотрел в режиме макета все вроде умещается((((

...

Рейтинг:

0 / 0

13.02.2018, 16:15

| Ответить | Цитировать | Написать

8 сообщений из 8, страница 1 из 1

Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Зеркальные поля в отчёте

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=45&fpage=57&tid=1611698]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	55ms
get topic data:	14ms
get forum data:	3ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	282ms

total:	431ms