ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отчеты, отображение данных о клиенте\предприятии???
25 сообщений из 72, страница 2 из 3
  2  все
Отчеты, отображение данных о клиенте\предприятии???
    #32620024
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
madgИ правда фантастика... по моему Р.Брэдбери. но могу ошибаться...
Нашел. Это Шекли.
...
Рейтинг: 0 / 0
24.07.2004, 18:23:48
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620028
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Цитируя тетку из одной рекламы:
А я, как же я.???
...
Рейтинг: 0 / 0
24.07.2004, 18:28:48
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620029
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
ВС ты можешь найти ВСЕ???
Интересно где... ты ищешь...
...
Рейтинг: 0 / 0
24.07.2004, 18:31:19
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620030
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Тогда остается только то, что написал Shuhard:

- обсчёт(и обвес) на лету - в цикле формирования атрибутов ячеек excel;
Но как с этим помочь через форум - я не представляю. Только если кто-то возьмется это все сделать полностью.
...
Рейтинг: 0 / 0
24.07.2004, 18:32:09
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620032
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
madgВС ты можешь найти ВСЕ???
Интересно где... ты ищешь...
http://yandex.ru/yandsearch?text=%F7%F2%EE%E1%FB+%E7%E0%E4%E0%F2%FC+%E2%EE%EF%F0%EE%F1+%ED%E0%E4%EE+%E7%ED%E0%F2%FC+%EE%F2%E2%E5%F2&stype=www
...
Рейтинг: 0 / 0
24.07.2004, 18:33:48
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620033
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Ну циклами мне пользоваться рановато из за опыта, вот пробую объединять ячейки из Акса...
Чем закончится еще не понятно...
...
Рейтинг: 0 / 0
24.07.2004, 18:41:20
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620034
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
madgНу циклами мне пользоваться рановато из за опыта, вот пробую объединять ячейки из Акса...
Чем закончится еще не понятно...
Если получится, поделишься опытом. Я не знаю, как это можно сделать.
...
Рейтинг: 0 / 0
24.07.2004, 18:44:49
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620039
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
а в чём собственно проблема господа ?
madg - циклы по Excel ты уже делать умеешь !
нужно двигаться по recordset-у и каждый раз когда происходит изменение поля(где сидит число 79 в качестве образца) ты имеешь 2 координаты по высоте
т.е. начало и конец зоны непрерывности Id
дальше неинтересно:
Код: plaintext
1.
2.
3.
4.
5.
Range("A1:A5").Select
    With Selection
        .VerticalAlignment = xlJustify
        .MergeCells = True
    End With

после чего ячейки склеиваются - Merge и число в них прижимается к верхнему обрезу.

Вперёд - клепать код.

P.S. вопрос селянину - ко мне на дачные участки заяц прибрёл - вокруг сетчатые заборы - в калитку я его выгнать не смог - вопрос

ХВАТИТ ЛИ У НЕГО СНОРОВКИ ПОД СЕТКОЙ ПРОЛЕЗТЬ или сдохнет в глубине кустов? кстати здоровый с эрдель-терьера и лапищами по сетке барабанит ух
- за чё его хватать если что (половые органы не предлагать - пол существа не опознан)?
...
Рейтинг: 0 / 0
24.07.2004, 18:51:28
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620042
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Я не селянин, но зайцев вроде берут за уши...
...
Рейтинг: 0 / 0
24.07.2004, 18:59:23
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620043
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
За органы не хватай, он если такого размера тебя органом зашибет :)
Перчатки, куртка (джинса, старенькая, и то может не выдержать) и за ушки...
Как ты его загонять будешь и не представляю... уж очень они шустрые...
Я за одним на лошади гонял... бедная лошадка... :(

1. Пробраться мог двумя способами:
через забот (и два метра не остановит, если тама что вкусное, интересное)
2. Под забором. Сам видел, как они (зайцы, кролики) живучи в яме, которая для них есть дом родной, глубиной 2,5м. роют ходы вверх по наклонной...

В общем

Страшной силы зверь... :)

Код кропать буду через пару часиков...
У ро'дной матерь день народженння, так что...
...
Рейтинг: 0 / 0
24.07.2004, 19:01:13
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620044
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
Саныч
Ага. Значит, Shuhard правильно понял. Мне учиться и учиться... У Shuhard'а телепатии
Я не телепат.В СССР существовало понятие госкомстатовская отчётность,из него вышла масса бланков/форматов/шахматок и прочего.
Последнее место моей работы отраслевой статцентр ТЭК,а сам я разработчик более 150 отчётов - правильное оформление каковых сидит на уровне рефлекса!

Твой вариант каждый уважающий себя чиновник "со школой" смотреть не станет.
...
Рейтинг: 0 / 0
24.07.2004, 19:02:33
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620046
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
ShuhardТвой вариант каждый уважающий себя чиновник "со школой" смотреть не станет.
:^) Понятно. Просто я плясал от возможностей Аксесса.
...
Рейтинг: 0 / 0
24.07.2004, 19:04:13
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620137
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Shuhard ты прав конечно, научил меня немного циклам... :)

Вот что получилось:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    ct =  2 
    URang =  2 
    URang1 = URang +  8 
    Do Until MyRst.EOF
    If MyRst![Rang_ID] =  0  Then
        mysheet.Cells(ct,  2 ).Select
        myOlApp.Selection.Font.Bold = True      '1
        myOlApp.Selection.Font.Italic = True    '2
        mysheet.Range("a" & URang & ":" & "a" & URang1).Select
    With myOlApp.Selection
        .VerticalAlignment = xlJustify  '3
        .MergeCells = True   '4
    End With
    URang = URang +  8 
    URang1 = URang +  8 
    End If
    ct = ct +  1 
    MyRst.MoveNext
    Loop

Винда выдает подтверждения на замену данных при объединении, но в итоге вот что получается, см. рисунок...

Т.е. ячейки не объеденились, да еще данные во втором предприятии удалены...
Я конечно что то неправильно сделал, но вот что??? Крутил и так и этак нифига не пойму... :(
...
Рейтинг: 0 / 0
24.07.2004, 22:40:24
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620141
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Прошу пардону небольшая ошибочка диапазон неверно указывал,вот подправил:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
    ct =  2 
    URang =  2 
    URang1 = URang + [color=red] 7 [/color]
    Do Until MyRst.EOF
    If MyRst![Rang_ID] =  0  Then
        mysheet.Cells(ct,  2 ).Select
        myOlApp.Selection.Font.Bold = True      '1
        myOlApp.Selection.Font.Italic = True    '2
        mysheet.Range("a" & URang & ":" & "a" & URang1).Select
    With myOlApp.Selection
        .VerticalAlignment = xlJustify
        .MergeCells = True
    End With
    URang = URang +  8 
    URang1 = URang + [color=red] 7  [/color]
    End If
    ct = ct +  1 
    MyRst.MoveNext
    Loop

Но объединения все равно нету, а подтверждения просит... :(
Стадии 1, 2 отрабатывает...
...
Рейтинг: 0 / 0
24.07.2004, 22:47:16
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620157
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Offtopic
Нашел этот рассказ.
http://lib.web-malina.com/getbook.php?bid=5414
End Offtopic
...
Рейтинг: 0 / 0
24.07.2004, 23:38:36
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620161
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
ВС читает (или ищет?) фантастику... :)

Второй час сижу долблю макрос в Ексе, все работает...
Из Акса не хочет... :(
Может после:
Код: plaintext
.MergeCells = True
Ему еще чего надо?
Тогда почему выдает предупреждения???
Нифига не пойму...
...
Рейтинг: 0 / 0
25.07.2004, 00:10:28
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620162
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
Та же программа работает, если ее запустить в Экселе, и не работает из Аксесса? Абзац. Может, Shuhard сможет объяснить...
...
Рейтинг: 0 / 0
25.07.2004, 00:15:42
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620169
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Shuhard если ты здеся отзовис....

Выдает сообщение:
см рисунок
После выпонения кода объединение данных происходит!!!
Объединения ячеек нет!!!
...
Рейтинг: 0 / 0
25.07.2004, 00:36:49
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620170
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Вот то что получилось с данными
Видно что объединения ячеек нет...

Хрень какая то...

ВС слишком мягко выражается... даже если у меня руки кривые, и "абзац" про меня...
...
Рейтинг: 0 / 0
25.07.2004, 00:40:56
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620171
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Если "вдруг" решится вопрос с объединением, следующий будет :
А как отключить предупреждение при объединении?

FAQ по отключению предупреждений в Аксе читал, пробовал.
Непомогло... :(

ЗЫ
Во наплодил...
...
Рейтинг: 0 / 0
25.07.2004, 00:45:22
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620172
Фотография Владимир Саныч
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Владимир СанычПривилегированный пользователь
Модератор форума
madgFAQ по отключению предупреждений в Аксе читал, пробовал.
Нет, это точно не оно. Это какие-то экселевские штучки.
...
Рейтинг: 0 / 0
25.07.2004, 00:46:28
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620173
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Нарыл вот здесь информацию о том что :
Код: plaintext
Application.DisplayAlerts = False
в Ексе отключает вывод сообщений.
В Аксе нет у Application свойства DisplayAlerts...
Как быть не знаю...

ЗЫ
ВС бессонница?
...
Рейтинг: 0 / 0
25.07.2004, 01:09:01
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620176
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
OffTop
Shuhard
ХВАТИТ ЛИ У НЕГО СНОРОВКИ ПОД СЕТКОЙ ПРОЛЕЗТЬ или сдохнет в глубине кустов? кстати здоровый с эрдель-терьера и лапищами по сетке барабанит ух
- за чё его хватать если что (половые органы не предлагать - пол существа не опознан)?

Зажигание одноко...

Shuhard или он тебя (всмысле овощи на даче) или ты его...

А про сноровку...
Опять два варианта или он с друзьями (обязательно придут) обожрут твою дачу, или ты со своими его, под ПИВО!!!!
Выбирай... :)
А сдожнуть он не сдохнет... пока жратва будет... воды ему не надо...
End OffTop
...
Рейтинг: 0 / 0
25.07.2004, 01:16:34
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620178
(c)VIG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
(c)VIG
Участник
Насколько я помню, надо сначала задать диапазон объединения, а только потом значение в этом диапазоне
...
Рейтинг: 0 / 0
25.07.2004, 01:28:38
| Ответить | Цитировать | Написать  
Отчеты, отображение данных о клиенте\предприятии???
    #32620180
madg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
madg
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
'.................
        mysheet.Range("a" & URang & ":" & "a" & URang1).Select ' Вроде выделил
    With myOlApp.Selection
        .VerticalAlignment = xlJustify ' Операции -?
        .MergeCells = True
     End With
'.................
Все правильно? Или я не прав?
...
Рейтинг: 0 / 0
25.07.2004, 01:40:19
| Ответить | Цитировать | Написать  
25 сообщений из 72, страница 2 из 3
  2  все
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Отчеты, отображение данных о клиенте\предприятии???
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32620169&tid=1672958]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 43ms
get topic data:
 6ms
get forum data:
 2ms
get page messages:
 35ms
get tp. blocked users:
 1ms
others: 195ms
total:  302ms
созд. / загр.: 302ms
x
x
Закрыть


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