如何解决此搜索按钮问题？

Question

我是Access VBA的新手。我在执行按钮SEARCH的功能时遇到问题。当我执行代码时，此错误将出现在我的屏幕上：

<!-- Adding ReferenceNumber tag to ChangeOfAddressRcd -->
<xsl:template match="ChangeOfAddressRcd"> 
     <ChangeOfAddressRcd>
        <ReferenceNumber>
            <xsl:value-of select="../../../../../Header/ReferenceNumber"/>
        </ReferenceNumber>
        <xsl:apply-templates select="@*|node()"/>
    </ChangeOfAddressRcd>                      
</xsl:template>

<!-- Adding ReferenceNumber tag to ConsumerIDRcd -->
<xsl:template match="ConsumerIDRcd"> 
    <ConsumerIDRcd>
        <ReferenceNumber>
            <xsl:value-of select="../../../../../Header/ReferenceNumber"/>
        </ReferenceNumber>
        <xsl:apply-templates select="@*|node()"/>
    </ConsumerIDRcd>                      
</xsl:template> 

Answer 1

可以看到导致错误的行是什么？仅查看您的代码，我就会看到您的On Error GoTo cmdSearchErrorTrap语句，但底部的相应语句是btnSearchErrorTrap。解决这个问题，使它们都以cmd或btn为前缀可能是您所需要的（只要它们相同就无所谓）。