Question

我一直得到＆＃34;类型声明字符＆＃34;我尝试编译代码时出错，但我不明白为什么。

这里是代码（释义）：

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 KB，它在此之前已编译好几次，但由于某种原因，每次迭代都会给我带来问题。知道可能是什么问题吗？

提前致谢，

Ĵ

Answer 1

这在这里运行，并且dosn因短字符串而失败：

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

类型声明字符错误 - MS Access

1 个答案: