strSQL

旺彩童子　发表于：2009-06-30 16:58:34 　

有一查询窗体。设有N个组合框。现在根据文本框的内容查询。

子窗体的数据源来源一个查询。当组合框框没数据。CLICK 事件没问题。当有数据。CLICK 出现以下提示

"characters found after end of SQL statement

为啥会报错？

Private Sub Command15_Click()
    Dim strSQL As String
    strSQL = "select * from q总账明细 where 1=1;"
    If IsNull(Me.Combo11) = False Then
        strSQL = strSQL & " and EGAIT1 like '*" & Me.Combo11 & "*'"
    End If
    If IsNull(Me.Combo9) = False Then
        strSQL = strSQL & "and Nature_ID like '*" & Me.Combo9 & "*'"
    End If
    If IsNull(Me.Combo5) = False Then
        strSQL = strSQL & "and Month >= '" & Me.Combo5.Value & "' "
    End If
    If IsNull(Me.Combo7) = False Then
        strSQL = strSQL & "and Month <='" & Me.Combo7.Value & "'"
    End If
    If IsNull(Me.Text13) = False Then
        strSQL = strSQL & "and 归档号 like '*" & Me.Text13 & "*'"
    End If
    Me.Child25.Form.RecordSource = strSQL
    Me.Child25.Form.Refresh

End Sub

Top

樟树发表于：2009-06-30 20:06:10

建议你将strSQL“打印”出来看看。

Top

樟树发表于：2009-06-30 20:07:09

strSQL = "select * from q总账明细 where 1=1;"
最后的分号时多余的。

Top

点燃一支烟发表于：2009-07-04 10:53:51

把where 1=1改成where [1]=1试试

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

[5分]strSQL