|
|
#21 | ||
|
Заблокированный пользователь
Регистрация: 29.11.2008
Сообщений: 8,888
Благодарности: 95
Поблагодарили 1,814
раз(а) в 1,785 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
И SQL там есть, в том объеме , который необходим. Цитата:
|
||
| В Минюст Цитата Спасибо |
|
|
#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 |
| В Минюст Цитата Спасибо |
|
|
#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 ' надписи обращение |
|
| В Минюст Цитата Спасибо |
|
|
#24 |
|
Ipristav
Регистрация: 16.01.2009
Адрес: Россия / Хабаровский край / Богородское (Хабаровский край)
Сообщений: 416
Благодарности: 0
Поблагодарили 94
раз(а) в 93 сообщениях
Обратиться по нику Цитата выделенного |
Блин, да напишите по-русски, чего это такое. Он что сам опись будет делать или как, т.е. может делать выборки там разные что-ли. Не догоняю я честно. Я Эксель, Ворд знаю, даже ПК СП выучил, а вот такого не знаю и не могу понять. Это видимо должны программисты делать, своим умом не дойдешь.
|
| В Минюст Цитата Спасибо |
|
|
#25 | |
|
Сотрудник ФССП
![]() Регистрация: 01.12.2008
Сообщений: 600
Благодарности: 2
Поблагодарили 101
раз(а) в 101 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
__________________
Ignoscito saepe alteri, nunquam tibi |
|
| В Минюст Цитата Спасибо |
|
|
#26 |
|
Модератор ФССП
![]() Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
А сам попробуй.
Включи Ворд. Сервис - Макрос - Начать запись Назначить панели - ОК Настройка - закрыть Вот и попробуй ввести текст, пошевели мыш, оформи стили, чё нить скопируй, вставь, найди в тексте. Остановить запись Сервис - Макрос - Макросы Находишь свой макрос - Изменить и посмотри что то что мы наделал записалось в коде. И если ты нажмешь выполнить - машина сама повторит твои действия....
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
| В Минюст Цитата Спасибо |
|
|
#27 |
|
Заблокированный пользователь
Регистрация: 29.11.2008
Сообщений: 8,888
Благодарности: 95
Поблагодарили 1,814
раз(а) в 1,785 сообщениях
Обратиться по нику Цитата выделенного |
Есть же добрые люди на свете!!! Нашел безлицензионный и бесплатный движок для Accesse. Попробовал, все пашет, осталось проверить как работает под сеть, но ИМХО будет работать. Единственный минус, ничего нового сделать нельзя будет в базе, только пользоваться, но это мелочи жизни по сравнению со стоимостью пакета office с акссесом - 14-16 тыс. руб.
За ссылкой на скачку движка обращайтесь в личку. А то вдруг передумают и сделают платным :rap: |
| В Минюст Цитата Спасибо |
|
|
#28 | |
|
Пользователь
![]() Регистрация: 28.10.2008
Адрес: Россия / Москва и Московская обл. / Москва
Сообщений: 43
Благодарности: 0
Поблагодарили 3
раз(а) в 3 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
Из плюсов: + всё бесплатно + неограниченные возможности в разработке + разместив на хостинге - будет доступно в любой момент времени, с любого места, с любого компьютера\телефона из минусов: - пару недель на освоение - всё таки чуть более долгая разработка пример как разрабатывается блог на php http://codeigniter.com/tutorials/watch/blog/ |
|
| В Минюст Цитата Спасибо |
|
|
#29 | |
|
Пользователь
![]() Регистрация: 28.10.2008
Адрес: Россия / Москва и Московская обл. / Москва
Сообщений: 43
Благодарности: 0
Поблагодарили 3
раз(а) в 3 сообщениях
Обратиться по нику Цитата выделенного |
Цитата:
uopilot - запись движений мышкой. плюс в том что очень легко и просто работать. быстро записал макрос и выполнил нужное число раз. autoit - мощный скриптовый язык. позволяет и мышкой двигать и кнопки нажимать. 2 вещи которые позволяют очень многое автоматизировать. работают не только в ворде а целиком в системе.... само собой - бесплатные =) |
|
| В Минюст Цитата Спасибо |
|
|
#30 |
|
Модератор ФССП
![]() Регистрация: 16.01.2009
Адрес: Россия / /
Сообщений: 3,373
Благодарности: 153
Поблагодарили 548
раз(а) в 528 сообщениях
Обратиться по нику Цитата выделенного |
да замечательная штука.... начал юзать чуток...
__________________
Yo Way Yo, Home Va-Ray, Yo Ay-Rah, Jerhume Brunnen-G |
| В Минюст Цитата Спасибо |
| Опции темы | |
|
|







«Закония» в соц. сетях