MS Access VBA下标超出范围错误

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中的2个元素。

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

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