论坛的一个示例，但是在应用过程中出现读取不到值的问题，麻烦大神给予指导，非常感谢！

青见marlene　发表于：2016-12-06 14:32:17 　

Public Function fOpenZZZ()
    Dim SQL As String
    Dim db As Database
    Dim rec As DAO.Recordset
    Set db = CurrentDb()

    Dim fType
    btnNumZZZ = Val(BTZZZ & APZZZ)

    SQL = "SELECT Menutbl.Button, Menutbl.Label, Menutbl.Open FROM Menutbl WHERE (((Menutbl.Button)=" & btnNumZZZ & ") AND ((Menutbl.Open) Is Not Null));"

主要在btnNumZZZ = Val(BTZZZ & APZZZ)读取的值为0，导致下面的SQL查询报错，但是在每个标签移动事件中已经给BTZZZ、APZZZ进行过赋值，不知道到底哪里有问题，麻烦各位大神给予指导，非常感谢！问题示例

Top

青见marlene 发表于：2016-12-07 13:48:01

将btnNumZZZ = Val(BTZZZ & APZZZ)修改成btnNumZZZ = Val(BTZZZ & Format(APZZZ, "00"))问题解决

Top

飘摇王发表于：2016-12-07 14:46:33

APZZZ取到的值好像是1 而不是01 btnNumZZZ=11 没有这个值就打不开了

Top

飘摇王发表于：2016-12-07 14:49:51

学习了

Top

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

Access交流中心

论坛的一个示例，但是在应用过程中出现读取不到值的问题，麻烦大神给予指导，非常感谢！