| |
|
|
| | 
я "мучаю" свою прогу...а она меня))
я в куче "If...Then...Else" уже так завяз, что сил нету больше
| |
| |
| |
|
|
| |
|
|
| | понятно..
такая голова "простаивает" | |
| |
| |
| |
|
|
| | SQL 2005  | |
| |
| |
| |
|
|
| | Блин, мозги скрипят на эту тему. Пока поставил Developer Edition на XP. Дальше второй страницы книжки не продвинулся.  | |
| |
| |
| |
|
|
| | Верю  | |
| |
| |
| |
|
|
| | мазохисты!!  | |
| |
| |
| |
|
|
| | А щас К1 на EUROSPORT  | |
| |
| |
| |
|
|
| | А что такое К1?
У меня южная сторона дома выходит в местный парк, так что если ставить тарелку, надо половину парка корчевать. | |
| |
| |
|
|
| |
|
|
| | К1 это бойцовский клуб (показывает EUROSPORT)
ИМХО самые зрелищные бои (почти без правил) | |
| |
| |
| |
|
|
| | Да Вы, батенька, до крови жадный. | |
| |
| |
| |
|
|
| | http://www.youtube.com/watch?v=vFFfvyxETCc
См.Related Videos | |
| |
| |
| |
|
|
| | Ну спасибо. Мне по SkyLink-у только видео и глядеть. | |
| |
| |
|
|
| |
|
|
| | Пойду-ка я лучше спать завалюсь. | |
| |
| |
| |
|
|
| | +1  | |
| |
| |
| |
|
|
| | А мне почему-то кажется, что эта ветка станет самой посещаймой. Другой раз хочется всем сказать пора поспать, поесть, полежать ну и.т.д, а не где.
А щас будет 
Ай да Скорп, ай молодца !!!
 | |
| |
| |
| |
|
|
| | а я сейчас MOTOGP смотрю по Евроспорту. Нравится Росси. Классный гонщик. В 6 раз стал чемпионом в классе MOTOGP. Это Вам не борщ приготовить.
Еще пару чемпионств и он догонит Диагостини. А еще один и уже перегонит и станет лучшим гонщиком всех времен и народов.
А еще пытаюсь все таки сделать я свою систему слежения. Но че-та пока никак. И примерчика ни у кого нет, и подсказать никто не может. Блин, какая-то заколдованная тема. неужели никто такого не делал? А может и мне не нужно. Ведь база разрастется до гигантских размеров.  | |
| |
| |
| |
|
|
| | Lukas привет, ну как поспал? | |
| |
| |
| |
|
|
| | Так ведь спать оно не мешки ворочать. | |
| |
| |
| |
|
|
| | Вчера вечером, стою в очереди, а за мной парочка....
Она: "ну так ты встал только в 13:30!"
Это не вы были? | |
| |
| |
| |
|
|
| | Не, не я. Я севернее около 600 км. | |
| |
| |
| |
|
|
| | С бодрым утром, товарищи. Начинаем комплекс утренней гимнастики. | |
| |
| |
| |
|
|
| | Может лучше по пиву?
| |
| |
| |
| |
|
|
| | Пиво без водки - деньги на ветер. | |
| |
| |
| |
|
|
| | Ща сбегаем | |
| |
| |
| |
|
|
| | фух!
доча спасть легла после обеда, 1,5 часа есть на полазить в инете
ну, первым делом на Хайпрог
(чувствую, тут и зависну ) | |
| |
| |
| |
|
|
| | У нашего шефа фамилия Голод. Поэтому фраза до обеда борьба с голодом, после обеда со сном приобретает у нас несколько иной смысл | |
| |
| |
|
|
|
|
| |
|
|
| | Хе-хе
а мы крепко спали после: http://content.foto.mail.ru/mail/in_naz/307/i-682.jpg
Мышь, появилась лошадка для твоего веса! правда она только 3 месяца как под седлом, но я её немного накатала )))) В следующий раз с нами поедешь? | |
| |
| |
| |
|
|
| | хочу подробностей
ЗЫ. А еще лошадки есть?  Т.к. если буду, то +1 | |
| |
| |
| |
|
|
| | Для проката тока 2 :), но и то хорошо, пара катается - пара отдыхает. Тосю отправили детям, появился Цыган, как раз для тебя. А вот Гамлету тяжеловато будет, он хоть и выше, но... Хозяин сначала сказал, что Цыган для мужа, но потом понял, что мне тот быстрее подчинился )))
Подробности потом созвонимся | |
| |
| |
|
|
|
|
| |
|
|
| | это я отвечал на самый первый вопрос..... .... | |
| |
| |
|
|
| |
|
|
| | Оператор If - Then работает быстро с переменными типа Boolean, а Select Case с числовыми. | |
| |
| |
| |
|
|
| | Это вопрос или утверждение? | |
| |
| |
| |
|
|
| | Факт. | |
| |
| |
| |
|
|
| | Но вкус всё таки разный ......
И Lukas - это подтверждает.........
Есть ещё форматирование кода, коментарии напротив кажной строки, вынос в отдельные функцуиции,
дааааааа !!!!!
прозрачность она достигается с трудом,
но легче разбираться потом........... | |
| |
| |
| |
|
|
| | Привет Всем. Хорош основной форум трепом забивать, идите сюда. | |
| |
| |
| |
|
|
| | Час наверное не в курсе что тут эта ветка появилась
Чем занимаемся прямо сейчас?
ИМХО она всегда будет актуальной | |
| |
| |
| |
|
|
| | Надо будет периодически новую ветку заводить, а то колесо мыши скоро развалится. | |
| |
| |
| |
|
|
| | Я сегодня по D-Sub подключил один из мониторов к дескноуту. Теперь три монитора на два компьютера, прикольно. Средний работает на "два фронта". | |
| |
| |
| |
|
|
| | Что уже два мало ?
А я до этого еще не дорос.  | |
| |
| |
| |
|
|
| | Как показала моя небольшая практика, два монитора все-таки добавляет удобства в работе. (и отдыхе). Можно один фильм на двух мониторах сразу смотреть, непонятно только зачем? | |
| |
| |
| |
|
|
| | А интересно сколько до этого было максимум сообщений в одной ветке ? | |
| |
| |
| |
|
|
| | На ближайших страницах отличились ветки Скорп-а 68 и 71 пост. | |
| |
| |
|
|
| |
|
|
| | Что-то он сегодня долго дочку укладывает спать. | |
| |
| |
| |
 30 Кб. |
|
| | Я вот со скуки веточку наваял. | |
| |
| |
| |
|
|
| | Прикольно !!!
Но ничего не понятно
(в коде) | |
| |
| |
| |
|
|
| | А что непонятно? | |
| |
| |
| |
|
|
| | Издеваешься | |
| |
| |
| |
|
|
| | Да нет. Не пойму, в чем запутки. | |
| |
| |
| |
|
|
| | Я вообще мало сталкивался с VBA для отчетов.
Ну раз пошел разговор про отчеты тогда вопрос
Когда то задавал вопрос о том как рисовать вертикальную линию в области отчета (когда поле растягивается простая линия прерывается) а надо чтоб линия была непрерывной.
Тогда только получилось нарисовать линию в левом краю отчета вот так
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Me.Line (0, 0)-(0, Me.Height)
End Sub
|
А как задавать расстояние линии от левого края тогда так и не научили
Если нетрудно может щас объясните ну или завтра | |
| |
| |
| |
|
|
| | Координаты точек в функции Line:
Me.Line (Xнач, Yнач)-(Хкон, Yкон)
|
То есть, если нужно смещение вертикальной линии, пишем Xнач и Хкон равное нужному смещению от левого края.
И пора уже на ты. | |
| |
| |
| |
37 Кб. |
|
| | Есть примерчик на эту тему:
Только в примерчике рисуется на событии Format, а правильнее на Print. | |
| |
| |
| |
|
|
| | Да, получилось
Спасибо | |
| |
| |
| |
|
|
| | Сразу не заметил.
Private Sub ОбластьДанных_Print(Cancel As Integer, PrintCount As Integer)
Me.Line (0, 0)-(0, Me.Height) 'Здесь правильнее наверное Me.Section(0).Height ?
End Sub
|
| |
| |
| |
|
|
| |
|
|
| | Привет, а мы тебя заждались.
Да с колесом я как-то не подумал об ассоциациях. Да простит меня ГлазастыйМышь. | |
| |
| |
| |
|
|
| | не вытерпел, вот залез на форум
работу работал | |
| |
| |
| |
|
|
| | Работу надо раньше работать, уже давно время отдыхать. | |
| |
| |
| |
|
|
| | эт точно
osmor погорячился неверное - на 10 форумов места хватит | |
| |
| |
| |
|
|
| | Плохо он нас знает. Мы вот твою функцию расчета как начнем оформлять классом, так места сразу поубавиться. | |
| |
| |
| |
|
|
| | даже не верится, что доберусь когда нибудь до всего этого
эх!
пора спать ложиться
седня ж на работу уже!
балин... | |
| |
| |
| |
|
|
| | Ну тогда желаем, что бы тебе зайчики приснились. | |
| |
| |
| |
|
|
| | Это получается болталка в болталке | |
| |
| |
|
|
| |
|
|
| | Еще раз спасибо за новые знания. За сим откланиваюсь.
Первый раз не по английски | |
| |
| |
| |
|
|
| | Ну тогда всем зайчиков во сне. | |
| |
| |
| |
|
|
| | Как ни странно при использывании
Me.Section(0).Height
линия получается с разрывами. А если просто
Me.Height
то всё нормально
| |
| |
| |
| |
|
|
| | А линия нужна на область данных или на высоту отчета? | |
| |
| |
|
|
| |
|
|
| | 1. линия нужна на область данных
2. расширение разрешить - это так Me.Section(1)
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 | |
| |
| |
| |
|
|
| |
3. а не все ли равно если через Me.Height всё ОК
|
Тогда "по барабану". | |
| |
| |
| |
|
|
| | Попробывал так
Me.Section(0).Height.CanGrow
и так
Me.Section(0).CanGrow
не работоспособно
а так
Me.Section(1).Height
и так
Me.Height
всё ок.
И какой вариант прикажете выбрать | |
| |
| |
| |
|
|
| | привет !!!!!!
Линии рисуете???
Интересно | |
| |
| |
| |
|
|
| | В принципе уже нарисовали, но все равно присоеденяйся
может чего по интересней нарисуем | |
| |
| |
| |
|
|
| | Вопрос: Рис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
|
| |
| |
| |
| |
|
|
| | Есть значительно более веселый способ рисования рамок на Русимпорте. В статьях.
http://am.rusimport.ru/MSAccess/topic.aspx?ID=133 | |
| |
| |
| |
|
|
| | Выбирай тот, который ОК. Me.Height | |
| |
| |
| |
|
|
| | Может вместо линии рисовать сплюснутый прямоугольник?
Если его закрасить - получиться линия.
Да рамки можно по разному рисовать,
Me.Line (0, 0)-(1000, 5000), , B
но немного кода для идей не помешает.......... | |
| |
| |
| |
|
|
| | Спасибо
Теперь можно и чайку попить | |
| |
| |
| |
|
|
| | ННННННННааааааааааливай
| |
| |
| |
| |
|
|
| | Час, чего сочиняешь в настоящий момент? | |
| |
| |
| |
|
|
| | самый примитив (скромно так)
Надо складскую программку написать для обмена данными с Торг И Склад от 1С..... | |
| |
| |
| |
|
|
| | В одном офисе работает прога ТИС - стандартная конфигурация.
В другом офисе будет филиальная база на access /
Пока не во всё въехал.
Чё из 1 с брать, чё туда слать - вот в раздумьях сижу  | |
| |
| |
| |
|
|
| | Понятно, значит учетом товарно-материальных ценностей озадачен. При обмене данными тебе в кармашек ничего не теряется? | |
| |
| |
| |
|
|
| | У меня, Lukas карман имеет дырку, сквозь которую проваливается всё, что у других задерживается.
Романтик я по натуре. И потому без денег.........
Башка больше занята программированием - самим процессом создания программы, а ни как не получение от этого дохода.
Конечно понимаю умом, что дурак, но .............
Вот так......... | |
| |
| |
| |
|
|
| | Да я вобщем тоже романтик. Времен "Вперед к победе коммунизма".
И, соответственно, тоже без денег.
Да и фиг с ними, всех денег не заработаешь и в могилу с собой не заберешь.
Зато голова не болит о сохранности огромного имущества, доходности инвестиций и котировках акций. | |
| |
| |
| |
|
|
| |
Зато голова не болит о сохранности огромного имущества, доходности инвестиций и котировках акций.
|
Об этом нет, не болит.....
болит о том, что скоро выбросят с работы и тода начнуться трудности.....
В моём возрасте на работу программером не берут.
А грузчиком - здоровье осталось на работе | |
| |
| |
|
|
| |
|
|
| | Нужны!
Кушать то всем хоца, но романтики летают мыслями в облаках,
а чтоб бабки были - надо строить планы по наращиванию капиталла, твёрдо стоя на земле - мне это никогда не удавалось.... | |
| |
| |
| |
|
|
| | Да, деньги вопрос философский ...
Чтобы они были их нужно очень любить и очень хотеть. Сначала они должны появиться у нас в сознании. Если их не будет у нас в голове их не будет и физически
Хотя есть тысячи примеров когда деньги приносили одни только проблемы... | |
| |
| |
| |
|
|
| | Не, я это не умею, думал час научит. | |
| |
| |
| |
|
|
| | Pasat - ты где?
Я тоже наверное спать пойду.........
Спок ночи...... | |
| |
| |
| |
|
|
| | Пора закрывать эту ветку и начинать новую. Уже больше 100 "листиков". | |
| |
| |
| |
|
|
| | Вот те раз, а я всегда думал что програмист это работа для любого возраста. По крайней мере пока котелок чота варит. Я б на твоем месте про это не думал а повышал квалификацию. Програмист профессия международная. Не будет работы дома будем работать за границей. Одно но, придется подтянуть английский
Я лично этим щас и занимаюсь | |
| |
| |
| |
|
|
| | Ты посмотри, что сейчас в Америке, да и в Европе творится. Сотни тысяч людей - на улицу. Я думаю сейчас там сильно не до программ и программистов.  | |
| |
| |
| |
|
|
| | Так мы щас и не поедем.
Нас пока и дома не плохо кормят | |
| |
| |
| |
|
|
| | Приятно слышать. | |
| |
| |
|
|
| |
|
|
| | Новую точно пора открывать, а то у меня ветка по полминуты грузится. | |
| |
| |
| |
|
|
| | Наверное последую примеру час-а. Пойду к зайчикам. Удачи | |
| |
| |
| |
|
|
| | Кто-то спать 10 минут назад собирался, а все еще на форуме?
Иди к зайчикам! | |
| |
| |
| |
|
|
| | так я не понял - вы к зайчикам или заям???
(тока не говорите, что у программеров нет денег и нет заек))) ) | |
| |
| |
| |
|
|
| | Молоток!!!!! | |
| |
| |
| |
|
|
| | Lukas еще не остыл?
Не пойму чего ты так завелся | |
| |
| |
| |
|
|
| | Да я вобщем-то не завелся.
Я вот чего думаю, а ведь это правильно, что мы мыслим несколько неодинаково.
А то бы-ли бы похожи на "оловянных солдатиков".
| |
| |
| |
| |
|
|
| | а ведь это правильно, что мы мыслим несколько неодинаково
не могу не согласиться | |
| |
| |
| |
|
|
| | Пора на боковую
Спк.ночи | |
| |
| |
| |
|
|
| | +1 | |
| |
| |
| |
|
|
| | Чем прямо сейчас...
- читаю почту за 3 дня
- разгребаю заявки на закрытие/открытие/перенос аккаунтов нападавшие с понедельника
- читаю форум с понедельника
- поднимаю 2 тестовых сервера (один на реальной машине, один на виртуальной), что бы на них потестить 2 антивируса (триальные версии надыбал на софтуле)
- пишу письмо в ESET с просьбой прислать триальный ключ для их лотусового антивиря.
- пью чай с шиповником
- периодически хватаюсь за 1 из 3 телефонов
Сегодня никакой творческой работы не предвидется... рутина, правда я сегодня на большее и не способен... в мозгах каша... | |
| |
| |
| |
|
|
| | Так значит поправился?
Как будет маленькое окошечко, стукни пару слов как встретились? :-)
Пей чай с мёдом тоже, а лучше водку с перцем ))) | |
| |
| |
| |
|
|
| | Ну еще не совсем поправился... планирую продолжить лечиться в выходные. Мед и лимон уже из ушей лезут  , 4 дня только на этом и жил.
Как встретились.... да никак, у всех (в том числе и у меня) цейтнот, так что отложили до лучших времен. | |
| |
| |
| |
|
|
| | Во osmor дает. А Юлий Цезарь отдыхает.
Быстрейшего выздоровления | |
| |
| |
|
|
| |
|
|
| | Привет
Как думаешь новый ник мне к лицу
зы
А Капитан сказал что все в порядке | |
| |
| |
|
|
| |
|
|
| | Простите, а Вы кто???
и где ёрик??? | |
| |
| |
| |
|
|
| | "Что в имени тебе моем?...." | |
| |
| |
| |
|
|
| | Что в Вымени теме моём надо??? | |
| |
| |
| |
|
|
| | То: час
А вы кто ?
Конь в кожанном пальто | |
| |
| |
| |
|
|
| | Странный жеребец получился...
А кто в него оборотился?
Вот так зайдёшь на форум
А как собрать здесь кворум
Кто раньше часом был
Про ник про свой забыл
Теперь он стал минуткой
Свой ник зовёт он - шуткой.......... | |
| |
| |
| |
|
|
| | То Lucas
Встречают "по лицу", а провожают "по копчику".
Ведь это же неэсетично !!! | |
| |
| |
| |
|
|
| | Знавал я одного Гамлета...
Он жил в иные лета......
А Вы кто раньше были?
Надеюсь не забыли...
Откройтесь на конец
Терпению мон........де.........ц. | |
| |
| |
| |
|
|
| | С кем поведешься, с тем и "наберешься"!
Такова жизнь!
"О времена, о нравы!" | |
| |
| |
| |
|
|
| | Скажи мне Lukas наконец
Кто - этот Гамлет-молодец
Кто это чудо сотворил?
С каким он ником раньше был? | |
| |
| |
| |
|
|
| | Ну что тебе ответить час?
Он жил "сегодня и сейчас".
Решил о прошлом он забыть,
И ник привычный изменить. | |
| |
| |
| |
|
|
| | То час
А в народе о нашей сообразительности ходят легенды | |
| |
| |
| |
|
|
| | О Вашей ходят легенды
а О нашей - только шутки | |
| |
| |
| |
|
|
| | Ба знакомые все лица | |
| |
| |
| |
|
|
| | Час тут извиняется
Вот что получается
У парашюта нету строп
На форуме не видно - скорп
не смог я рифму подобрать
дляника скорпа ......... ..мать | |
| |
| |
| |
|
|
| | Точно Скорпа нету | |
| |
| |
| |
|
|
| | зато гамлет - тут .....
и заявляет , что он конь в пальто из кожи........
Что можно смело говорить
Ба знакомые все рожи!!!!!!!!!!!!  | |
| |
| |
| |
|
|
| | Мюллера на него нету | |
| |
| |
| |
|
|
| | А мюллер - он кто раньше был?????
Или это кто-то вновь появившийся????????? | |
| |
| |
| |
|
|
| | Чё та я тут упустил
Малость постов пропустил
где-то что-то не слыхал
И от жизни я отстал.......................... | |
| |
| |
| |
|
|
| | Мюллер, а Мюллер
Личико то, открой | |
| |
| |
| |
|
|
| | То, что пили - это помню........
А вот с кем .............. | |
| |
| |
| |
|
|
| | Во час дает,
всю тяпницу с Мюллером пробухал, а так ничего и не заметил (или притворяется)
| |
| |
| |
| |
|
|
| | Так наверное хорошо "отдыхали", что не помнит. | |
| |
| |
|
|
| |
|
|
| | Гамлет, с тебя беспроводная мышка А4Tech R7.
У моей колесо уже отвалилось.
Я же просил переместиться в новую ветку! | |
| |
| |
| |
|
|
| | а мне батарейки в мышку | |
| |
| |
osmors - ХР......(перевод: осмору хреново)