查询窗体，请高手帮忙看看出了什么问题！

yifer　发表于：2013-07-12 08:33:44 　

Option Compare Database
Private Sub Text0_Change()
    Dim strWhere As String

    strWhere = Trim$(Me.Text0.Text)
    If Len(strWhere) > 0 Then
        strWhere = " WHERE [营业部ID] & [资金账号] & [客户姓名] & [客户性别] & [联系电话] & [实际控制人] & [控制人电话] & [优先] Like '*" & strWhere & "*'"
        strWhere = " WHERE [资金账号] = '" & strWhere & "'"
    End If
    Me.Child6.Form.RecordSource = "SELECT distinct * FROM 02客户基本信息表" & strWhere
End Sub
Private Sub Form_Load()

End Sub

查询窗体，请高手帮忙看看出了什么问题。

Top

煮江品茶发表于：2013-07-12 09:51:36

删除 strWhere = " WHERE [资金账号] = '" & strWhere & "'"

并在 02客户基本信息表后增加一个空格。

Top

yifer 发表于：2013-07-12 10:12:49

谢谢，但试了一下，好像不行

运行后，弹出

点取消再次以上错误

Top

yifer 发表于：2013-07-12 10:17:46

能帮我改改吗？谢谢了

Top

hongyin 发表于：2013-07-12 10:31:04

Private Sub Text0_Change()
    Dim strWhere As String

    strWhere = Trim$(Me.Text0.Text)
    If Len(strWhere) > 0 Then
        strWhere = " WHERE [营业部ID] & [资金账号] & [客户名称] & [客户性别] & [联系电话] & [实际控制人] & [控制人电话] & [优先] Like '*" & strWhere & "*'"
'        strWhere = " WHERE [资金账号] = '" & strWhere & "'"
    End If
    Me.Child6.Form.RecordSource = "SELECT distinct * FROM 02客户基本信息表" & strWhere
End Sub

Top

cspa 发表于：2013-07-12 12:12:25

你试试

点击下载此附件

Top

yifer 发表于：2013-07-12 13:14:31

感谢煮江品茶和hongyin的帮助，按你们教的方法修改后确实可以查询了，

选择删除strWhere = " WHERE [营业部ID] & [资金账号] & [客户姓名] & [客户性别] & [联系电话] & [实际控制人] & [控制人电话] & [优先] Like '*" & strWhere & "*'" 为精确查询

 选择删除 strWhere = " WHERE [资金账号] = '" & strWhere & "'"  后，就只能全字段模糊查询


感谢cspa的修改，很厉害，可惜本人太小白，完全看不懂。

我无法应用到其他的地方，能附加一下解释吗？不胜感激！

Top

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

Access交流中心

查询窗体，请高手帮忙看看出了什么问题！