Office中国论坛/Access中国论坛

标题: 已解决，请教一个SQL查询语句问题 [打印本页]

作者: sbsfhgl 时间: 2008-1-3 18:10
标题: 已解决，请教一个SQL查询语句问题

系统提示：SELECT 子句包含一个保留字、拼写错误或丢失的参数，或标点符号不正确。
请问怎么改？

Public Function funSetFilter()

Dim strSql As String



strSql = "SELECT 员工产量合计查询.班组, 员工产量合计查询.工序ID, 员工产量合计查询.工序　, 员工产量合计查询.工号, 员工产量合计查询.姓名, 员工产量合计查询.体积, 员工产量合计查询.备注, 员工产量合计查询.产量之总计, 工价表.工价, [产量之总计]*[工价] AS 计件工资小计FROM 员工产量合计查询 INNER JOIN 工价表 ON (员工产量合计查询.备注 = 工价表.备注) AND (员工产量合计查询.工序ID = 工价表.工序ID) AND (员工产量合计查询.体积 = 工价表.体积)"

If 班组 <> "" Then

strSql = strSql & " And ((员工产量合计查询.班组) = [Forms]![员工工资明细]![班组])"

End If


If 工序 <> "" Then

strSql = strSql & " And ((员工产量合计查询.工序　) = [Forms]![员工工资明细]![工序]"


End If

If 工号 <> "" Then

strSql = strSql & " And ((员工产量合计查询.工号]) = [Forms]![员工工资明细]![工号])"

End If

If 姓名 <> "" Then

strSql = strSql & " And ((员工产量合计查询.姓名) = [Forms]![员工工资明细]![姓名)"

End If


Me.员工计件工资小计子窗体.Form.RecordSource = strSql
End Function

[ 本帖最后由 sbsfhgl 于 2008-1-4 08:56 编辑 ]

作者: andymark 时间: 2008-1-3 20:03
缺少换行符号??

作者: sbsfhgl 时间: 2008-1-4 08:22

原帖由 cuxun 于 2008-1-3 19:53 发表
是不是这里没有空格呀?
AS 计件工资小计FROM
AS 计件工资小计 FROM

按上述要求改了过后提示JOIN操作语法错误？真奇怪！

[ 本帖最后由 sbsfhgl 于 2008-1-4 08:24 编辑 ]

作者: sbsfhgl 时间: 2008-1-4 08:56
已解决，原来是AND (员工产量合计查询.体积 = 工价表.体积) where"

再把后面的and去掉，用词不当

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)