а мне батарейки в мышку

То, что пили - это помню........
А вот с кем ..............

Гамлет, с тебя беспроводная мышка А4Tech R7.
У моей колесо уже отвалилось.
Я же просил переместиться в новую ветку!

Так наверное хорошо "отдыхали", что не помнит.

Во час дает,
всю тяпницу с Мюллером пробухал, а так ничего и не заметил (или притворяется)

Мюллер, а Мюллер
Личико то, открой

Чё та я тут упустил
Малость постов пропустил
где-то что-то не слыхал
И от жизни я отстал..........................

А мюллер - он кто раньше был?????
Или это кто-то вновь появившийся?????????

Мюллера на него нету

зато гамлет - тут .....
и заявляет , что он конь в пальто из кожи........
Что можно смело говорить
Ба знакомые все рожи!!!!!!!!!!!!

Ну что тебе ответить час?
Он жил "сегодня и сейчас".
Решил о прошлом он забыть,
И ник привычный изменить.

Точно Скорпа нету

Час тут извиняется
Вот что получается
У парашюта нету строп
На форуме не видно - скорп

не смог я рифму подобрать
дляника скорпа ......... ..мать

Ба знакомые все лица

О Вашей ходят легенды
а О нашей - только шутки

То час
А в народе о нашей сообразительности ходят легенды

Скажи мне Lukas наконец
Кто - этот Гамлет-молодец
Кто это чудо сотворил?
С каким он ником раньше был?

С кем поведешься, с тем и "наберешься"!
Такова жизнь!
"О времена, о нравы!"

Знавал я одного Гамлета...
Он жил в иные лета......
А Вы кто раньше были?
Надеюсь не забыли...
Откройтесь на конец
Терпению мон........де.........ц.

То Lucas
Встречают "по лицу", а провожают "по копчику".

Ведь это же неэсетично !!!

Странный жеребец получился...
А кто в него оборотился?

Вот так зайдёшь на форум
А как собрать здесь кворум
Кто раньше часом был
Про ник про свой забыл
Теперь он стал минуткой
Свой ник зовёт он - шуткой..........

Что в Вымени теме моём надо???

То: час
А вы кто ?
Конь в кожанном пальто

"Что в имени тебе моем?...."

Простите, а Вы кто???
и где ёрик???

Как думаешь новый ник мне к лицу

Встречают "по лицу", а провожают "по копчику".
Что-то вас с Мюллером потянуло на "преданье старины глубокой".

Привет
Как думаешь новый ник мне к лицу

зы
А Капитан сказал что все в порядке

osmors - ХР......(перевод: осмору хреново)
Вот кода нагружаешь себя родимого глыбой работ - тода срывы и начинаются.
Организьма она не железная, а мы ей отдыха не даём - сам такой. ...........
И всё понимаешь вроде бы, а куды деваться........ и так -пока не сдохнешь....
Вот там-то уж отдохнёшь....................................................................................................................
Стоит ли оно того????????????????

Во osmor дает. А Юлий Цезарь отдыхает.

Быстрейшего выздоровления

Ну еще не совсем поправился... планирую продолжить лечиться в выходные. Мед и лимон уже из ушей лезут , 4 дня только на этом и жил.
Как встретились.... да никак, у всех (в том числе и у меня) цейтнот, так что отложили до лучших времен.

Так значит поправился?
Как будет маленькое окошечко, стукни пару слов как встретились? :-)
Пей чай с мёдом тоже, а лучше водку с перцем )))

Чем прямо сейчас...
- читаю почту за 3 дня
- разгребаю заявки на закрытие/открытие/перенос аккаунтов нападавшие с понедельника
- читаю форум с понедельника
- поднимаю 2 тестовых сервера (один на реальной машине, один на виртуальной), что бы на них потестить 2 антивируса (триальные версии надыбал на софтуле)
- пишу письмо в ESET с просьбой прислать триальный ключ для их лотусового антивиря.
- пью чай с шиповником
- периодически хватаюсь за 1 из 3 телефонов

Сегодня никакой творческой работы не предвидется... рутина, правда я сегодня на большее и не способен... в мозгах каша...

+1

Пора на боковую
Спк.ночи

а ведь это правильно, что мы мыслим несколько неодинаково

не могу не согласиться

Да я вобщем-то не завелся.
Я вот чего думаю, а ведь это правильно, что мы мыслим несколько неодинаково.
А то бы-ли бы похожи на "оловянных солдатиков".

Lukas еще не остыл?
Не пойму чего ты так завелся

Молоток!!!!!

так я не понял - вы к зайчикам или заям???
(тока не говорите, что у программеров нет денег и нет заек))) )

Кто-то спать 10 минут назад собирался, а все еще на форуме?
Иди к зайчикам!

Наверное последую примеру час-а. Пойду к зайчикам. Удачи

Новую точно пора открывать, а то у меня ветка по полминуты грузится.

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

А час наверное уже у зайчиков на форуме

Приятно слышать.

Так мы щас и не поедем.
Нас пока и дома не плохо кормят

Ты посмотри, что сейчас в Америке, да и в Европе творится. Сотни тысяч людей - на улицу. Я думаю сейчас там сильно не до программ и программистов.

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

Пора закрывать эту ветку и начинать новую. Уже больше 100 "листиков".

Да, деньги вопрос философский ...
Чтобы они были их нужно очень любить и очень хотеть. Сначала они должны появиться у нас в сознании. Если их не будет у нас в голове их не будет и физически
Хотя есть тысячи примеров когда деньги приносили одни только проблемы...

Pasat - ты где?
Я тоже наверное спать пойду.........
Спок ночи......

Зато голова не болит о сохранности огромного имущества, доходности инвестиций и котировках акций.

Об этом нет, не болит.....
болит о том, что скоро выбросят с работы и тода начнуться трудности.....
В моём возрасте на работу программером не берут.
А грузчиком - здоровье осталось на работе

Не, я это не умею, думал час научит.

Да я вобщем тоже романтик. Времен "Вперед к победе коммунизма".
И, соответственно, тоже без денег.
Да и фиг с ними, всех денег не заработаешь и в могилу с собой не заберешь.
Зато голова не болит о сохранности огромного имущества, доходности инвестиций и котировках акций.

Нужны!
Кушать то всем хоца, но романтики летают мыслями в облаках,
а чтоб бабки были - надо строить планы по наращиванию капиталла, твёрдо стоя на земле - мне это никогда не удавалось....

У меня, Lukas карман имеет дырку, сквозь которую проваливается всё, что у других задерживается.
Романтик я по натуре. И потому без денег.........
Башка больше занята программированием - самим процессом создания программы, а ни как не получение от этого дохода.
Конечно понимаю умом, что дурак, но .............
Вот так.........

А ты Lukas и это умеешь?

Интересная темка получается

А романтикам что деньги не нужны ?

Понятно, значит учетом товарно-материальных ценностей озадачен. При обмене данными тебе в кармашек ничего не теряется?

В одном офисе работает прога ТИС - стандартная конфигурация.
В другом офисе будет филиальная база на access /
Пока не во всё въехал.
Чё из 1 с брать, чё туда слать - вот в раздумьях сижу

самый примитив (скромно так)
Надо складскую программку написать для обмена данными с Торг И Склад от 1С.....

Час, чего сочиняешь в настоящий момент?

ННННННННааааааааааливай

Спасибо
Теперь можно и чайку попить

Может вместо линии рисовать сплюснутый прямоугольник?
Если его закрасить - получиться линия.
Да рамки можно по разному рисовать,
Me.Line (0, 0)-(1000, 5000), , B

но немного кода для идей не помешает..........

Выбирай тот, который ОК. Me.Height

Есть значительно более веселый способ рисования рамок на Русимпорте. В статьях.

http://am.rusimport.ru/MSAccess/topic.aspx?ID=133

Вопрос: Рисyем pамки:

Совет:
Из кода рисуются только вертикальные линии. горизонтальные нарисованы заранее.
Расположение линий определяется по вертикальным линиям например в ВерхнийКолонтитуле

\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

В модуле отчета Option Compare Database Option Explicit Dim vlineData(30) As String Private Sub Report_Open(Cancel As Integer) 'Заполняем при открытии отчета массив зарание расположенными элементами (именами) 'В данном случае имена линий 'Последний элемент должен быть пустой строкой ""     vlineData(0) = "Линия13"     vlineData(1) = "Линия14"     vlineData(2) = "Линия15"     vlineData(3) = "Линия16"     vlineData(4) = "Линия17"     vlineData(5) = "" End Sub Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer) 'Вызываем функцию без ограничения высоты линий     Call DrawVertLines(Me, vlineData) End Sub \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ В отдельном модуле Option Compare Database Option Explicit 'Фукция DrawVertLines. Рисование вертикальных линий в отчете. 'rep - указатель на отчет 'vlineData массив имен элементов из отчета (например имена линий разделяющих заголовки столбцов столбцы) 'последний элемент должен быть пустой строкой 'TopCtrl и BottomCtrl - имена элементов из отчета для ограничения линий по высоте (если эти аргументы пропущены, 'то высота линий будет равна высоте раздела отчета при форматировании которого применяется данная функция) Public Function DrawVertLines(rep As Report, vlineData() As String, Optional TopCtrl As String = "", Optional BottomCtrl As String = "")     Dim i As Long     Dim x1 As Long     Dim y1 As Long     Dim x2 As Long     Dim y2 As Long     On Error Resume Next     If Len(TopCtrl) <> 0 Then         y1 = rep.Controls(TopCtrl).Top     Else         y1 = 0     End If          If Len(BottomCtrl) <> 0 Then         y2 = rep.Controls(BottomCtrl).Top     Else         y2 = 10000     End If          For i = 0 To 30         If Len(vlineData(i)) > 0 Then             x1 = rep.Controls(vlineData(i)).Left             x2 = x1             rep.Line (x1, y1)-(x2, y2), 0         Else             Exit For         End If     Next i End Function

В принципе уже нарисовали, но все равно присоеденяйся
может чего по интересней нарисуем

привет !!!!!!
Линии рисуете???
Интересно

Попробывал так
Me.Section(0).Height.CanGrow
и так
Me.Section(0).CanGrow
не работоспособно

а так
Me.Section(1).Height
и так
Me.Height
всё ок.

И какой вариант прикажете выбрать

3. а не все ли равно если через Me.Height всё ОК

Тогда "по барабану".

2. расширение разрешить - это так Me.Section(1)

Me.Section(1) - это секция отчета с индексом 1.

Me.Section(0).CanGrow - расширение разрешить, но:
This property setting is read-only in a macro or Visual Basic in any view but Design view

1. линия нужна на область данных
2. расширение разрешить - это так Me.Section(1)
3. а не все ли равно если через Me.Height всё ОК

А у меня на всей области данных линия сплошная, без разрывов, при Me.Section(0).Height

Обманулся, рвется, просто забыл расширение разрешить.

А линия нужна на область данных или на высоту отчета?

Как ни странно при использывании
Me.Section(0).Height
линия получается с разрывами. А если просто
Me.Height
то всё нормально

Ну тогда всем зайчиков во сне.

Сразу не заметил.

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer) Me.Line (0, 0)-(0, Me.Height) 'Здесь правильнее наверное Me.Section(0).Height ? End Sub

Еще раз спасибо за новые знания. За сим откланиваюсь.
Первый раз не по английски

Это получается болталка в болталке

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

даже не верится, что доберусь когда нибудь до всего этого
эх!
пора спать ложиться
седня ж на работу уже!
балин...

Плохо он нас знает. Мы вот твою функцию расчета как начнем оформлять классом, так места сразу поубавиться.

Да, получилось
Спасибо

эт точно

osmor погорячился неверное - на 10 форумов места хватит

Есть примерчик на эту тему:

Только в примерчике рисуется на событии Format, а правильнее на Print.

Работу надо раньше работать, уже давно время отдыхать.

не вытерпел, вот залез на форум
работу работал

Привет, а мы тебя заждались.

Да с колесом я как-то не подумал об ассоциациях. Да простит меня ГлазастыйМышь.

Координаты точек в функции Line:

Me.Line (Xнач, Yнач)-(Хкон, Yкон)

То есть, если нужно смещение вертикальной линии, пишем Xнач и Хкон равное нужному смещению от левого края.

И пора уже на ты.

Lukas!!!

(эт я про колесико мышки!!))) )

Я вообще мало сталкивался с VBA для отчетов.
Ну раз пошел разговор про отчеты тогда вопрос
Когда то задавал вопрос о том как рисовать вертикальную линию в области отчета (когда поле растягивается простая линия прерывается) а надо чтоб линия была непрерывной.
Тогда только получилось нарисовать линию в левом краю отчета вот так

Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer) Me.Line (0, 0)-(0, Me.Height) End Sub

А как задавать расстояние линии от левого края тогда так и не научили
Если нетрудно может щас объясните ну или завтра

Да нет. Не пойму, в чем запутки.

Издеваешься

А что непонятно?

Прикольно !!!

Но ничего не понятно
(в коде)

Я вот со скуки веточку наваял.

Что-то он сегодня долго дочку укладывает спать.

Да с чувством юмора у тебя все в порядке

а у Скорпа с умением создавать интересные ветки

На ближайших страницах отличились ветки Скорп-а 68 и 71 пост.

Как показала моя небольшая практика, два монитора все-таки добавляет удобства в работе. (и отдыхе). Можно один фильм на двух мониторах сразу смотреть, непонятно только зачем?

А интересно сколько до этого было максимум сообщений в одной ветке ?

Что уже два мало ?
А я до этого еще не дорос.

Я сегодня по D-Sub подключил один из мониторов к дескноуту. Теперь три монитора на два компьютера, прикольно. Средний работает на "два фронта".

Надо будет периодически новую ветку заводить, а то колесо мыши скоро развалится.

Час наверное не в курсе что тут эта ветка появилась
Чем занимаемся прямо сейчас?
ИМХО она всегда будет актуальной

Привет Всем. Хорош основной форум трепом забивать, идите сюда.

Факт.

Но вкус всё таки разный ......
И Lukas - это подтверждает.........
Есть ещё форматирование кода, коментарии напротив кажной строки, вынос в отдельные функцуиции,
дааааааа !!!!!
прозрачность она достигается с трудом,
но легче разбираться потом...........

Это вопрос или утверждение?

Оператор If - Then работает быстро с переменными типа Boolean, а Select Case с числовыми.

Хрен редьки не слаще...

это я отвечал на самый первый вопрос..... ....

В смысле ?

переходите на

case

хы-хы..))
а сон его зам?

Для проката тока 2 :), но и то хорошо, пара катается - пара отдыхает. Тосю отправили детям, появился Цыган, как раз для тебя. А вот Гамлету тяжеловато будет, он хоть и выше, но... Хозяин сначала сказал, что Цыган для мужа, но потом понял, что мне тот быстрее подчинился )))
Подробности потом созвонимся

У нашего шефа фамилия Голод. Поэтому фраза до обеда борьба с голодом, после обеда со сном приобретает у нас несколько иной смысл

хочу подробностей

ЗЫ. А еще лошадки есть? Т.к. если буду, то +1

Не, не я. Я севернее около 600 км.

Хе-хе
а мы крепко спали после: http://content.foto.mail.ru/mail/in_naz/307/i-682.jpg

Мышь, появилась лошадка для твоего веса! правда она только 3 месяца как под седлом, но я её немного накатала )))) В следующий раз с нами поедешь?

Вчера вечером, стою в очереди, а за мной парочка....
Она: "ну так ты встал только в 13:30!"

Это не вы были?

фух!
доча спасть легла после обеда, 1,5 часа есть на полазить в инете
ну, первым делом на Хайпрог
(чувствую, тут и зависну )

Ща сбегаем

Пиво без водки - деньги на ветер.

Может лучше по пиву?

Так ведь спать оно не мешки ворочать.

С бодрым утром, товарищи. Начинаем комплекс утренней гимнастики.

Lukas привет, ну как поспал?

а я сейчас MOTOGP смотрю по Евроспорту. Нравится Росси. Классный гонщик. В 6 раз стал чемпионом в классе MOTOGP. Это Вам не борщ приготовить.
Еще пару чемпионств и он догонит Диагостини. А еще один и уже перегонит и станет лучшим гонщиком всех времен и народов.

А еще пытаюсь все таки сделать я свою систему слежения. Но че-та пока никак. И примерчика ни у кого нет, и подсказать никто не может. Блин, какая-то заколдованная тема. неужели никто такого не делал? А может и мне не нужно. Ведь база разрастется до гигантских размеров.

А мне почему-то кажется, что эта ветка станет самой посещаймой. Другой раз хочется всем сказать пора поспать, поесть, полежать ну и.т.д, а не где.
А щас будет

Ай да Скорп, ай молодца !!!

+1

Пойду-ка я лучше спать завалюсь.

Ну спасибо. Мне по SkyLink-у только видео и глядеть.

http://www.youtube.com/watch?v=vFFfvyxETCc
См.Related Videos

Да Вы, батенька, до крови жадный.

К1 это бойцовский клуб (показывает EUROSPORT)
ИМХО самые зрелищные бои (почти без правил)

А что такое К1?
У меня южная сторона дома выходит в местный парк, так что если ставить тарелку, надо половину парка корчевать.

мазохисты!!

Верю

А щас К1 на EUROSPORT

Блин, мозги скрипят на эту тему. Пока поставил Developer Edition на XP. Дальше второй страницы книжки не продвинулся.

SQL 2005

понятно..
такая голова "простаивает"

А без дела маюсь.

я "мучаю" свою прогу...а она меня))
я в куче "If...Then...Else" уже так завяз, что сил нету больше