Доступ к регулярному выражению vbscript недействительный вызов или аргумент процедуры

Question

У меня есть таблица доступа с полем memo, где данные вводятся с использованием формы и до того, как пользователь вводит новые данные, дата добавляется в форме (Apr-01). После сохранения новые данные добавляются вверху. Тогда у меня есть функция, как следует, что попадает в поле и получает новые данные, так что бы на вершине:

Пример данных

Apr-01 - new data 
Mar-09 - old data 
etc 

Функция получить последние:

Public Function GetLatest(text As String) As String 
    If (IsNull(text)) Then 
     GetLatest = "" 
    Else 
     Set objRegExpr = New regexp 

     objRegExpr.Pattern = "([A-Za-z]{3}-[0-9]{2})" 
     objRegExpr.Global = True 
     objRegExpr.IgnoreCase = True 

     Set colMatches = objRegExpr.Execute(text) 

     del = colMatches(1) 
     txt = Split(text, del) 
     GetLatest = txt(0) 
    End If 
End Function 

Запуск этой функции в окне Immediate, я получаю ожидаемые результаты, но когда я запускаю ту же функцию в запросе, я получаю invalid procedure or argument, указывая на эту строку del = colMatches(1). Что мне не хватает?

Answer 1

Чтобы извлечь то, что вы захватили, вы хотите 1-й элемент, который является индексом 0, но не 1;

del = colMatches.Item(0) 

Или альтернатива, избегающая объекта регулярного выражения;

if ucase$(text) like "[A-Z][A-Z][A-Z]-[0-9][0-9]*" then GetLatest = left$(text,6)