Office中国论坛/Access中国论坛

标题: 语法那里错了？ [打印本页]

作者: bit-yxn 时间: 2013-9-20 21:36
标题: 语法那里错了？
Set rstwo = CurrentDb.OpenRecordset("SELECT* FROM 产品版本号关系表 WHERE 产品版本号关系表.产品号=[Forms]![bom]![Text57] and 产品版本号关系表.产品版本号=[Forms]![bom]![Text60] ", , dbReadOnly)

这句语法有错吗？求指导！

作者: access学习交流 时间: 2013-9-21 15:23
提示什么错误？后面的！改成. 把set 分开两句话写？

作者: 轻风 时间: 2013-9-22 10:16
很明显的，[Forms]![bom]![Text57]和[Forms]![bom]![Text60]要放在引号外面，用&连接，其它的我就不知道还有没有错了

作者: 轻风 时间: 2013-9-22 10:18
本帖最后由轻风于 2013-9-22 10:20 编辑

假如产品号和产品版本号都是数值型，则：

Set rstwo = CurrentDb.OpenRecordset("SELECT* FROM 产品版本号关系表 WHERE 产品版本号关系表.产品号=" & [Forms]![bom]![Text57] & " and 产品版本号关系表.产品版本号=" & [Forms]![bom]![Text60] , , dbReadOnly)

复制代码

如果是文本型，则：

Set rstwo = CurrentDb.OpenRecordset("SELECT* FROM 产品版本号关系表 WHERE 产品版本号关系表.产品号='" & [Forms]![bom]![Text57] & "' and 产品版本号关系表.产品版本号='" & [Forms]![bom]![Text60] & "'", , dbReadOnly)

复制代码

作者: bit-yxn 时间: 2013-9-22 11:31
谢谢！这个问题解决了，麻烦再帮忙看下这个

While rsthree.EOF
      While rstwo.EOF
         If rsthree("零件号") = rstwo("零件号") Then
            rstwo("零件图纸版本号") = rsthree("零件图纸版本号")
         Else
         End If
         rstwo.MoveNext
      Wend
rsthree.MoveNext
Wend
rstwo.Close
Set rstwo = Nothing
rsthree.Close
Set rsthree = Nothing

没有提示语法错误，但是实现不了我想要的结果，我觉得逻辑也没错误，帮忙看一下吧，非常感谢！

作者: bit-yxn 时间: 2013-9-22 11:31

轻风发表于 2013-9-22 10:18
假如产品号和产品版本号都是数值型，则：如果是文本型，则：

谢谢！这个问题解决了，麻烦再帮忙看下这个

While rsthree.EOF
      While rstwo.EOF
         If rsthree("零件号") = rstwo("零件号") Then
            rstwo("零件图纸版本号") = rsthree("零件图纸版本号")
         Else
         End If
         rstwo.MoveNext
      Wend
rsthree.MoveNext
Wend
rstwo.Close
Set rstwo = Nothing
rsthree.Close
Set rsthree = Nothing

没有提示语法错误，但是实现不了我想要的结果，我觉得逻辑也没错误，帮忙看一下吧，非常感谢！

作者: 轻风 时间: 2013-9-22 15:43
本帖最后由轻风于 2013-9-22 16:01 编辑

是不是要先.MoveFirst？我不太懂
还是要改成这样：
While rsthree.EOF = False
While rstwo.EOF = False......

作者: Henry D. Sy 时间: 2013-9-23 09:11
应该是
While not rstwo.EOF

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