Question

我试图在Access表单的Open事件中发送两个值作为OpenArgs属性。

  Me.str1 & ";" & Me.str2

在我正在执行的表单的Open事件中：

Dim strArgs() As String

    If Trim(Nz(Me.OpenArgs, "")) = "" Then
        Cancel = True
    Else
        strArgs() = Split(Me.OpenArgs, ";")

    Me.str1 = strArgs(0)

    Me.str2 = strArgs(1)

我明白了

下标超出范围

Me.str2=strArgs(1)行上的错误

我曾尝试Dim strArgs(2) as String声明数组长度，但这也无济于事。

Answer 1

不需要数组来解析来自OpenArgs的两个元素。

Me.str1 = Left(Me.OpenArgs, InStr(Me.OpenArgs, ";") - 1)

Me.str2 = Mid(Me.OpenArgs, InStr(Me.OpenArgs, ";") + 1)

MS Access VBA下标超出范围错误

1 个答案: