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

Проверка формы на ошибки в VBScript
http://prostoysoft.ru/phpBB3/viewtopic.php?f=10&t=58138
Страница 1 из 1

Автор:  Ostrovsky [ 16.09.2016 10:19 ]
Заголовок сообщения:  Проверка формы на ошибки в VBScript

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 открывается с пустым шаблоном.
Можно ли проверить на ошибки форму, до начала выполнения скрипта и останавливать его с сообщением "заполните обязательные поля"?
Спасибо!

Автор:  OMEN [ 16.09.2016 13:47 ]
Заголовок сообщения:  Re: Проверка формы на ошибки в VBScript

Добрый день. Внесите в скрипт проверку заполнения требуемых полей:
Код:
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

Автор:  Ostrovsky [ 19.09.2016 12:27 ]
Заголовок сообщения:  Re: Проверка формы на ошибки в VBScript

Все просто и красиво, спасибо большое!

Страница 1 из 1 Часовой пояс: UTC + 4 часа
Powered by phpBB® Forum Software © phpBB Group
https://www.phpbb.com/