Запуск функции из макроса
|
|
Пятница, 07 Апреля 2017 г. 14:46
+ в цитатник
Добрый день!
Задача: перед запуском макрокоманды сохранить запись, проверить на совпадение в таблице номер сотового.
Создал modules с названием CheckSotovii и внутри разместил функцию
Public Function CheckSotovii() As String
If Me.НомерСотового1.Value Like "*[A-?, A-Z, ?, -]*" Then
MsgBox ("Введите цифры")
ElseIf DCount("НомерСотового1", "Дети", "[Дети]![НомерСотового1]=" & Me.НомерСотового1.Value & "") > 0 Then
MsgBox ("Такой уже существует")
End If
End Function
ВОПРОС: почему при когда в макросе выполняю "ЗапускПрограмм", прописываю имя как CheckSotovii(), выходит сообщение "Введеное выражение содержит имя функции, которое программе не удалось найти"
http://www.sql.ru/forum/1256327/zapusk-funkcii-iz-makrosa
-
Запись понравилась
-
0
Процитировали
-
0
Сохранили
-