Программы "Простой софт" www.prostoysoft.ru

ВНИМАНИЕ! РЕКЛАМНЫЕ СООБЩЕНИЯ И ГИПЕРССЫЛКИ В ФОРУМЕ ЗАПРЕЩЕНЫ (посты удаляются автоматически часто с пользователем)
Текущее время: 28.10.2024 15:16

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 4 ] 
Автор Сообщение
 Заголовок сообщения: Проверка формы на ошибки в VBScript
СообщениеДобавлено: 16.09.2016 10:19 
Не в сети

Зарегистрирован: 20.04.2016 00:05
Сообщения: 34
PatientsCount 2.617 MSSQL
Приветствую участников форума. Прошу подсказать возможно ли реализовать с помощью одной кнопки следующую задачу

Есть кнопка на форме с процедурой VBScript:
Код:
IF MsgBox("Сохранить и открыть в Word?", vbYesNo+vbInformation+vbDefaultButton1, "Печать")=vbYes THEN
PressButton 'Применить'
DocumentByTemplate ("\\Server\PatientsCount\Templates\template1.docx")
else Exit sub
END IF

По нажатии "Да" добавляется новая запись и открывается заполненный шаблон в Word. Все отлично работает, кроме случая, когда на форме есть незаполненные обязательные поля. Предупреждение о незаполненном поле появляется, но и Word открывается с пустым шаблоном.
Можно ли проверить на ошибки форму, до начала выполнения скрипта и останавливать его с сообщением "заполните обязательные поля"?
Спасибо!


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Проверка формы на ошибки в VBScript
СообщениеДобавлено: 16.09.2016 13:47 
Не в сети

Зарегистрирован: 25.04.2012 10:09
Сообщения: 2233
Откуда: Жуковский, Московская область
Добрый день. Внесите в скрипт проверку заполнения требуемых полей:
Код:
IF <проверяемое текстовое поле 1> <> '' AND <проверяемое числовое поле 2> > 0 THEN
  IF MsgBox("Сохранить и открыть в Word?", vbYesNo+vbInformation+vbDefaultButton1, "Печать")=vbYes THEN
    PressButton 'Применить'
    DocumentByTemplate ("\\Server\PatientsCount\Templates\template1.docx")
  END IF
ELSE
  MsgBox "Не заполнены обязательные поля!", vbOK+vbWarning, "Ошибка"
END IF

_________________
90% ответов на ваши вопросы находятся в руководстве, разделах "Вопросы" и "Видео" на нашем сайте.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Проверка формы на ошибки в VBScript
СообщениеДобавлено: 19.09.2016 12:27 
Не в сети

Зарегистрирован: 20.04.2016 00:05
Сообщения: 34
Все просто и красиво, спасибо большое!


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4 ] 

Часовой пояс: UTC + 4 часа


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 1


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:
Перейти:  
Создано на основе phpBB® Forum Software © phpBB Group
Русская поддержка phpBB