Есть конструкция для InputFromList

If Left(sMoveTo, 2) = "Ok" Then
sMoveTo = Mid(sMoveTo, 4)
Else
MsgBox('Cancel')
WScript.Quit
End If

В блоке Else надо завершить скрипт чтобы не выполнялись команды после End If
какой командой можно это сделать?


Попутные вопросы, чтобы темы не плодить:
Странное поведение MSGBox

Dim sVariable, sAllowed
sVariable = 'Переменная'
MsgBox ("Warning")
sAllowed = MsgBox("Перемещение: " & sVariable, 1, "Перемещение")
MsgBox ("Allow:" & sAllowed)

1.Первый выскакивает как и положено с кнопкой ok, Второй тоже нормально - с двумя кнопками.
Третий как будто запомнил параметры последнего и вылазит с заголовком "Перемещение" и кнопками Ok/Cancel

2. Если чуть изменить строку sAllowed = MsgBox("Перемещение: " & sVariable & " уверены?", 1, "Перемещение")
то есть строка сообщения оканчивается на текст в кавчках "...", а не переменной
то в сообщении MSGBox вместо значений переменных будут имена переменных.

WScript.Quit должно работать.
Странное поведение MsgBox не обнаружили.
Наверное, вы используете старую версию.

_________________
2B OR NOT 2B = TRUE

Dim InputNumber
InputNumber = InputBox('Введите номер')
If InputNumber = NULL Then
MsgBox ("Не найден")
WScript.Quit
End If
MsgBox ("Введено:" & InputNumber)

Если ввести число отрабатывает нормально
Если ничего не ввести - выходит "не найден" и скрипт продолжается - выходит "Введено:"
Может я чтото не так пишу?
Версия 2.537

[про кавычки удалено, разобрался в новом восприятии программы]
Wscript.Quit все так же не работает =(

Доработали кое-что. Можно обновиться.
Вот эта строчка не верна
If InputNumber = NULL Then

Любая операция с NULL-ом будет NULL.
Есть спец. функция IsNull
Но в данном случае нужно просто с пустой строкой сравнивать:
If InputNumber = "" Then

_________________
2B OR NOT 2B = TRUE

Теперь работает, благодарю!

mssql 2014, учет клиентов 2.1016
Вопрос не совсем по теме, но столкнулся с похожей задачей.



Если в поле вводить число все ОК!
Если текст, то выдает ошибку. Недопустимое имя столбца.
Еще вопрос, как можно сделать так, чтоб при обновлении поля сохранялось то что было уж написано, а то что ввели в диалоговое окно добавлялось.
Пробывал запросить с начало в процедуре через select значение, а в update уже скомпоновать 2 переменных, но тоже безрезультатно.

Через переменные {} и <> пробовали?

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

Да, перепробовал кучу вариантов.
Все не подходит. Проблема именно в подстановке в update переменных из процедуры.
если одну переменную вставляю (обновляется, но только числа, с буквами - ошибка)
Если две переменных то ошибки. Пытался соединить различными знаками & +
Все бесполезно

Азы SQL: есть три основншых типа данных - числа, строки и даты.
Числа не надо ничем окружать.
Строки надо окружать одинарными кавычками.
Даты надо окружать диезами # (Access) или одинарными кавычками.
Делайте всегда MsgBox sSql непосредственно перед выполнением и смотрите внимательно на SQL-команду, которую вы сформировали, для наглядного поиска ошибок в ней.

_________________
2B OR NOT 2B = TRUE

Ivan,

Если использовать следующие:


При вводе цифр все ок! При вводе текста - ошибка.
В сам MsgBox по разному вставлял InputText ( в скобках,в угловых в квадратных, в кавычках двойных и одинарных и множество других вариантов которые предлагали в сети.
В каких то случаях отображает формулу корректно в каких то не очень и т.д.

Но строка

Работает только на числа. Каким бы способом я не заносил переменную InputText

Так и должно быть

Ivan написал ведь (выделено мной)

Я могу к этому добавить лишь то что сами кавычки/диезы и т.п. содержимым переменной не являются.

Сделайте то что жирным в Ивановом совете

Спасибо) 1 раз не вдумчиво прочитал)
в таком виде действительно работает:


Но при обновлении поля получается следующие:
Ввели: ПРА123
Получили: & "ПРА123" &

Как убрать знаки и оставить только тест?

в MsgBox


Показывает только: "ПРА123"

Но если вставлять в Update без ' & & ' то ничего не работает.

Есть возможность при вставке убрать все знаки кроме теста?
Если спрашиваю очевидные, глупые вещи - сильно не ругайтесь)
Спасибо всем за помощь)

1.
В vbs строки в двойных кавычках ("), а в SQL в одинарных (').
У Вас
2-я строка в InputBox('Введ... стоит одинарная.
в
UP1 = 'UPDATE qdfMain SET [DopolnitelnoyeOpisaniye] = ' & InputText & ' WHERE ClientID = <ClientID>'
то же не то

Вот так пробуйте


"'" - это одинарная кавычка внутри двойных

2.
для разработчиков программы напишу. "Учет пациентов" в. 2.718.
Выдает см. рисунок.

Спасибо, работает!



Но последний мучающий меня вопрос, если нужно сохранить значение которые было занесено раннее и добавить то что было введено.
Делаю так же запросом сначала:


Далее пытаюсь вставить так же в update, но при попытке вставить то же ошибка.
Что делаю не так?