中国IT动力,最新最全的IT技术教程
最新100篇 | 推荐100篇 | 专题100篇 | 排行榜 | 搜索 | 在线API文档
首 页 | 程序开发 | 操作系统 | 软件应用 | 图形图象 | 网络应用 | 精文荟萃 | 教育认证 | 硬件维护 | 未整理篇 | 站长教程
ASP JS PHP工程 ASP.NET 网站建设 UML J2EESUN .NET VC VB VFP 网络维护 数据库 DB2 SQL2000 Oracle Mysql
服务器 Win2000 Office C DreamWeaver FireWorks Flash PhotoShop 上网宝典 CorelDraw 协议大全 网络安全 微软认证
硬件维护  CPU  主板  硬盘  内存  显卡  显示器  键盘鼠标  声卡音箱  打印机  机箱电源  BIOS  网卡  C#  Java  Delphi  vs.net2005
  当前位置:> 程序开发 > 数据库开发 > 数据库综合
access如何用代码在“默认值”里实现自动编号?单据流水号生成问题。
作者:未知 时间:2004-03-08 12:12 出处:Blog 责编:chinaitpower
              摘要:暂无

如何用代码在“默认值”里实现自动编号?单据流水号生成问题。

 

问题:

如何用代码在“默认值”里实现自动编号?单据流水号生成问题。

如何用代码在“默认值”里实现自动编号?
如果我想实现不同类型的自动编号,我应该怎么设置代码呢?
如:第1号、第2号、...........、第198号..................
或:CN0001-A、CN0002-B、CN0003-B、.........、CN0004-A、CN1998-B……
是在默认值里输入代码呢,还是在什么地方,请指教,谢谢!

 

回答:

这些要求都不需要在“表”的字段属性中完成,一般都是在界面编程中解决的。

用 dcount() 或者 DMAX() 函数取值后用字符串组合的方法得到编号

Private Sub Field1_Enter()
    If IsNull(Field1.value) Then
        Field1.value = "CN" & Format(CLng(DMax("mid(field1,3,4)", "table1") + 1), "0000") & "-A"
    End If
End Sub


当然,知道原理以后你一定要用更改表的“默认值”的方法来实现也未尝不可,但个人觉得没必要。

HTTP://ACCESS911.NET 站长收藏

关闭本页
 
首页 | 投资与合作 | 服务条款 | 隐私政策 | 收藏本站 | 设为首页 | 新用户注册 | 免责声明 | 使用帮助
Copyright ©2005-2008 chinaitpower.com All rights reserved. www.chinaitpower.com 版权所有