自动编号问题

todaynew

用Dmax提取编号字段处理一下不就完事了

todaynew

hannanrenjie 发表于 2014-9-10 20:49
试了的，可是不会。应该还要加IIF判断吧？

1、假设你的表名为：tbname，该表中需要自动编号的字段名为：num，该表中的年度为四位字符串，月度为两位字符串，则在标准模块中写自定义函数：
Public Function GetNewNum(byval year as string,byval month as string) as string
    '功能：返回新编号
    dim newNum as string
    newNum=Dmax("num","tbname","年度='" & year & "' and 月度="' & month & "'") '获取当前最大编号
    newNum=nz(newNum,year & month & "0000") '最大编号为空值时，转换为0000
    newNum=val(right(newNum,4))+1 '右取4位，加1
    newNum=year & month & format(newNum,"0000") '拼接新编号
    GetNewNum=newNum   '返回新编号
End Function

2、调用时，假设窗体上有名为年度控件、名为月度的控件和名为编号的控件：
在编号控件的控件来源中写:=GetNewNum([年度],[月度])

todaynew

hannanrenjie 发表于 2014-9-14 10:43
谢谢老师！我试试。
没有“年度”和“月度”字段，用“年月”字段来表示“帐务年月”的。
我们公司的“帐 ...

加个年度和月度字段，这些问题不都解决了嘛。