Office中国论坛/Access中国论坛

标题: 这样的用于自动编号的文本框该怎么设置？ [打印本页]

作者: wuaza 时间: 2005-1-5 02:41
标题: 这样的用于自动编号的文本框该怎么设置？
窗体上有一个文本框是形如“20040123”的，我想实现当添加新记录时该字段在原来的基础上加1，即新记录中的该字段变成“20040124”。而到了2005年1月1日添加第一个记录时变为“20050001”，以后的记录就跟着加1，即”20050002”，“20050003”。

请问以上的要求能实现吗，该怎么做？

作者: zyp 时间: 2005-1-5 06:38
取得当年最后一笔记录的编号字段加1即可获得新编号当月记录为空时，则赋默认值=year(date)*10000+1不过建议将编号字段设为文本类型，要进行运算时，用Clng转换为数字

作者: wuaza 时间: 2005-1-5 20:11
谢谢zyp的指导，我参考了你的意见，后来研究出这么一个方法成功了： If DCount("编号", "表", "编号 like year(date())&'*'") = 0 Then

编号 = Year(Date) & "0001"

Else

编号 = IIf(IsNull(编号), 0, 编号) + 1

End If

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)