窗体查询问题

Private Sub Command8_Click()
On Error GoTo Err_Command18_Click

    Dim strWhere As String
   
    strWhere = ""
    
    If Not IsNull(Me.地址ID) Then
       
        strWhere = strWhere & "([地址ID] like '*" & Me.地址ID & "*') AND "
    End If
   
    If Not IsNull(Me.名字) Then
       
        strWhere = strWhere & "([名字] like '*" & Me.名字 & "*') AND "
    End If
   
  
    If Not IsNull(Me.地址) Then
       
        strWhere = strWhere & "([地址] like '" & Me.地址 & "') AND "
    End If
   
  
    If Not IsNull(Me.郵政編碼) Then
      
        strWhere = strWhere & "([郵政編碼] like '" & Me.郵政編碼 & "') AND "
    End If
    
   
        
    
    If Len(strWhere) > 0 Then
       
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
   
    Debug.Print strWhere
   
     
    Me.地址查询子窗体.Form.Filter = strWhere
    Me.地址查询子窗体.Form.FilterOn = True
  
Exit_Command18_Click:
    Exit Sub

Err_Command18_Click:
    MsgBox Err.Description
    Resume Exit_Command18_Clic
End Sub

希望可以幫到你。