如何使用筛选器处理运行时错误13

Question

我尝试了很多次，但都未能消除运行时错误13。它显示了me.filter行中的错误。将不胜感激

private Sub Form_Open(Cancel As Integer)
Dim arg() As Variant

If Nz(Me.OpenArgs) = 0 Then
Exit Sub
Else

MsgBox (Me.OpenArgs)
If Len(Me.OpenArgs) > 0 Then
arg = Split(Me.OpenArgs, "|")
Me.Filter = "[lab book]=' " & "arg(0)" & "" And "[starting Page]='" & arg(1) & "'"
Me.FilterOn = True
End If

End If
End Sub

Answer 1

试试这个-我猜页面是数字的：

Private Sub Form_Open(Cancel As Integer)
Dim arg() As Variant

If Not IsNull(Me.OpenArgs) Then
MsgBox (Me.OpenArgs)
arg = Split(Me.OpenArgs, "|")
Me.Filter = "[lab book] = '" & arg(0) & "' And [starting Page] = " & arg(1) & ""
Me.FilterOn = True
End If    
End Sub

Answer 2

Private Sub Form_Open(Cancel As Integer)
'an array can be assigned to a variant, but you cannot assign to an array
'Spit returns an array of strings
Dim Arg As Variant 'so make Arg a variant instead of an array of variants

Dim strsql As String 'combining sql strings is very error prone.  When debugging print them
If Not IsNull(Me.OpenArgs) Then
'MsgBox (Me.OpenArgs)
Arg = Split(Me.OpenArgs, "|") 'So, now Arg holds the array of strings returned by split


strsql = "[lab book] = '" & Arg(0) & "' And [starting Page] = " & Arg(1)
Debug.Print strsql
'Based on my dummy data: [lab book] = 'science' And [starting Page] = 5
'It is important to wrap your text arguments in apostrophes when you combine them into the sql string or pass them already wrapped 
'So check the datatypes in the table or query you are searching
Me.Filter = strsql
Me.FilterOn = True
End If
End Sub