10.02.2009, 09:48 | #21 | ||
Заблокированный пользователь
Регистрация: 29.11.2008
Сообщений: 8,888
Благодарности: 95
Поблагодарили 1,814
раз(а) в 1,785 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
И SQL там есть, в том объеме , который необходим. Цитата:
|
||
В Минюст Цитата Спасибо |
10.02.2009, 09:58 | #22 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
ну как пример простейший макрос для того чтобы не утомлять себя опечатыванием документов ,генерируемых ПК СП
Код:
Sub Sho1() nach: ' ' Sho Макрос ' Макрос создан 23.05.2008 ** Set bln = Assistant.NewBalloon With bln .Heading = "Нажата желтая кнопка № 1" .Mode = msoModeModeless .Button = msoButtonSetNone .Icon = msoIconTip .Text = "жду..." .Show End With If Application.Documents.Count > 0 Then ' проверяю успел ли документ сохраниццо If Windows(1).Document.Path = "" Then Application.OnTime When:=Now + TimeValue("00:00:1"), _ name:="Shojd1" ' макрос ожидания Else With Assistant .Visible = True Set bln = .NewBalloon With bln .Mode = msoModeModeless .Heading = "Включена желтая кнопка 1" .Text = "печатаю..." .Button = msoButtonSetNone .Icon = msoIconTip ' Assistant.Animation = msoAnimationPrinting .Show End With End With 'для задержки документа With Dialogs(wdDialogDocumentStatistics) .Display TimeOut:=2000 End With 'для задержки документа Windows(1).Document.PrintOut Copies:=1 Windows(1).Document.Save Windows(1).Document.Close ' перход к ПК СП On Error GoTo nach AppActivate "Внимание!" SendKeys "{ENTER}", True ' конец перехода к ПК СП GoTo nach End If Else Application.OnTime When:=Now + TimeValue("00:00:1"), _ name:="Shojd1" ' макрос ожидания End If End Sub Sub Shojd1() Application.OnTime When:=Now + TimeValue("00:00:2"), _ name:="Sho1" ' макрос ожидания если будет тупить макрос можно увеличить секунды End Sub
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
10.02.2009, 10:40 | #23 | |
Заблокированный пользователь
Регистрация: 29.11.2008
Сообщений: 8,888
Благодарности: 95
Поблагодарили 1,814
раз(а) в 1,785 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
raus а почему через rem ( ремарки) не пишешь что каждая строка делает, через какое-то время можно забыть. Делай доброе дело для всех пиши пояснения в коде напр. Код:
Private Sub Form_Current() Dim Srok As Integer ' объявление переменных для расчета дат.Srok установленный срок а SrokS текущая дата Dim SrokS As Integer, Alert As Integer If Me![Gotov] = -1 Then OblastDate.BackColor = 10331992 If Me![Gotov] = 0 Then OblastDate.BackColor = 12632256 If Me.NewRecord Then GoTo M1 Alert = Me![SrokRuk] - Date If Alert <= 0 Then Me!lbSrok0.Visible = True Else Me!lbSrok0.Visible = False If Alert = 2 Then Me!LbSrok2.Visible = True Else Me!LbSrok2.Visible = False If Alert = 1 Then Me!lbSrok1.Visible = True Else Me!lbSrok1.Visible = False If Alert = 3 Then Me!lbSrok3.Visible = True Else Me!lbSrok3.Visible = False If Gotov = -1 Then Me!lbSrok0.Visible = False If Gotov = -1 Then Me!LbSrok2.Visible = False If Gotov = -1 Then Me!lbSrok1.Visible = False If Gotov = -1 Then Me!lbSrok3.Visible = False M1: If Me![Gotov] = -1 Then Call onIsp Else Call onNaIsp ' надписи исполнено или нет If Me![Proverka] = -1 Then Me!LbProv.Visible = True Else Me!LbProv.Visible = False ' надписи служебная проверка If Me![ProverkaROSP] = -1 Then Me!lbProverca.Visible = True Else Me!lbProverca.Visible = False ' надписи проверка РОСП If Me![Obraschenie] = -1 Then Me!LbObras.Visible = True Else Me!LbObras.Visible = False ' надписи обращение |
|
В Минюст Цитата Спасибо |
11.02.2009, 03:36 | #24 |
Ipristav
Регистрация: 16.01.2009
Адрес: Россия / Хабаровский край / Богородское (Хабаровский край)
Сообщений: 416
Благодарности: 0
Поблагодарили 94
раз(а) в 93 сообщениях
Обратиться по нику Цитата выделенного |
Блин, да напишите по-русски, чего это такое. Он что сам опись будет делать или как, т.е. может делать выборки там разные что-ли. Не догоняю я честно. Я Эксель, Ворд знаю, даже ПК СП выучил, а вот такого не знаю и не могу понять. Это видимо должны программисты делать, своим умом не дойдешь.
|
В Минюст Цитата Спасибо |
11.02.2009, 07:54 | #25 | |
Сотрудник ФССП
Регистрация: 01.12.2008
Сообщений: 600
Благодарности: 2
Поблагодарили 101
раз(а) в 101 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
__________________
Ignoscito saepe alteri, nunquam tibi |
|
В Минюст Цитата Спасибо |
11.02.2009, 09:10 | #26 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
А сам попробуй.
Включи Ворд. Сервис - Макрос - Начать запись Назначить панели - ОК Настройка - закрыть Вот и попробуй ввести текст, пошевели мыш, оформи стили, чё нить скопируй, вставь, найди в тексте. Остановить запись Сервис - Макрос - Макросы Находишь свой макрос - Изменить и посмотри что то что мы наделал записалось в коде. И если ты нажмешь выполнить - машина сама повторит твои действия....
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
23.02.2009, 15:17 | #27 |
Заблокированный пользователь
Регистрация: 29.11.2008
Сообщений: 8,888
Благодарности: 95
Поблагодарили 1,814
раз(а) в 1,785 сообщениях
Обратиться по нику Цитата выделенного |
Есть же добрые люди на свете!!! Нашел безлицензионный и бесплатный движок для Accesse. Попробовал, все пашет, осталось проверить как работает под сеть, но ИМХО будет работать. Единственный минус, ничего нового сделать нельзя будет в базе, только пользоваться, но это мелочи жизни по сравнению со стоимостью пакета office с акссесом - 14-16 тыс. руб.
За ссылкой на скачку движка обращайтесь в личку. А то вдруг передумают и сделают платным :rap: |
В Минюст Цитата Спасибо |
26.02.2009, 15:00 | #28 | |
Пользователь
Регистрация: 28.10.2008
Адрес: Россия / Москва и Московская обл. / Москва
Сообщений: 43
Благодарности: 0
Поблагодарили 3
раз(а) в 3 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
Из плюсов: + всё бесплатно + неограниченные возможности в разработке + разместив на хостинге - будет доступно в любой момент времени, с любого места, с любого компьютера\телефона из минусов: - пару недель на освоение - всё таки чуть более долгая разработка пример как разрабатывается блог на php http://codeigniter.com/tutorials/watch/blog/ |
|
В Минюст Цитата Спасибо |
26.02.2009, 15:07 | #29 | |
Пользователь
Регистрация: 28.10.2008
Адрес: Россия / Москва и Московская обл. / Москва
Сообщений: 43
Благодарности: 0
Поблагодарили 3
раз(а) в 3 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
uopilot - запись движений мышкой. плюс в том что очень легко и просто работать. быстро записал макрос и выполнил нужное число раз. autoit - мощный скриптовый язык. позволяет и мышкой двигать и кнопки нажимать. 2 вещи которые позволяют очень многое автоматизировать. работают не только в ворде а целиком в системе.... само собой - бесплатные =) |
|
В Минюст Цитата Спасибо |
26.02.2009, 22:04 | #30 |
Модератор ФССП
Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
да замечательная штука.... начал юзать чуток...
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
В Минюст Цитата Спасибо |
|
|
«Закония» в соц. сетях