长时间没用VBA,现在弄不明白自己写过的查询公式了。

恐龙的传人　发表于：2019-04-01 10:08:57 　

在查询中新建一个专门用于排序的排序ID，公式如下：

Right(Format([计账月],"yyyymm"),4) & Choose(Len(CStr([id])),"00" & [id],"0" & [id],Right([id],3),Right([id],3),Right([id],3))

即从计账月（2018年12月）提取出1812作为前缀+表的ID 表的ID位数不足3位的，补齐3位；多于3位的，只截取3位。现在发现3位ID不够用，想改成4位，可进入查询后发现自己看不懂当年写的公式了。

说实在的，也就是Choose函数搞不清怎么使用了。

chinasa 发表于：2019-04-02 15:39:55

Right(Format([计账月],"yyyymm"),4) & right("0000" & CStr([id]),4)

这样可以吗？

飘摇王发表于：2019-04-03 09:08:11

Right(Format([计账月],"yyyymm"),4) & Choose(Len(CStr([id])),"000" & [id],"00" & [id],"0" & [id],Right([id],4),Right([id],4),Right([id],4),Right([id],4))

这样呢

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

Access交流中心