Ошибка символа описания типа - MS Access

Question

Я продолжаю получать символ «объявление типа объявления» при попытке скомпилировать свой код, но я не понимаю, почему.

Вот код (перефразируя):

Private Sub cboTest_AfterUpdate() 

'(some code) 

Dim strWhere As String 
Dim lngLen As Long 

lngLen = Len(strWhere - 5) 

strWhere = Left$(strWhere, lngLen) 

'(some code) 

End Sub 

.accdb файл, который я работаю на приблизительно 7000 КБ, он составил несколько раз до сих пор, но по какой-то причине каждый итерации этого дает мне проблемы. Любая идея, что может быть проблемой?

Спасибо заранее,

J

Answer 1

Это работает здесь и dosn't неудачу для коротких строк:

Private Sub cboTest_AfterUpdate() 

    Dim strWhere As String 
    Dim lngLen As Long 

    lngLen = Len(strWhere) - 5   
    If lngLen >= 0 Then 
     strWhere = Left(strWhere, lngLen) 
    End If 

    '(some code) 

End Sub