为什么提示第一行:')'附近有语法错误

clmkjszx123

Dim strWhere As String  '定义条件字符串
   
    strWhere = "" '设定初始值－空字符串
   
   
    If Not IsNull(Me.Z2) Then
      
        strWhere = strWhere & "([z2] like '" & Me.Z2 & "') AND "
    End If
   
   
    If Not IsNull(Me.Z4) Then
      
        strWhere = strWhere & "([z4] like '" & Me.Z4 & "') AND "
    End If

   
    If Not IsNull(Me.Z5) Then
      
        strWhere = strWhere & "([z5] like '" & Me.Z5 & "') AND "
    End If


If Len(strWhere) > 0 Then
      
        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If
   
    Debug.Print strWhere
   
   
CurrentProject.Connection.Execute ("update sum1 set t1=(select count(z5) from sdmxb where strwhere)")

zhangxiyou

灌：最后一句中，strwhere是条件串？还是字段?如果是字段，请保证在表“sdmxb”中。。。

ADAM

暈

當然出錯

應該這樣寫

CurrentProject.Connection.Execute ("update sum1 set t1=(select count(z5) from sdmxb where " & strwhere & ")")