Прошу прощение, отправил не доделанный текст
Есть функция:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Public Function fncПроверка(strВидПроверки As String) As Boolean
Select Case fncКодПроверки(strВидПроверки)
Case 1 'Некорректный символ
If InStr(1, strКлавиатура, strНекорректныйСимвол) <> 0 Then
fncПроверка = True
End If
Case 4 'Серийные уже есть
strЗапрос = "SELECT u.СерийныйНомер FROM u WHERE u.КодТовара =" _
& frmФорма!ПолеАртикул
Set rst = dbТекущая.OpenRecordset(strЗапрос, dbOpenDynaset)
If rst.EOF = False Then
fncПроверка = True
ВставитьКоммент 7
End If
Case 10
If strКлавиатура = "00001" Then
fncПроверка = True
ВставитьКоммент 14
End If
Case 11 'Разная длина штрих-кодов
If Len(frmФорма!ПолеFrom) <> Len(frmФорма!ПолеTo) Then
fncПроверка = True
ВставитьКоммент 15
End If
Функция выполняет одну из проверок и возвращает ИСТИНА/ЛОЖЬ. Но вариантов проверки предполагается несколько сотен, в итоге текст самой функции станет не читаемым.
ХОЧЕТСЯ, чтобы функция получила условие проверки в виде текстовой строки, поняла, что это логическое выражение и выполнила его.Что-то вроде этого:
1.
2.
3.
4.
5.
a="Len(frmФорма!ПолеFrom) <> Len(frmФорма!ПолеTo)"
If какаяТоФункция(а) Then
fncПроверка = True
ВставитьКоммент 15
End If
Это возможно?
