语法那里错了？

bit-yxn

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


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

access学习交流

提示什么错误？后面的！改成.  把set 分开两句话写？

轻风

很明显的，[Forms]![bom]![Text57]和[Forms]![bom]![Text60]要放在引号外面，用&连接，其它的我就不知道还有没有错了

轻风

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

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

复制代码

如果是文本型，则：

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

复制代码

bit-yxn

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

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 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

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

轻风

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

Henry D. Sy

应该是
   While not rstwo.EOF