Как передать значение из поля в командную строку?

@ekost · Регистрация: 04.10.2012

Подскажите, пожалуйста чайнику, думаю это не составит проблемы.
Короче, есть база данных в аксессе.
Там есть поле с номером телефона клиента.
Мне нужно сделать так, чтобы по нажатию на кнопку рядом с полем, этот самый номер набирался sip телефоном 3cxphone.
Передача значения телефону идет через командную строку в формате ""C:\Program Files (x86)\3CXPhone\3CXPhone.exe" sip:[number phone]".

Я в VBA и Эесессе - ноль, но начальник поручил это мне и тут не отвертишься.

Что я сделал:
в коде формы я взял имя поля - name - Business Phone
в коде модуля vba написал следующее:

Visual Basic

1
2
3

Public Sub dial()
Shell "C:\Program Files (x86)\3CXPhone\3CXPhone.exe" + "sip:" + "Business Phone"
End Sub

НО при запуске скрипта компиллятор выдает ошибку run-time error '53'
'file not found'

Что я сделал не так?
Мне всего то нужно передать содержимое поля в командную строку и выполнить.
И не знаю, как прикрутить кнопку вызова скрипта

mobile · 12.05.2016, 00:11

1. Пропущен пробел между exe-файлом и "sip:"
2. Если Business Phone поле на форме, то надо вынести его из строки

Visual Basic

1	Shell """C:\Program Files (x86)\3CXPhone\3CXPhone.exe"" ""sip:" & Me.[Business Phone]

@ekost · 12.05.2016, 00:28 **[ТС]**

выдает ошибку "invalid Use of me keyword"
Что не так?

mobile · 12.05.2016, 00:45

Сообщение от ekost

выдает ошибку "invalid Use of me keyword"
Что не так?

Предполагалось, что Вы нажимаете на кнопку в форме. Me это переменная-копия формы.

Сделайте в форме, в которой есть поле Business Phone кнопку и в процедуру на событии клика кнопки поместите написанный код.
Откройте форму в конструкторе, создайте мастером кнопку с любым содержанием. Выделите кнопку мышкой, зайдите в карточку свойств>=вкладка События. В строке Нажатие кнопки выберите из списка [Процедура обработки событий] и нажмите самую правую кнопку в этой же строке. Попадете в процедуру клика кнопки. Скопируйте туда написанный код. Если все имена правильные, то должно сработать.

Или выкладывайте БД на форум. Но у не знаю у кого есть пакет 3CXPhone для проверки.

@ekost · 12.05.2016, 02:09 **[ТС]**

Короче, ничего не могу понять.
Кнопка срабатывает. Телефон вызывается, но ничего не набирает. Такое чувство, что ему не передается номер.
Мне нужно, чтобы модуль выдавал командную строку с текстом: "C:\Program Files (x86)\3CXPhone\3CXPhone.exe" sip:+7????????????

Если этот текст вбивать в консоль, то номер набирается, то есть - код правильный.

Что делать? Пять часов уже сижу.

Вот мой тестовый файл:

@VinniPuh · 12.05.2016, 07:02

ekost, попробуйте создать кнопку автонабора номера с помощью Мастера кнопок.
Единственно, что циферки там должны быть без пробелов и тирешек.

@texnik-san · 12.05.2016, 09:51

Сообщение от ekost

Мне нужно, чтобы модуль выдавал командную строку с текстом: "C:\Program Files (x86)\3CXPhone\3CXPhone.exe" sip:+7????????????

1) Для этого вам надо, чтобы в поле ввода было введено именно +7????????????. У вас там ни маски ввода, ни проверки правильности. Я бы на вашем месте все-таки маску ввода задала.

2) по-моему проблема в расстановке кавычек, если я не ошибаюсь, то нужно примерно так:

Visual Basic

1	Shell """C:\Program Files (x86)\3CXPhone\3CXPhone.exe"" sip:" & Me.[Business Phone]

@ekost · 12.05.2016, 12:27 **[ТС]**

Сообщение от texnik-san

Для этого вам надо, чтобы в поле ввода было введено именно +7????????????. У вас там ни маски ввода, ни проверки правильности. Я бы на вашем месте все-таки маску ввода задала.

Номер я ввел для примера. Вместо него должно подставлятся значение из поля с номером

@alvk · 12.05.2016, 13:35

Сообщение от ekost

Что делать?

освоить команду debug.print и использовать в дальнейшем, например:

Visual Basic

1	Debug.Print """C:\Program Files (x86)\3CXPhone\3CXPhone.exe"" ""sip:" & Me.[phone]

выдаёт:

Visual Basic

1	"C:\Program Files (x86)\3CXPhone\3CXPhone.exe" "sip:76899

ясно видно, что кавычка лишняя

@ekost · 12.05.2016, 13:47 **[ТС]**

Все, проблема решена, спасибо за помощь.

@texnik-san · 12.05.2016, 17:41

Сообщение от ekost

Номер я ввел для примера. Вместо него должно подставлятся значение из поля с номером

Я понимаю. Но сейчас ничто не заставлят пользователя вводить именно номер телефона.

Обратите внимание на свойство "Маска ввода" (почитайте хелп) - в вашем случае может быть очень полезным.

@ekost 0 / 0 / 0 Регистрация: 04.10.2012 Сообщений: 31
	12.05.2016, 00:28 [ТС]	3
	выдает ошибку "invalid Use of me keyword" Что не так? 0

mobile 26775 / 14454 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	12.05.2016, 00:45	4
	Сообщение от ekost выдает ошибку "invalid Use of me keyword" Что не так? Предполагалось, что Вы нажимаете на кнопку в форме. Me это переменная-копия формы. Сделайте в форме, в которой есть поле Business Phone кнопку и в процедуру на событии клика кнопки поместите написанный код. Откройте форму в конструкторе, создайте мастером кнопку с любым содержанием. Выделите кнопку мышкой, зайдите в карточку свойств>=вкладка События. В строке Нажатие кнопки выберите из списка [Процедура обработки событий] и нажмите самую правую кнопку в этой же строке. Попадете в процедуру клика кнопки. Скопируйте туда написанный код. Если все имена правильные, то должно сработать. Или выкладывайте БД на форум. Но у не знаю у кого есть пакет 3CXPhone для проверки. 0

@VinniPuh 8555 / 5426 / 568 Регистрация: 27.03.2013 Сообщений: 18,715
	12.05.2016, 07:02	6
	ekost, попробуйте создать кнопку автонабора номера с помощью Мастера кнопок. Единственно, что циферки там должны быть без пробелов и тирешек. Миниатюры 0

@ekost 0 / 0 / 0 Регистрация: 04.10.2012 Сообщений: 31
	12.05.2016, 12:27 [ТС]	8
	Сообщение от texnik-san Для этого вам надо, чтобы в поле ввода было введено именно +7????????????. У вас там ни маски ввода, ни проверки правильности. Я бы на вашем месте все-таки маску ввода задала. Номер я ввел для примера. Вместо него должно подставлятся значение из поля с номером 0

@ekost 0 / 0 / 0 Регистрация: 04.10.2012 Сообщений: 31
	12.05.2016, 13:47 [ТС]	10
	Все, проблема решена, спасибо за помощь. 0

@texnik-san шапоклякистка 8-го дня 3674 / 2234 / 391 Регистрация: 26.06.2015 Сообщений: 4,647 Записей в блоге: 1
	12.05.2016, 17:41	11
	Сообщение от ekost Номер я ввел для примера. Вместо него должно подставлятся значение из поля с номером Я понимаю. Но сейчас ничто не заставлят пользователя вводить именно номер телефона. Обратите внимание на свойство "Маска ввода" (почитайте хелп) - в вашем случае может быть очень полезным. 0

Опции темы