Office中国论坛/Access中国论坛

标题: 怎样设置自动编号字段的格式？ [打印本页]

作者: LSM216 时间: 2002-12-20 00:34
标题: 怎样设置自动编号字段的格式？
我想把自动编号字段的格式设成下面这样：
格式：yyyymmddnw
自动编号结果如下：
电脑编号          我希望的编号
1900010101       2002121801
1900010202       2002121802
1900010303       2002121901
请问怎样才能得到我想要的编号？[em24]

作者: zhengjialon 时间: 2002-12-20 00:58
自动编号是从1开始往下编的

作者: fatmingli 时间: 2002-12-20 22:18
借花敬佛
Option Compare Database
Option Explicit
Function auto_make_ID(alias_ID As String, table_name)
If Not IsNull(Screen.ActiveForm(alias_ID)) Then Exit Function
Screen.ActiveForm(alias_ID) = get_usable_alias_ID(Screen.ActiveForm![date], alias_ID, table_name)
End Function
Function get_usable_alias_ID(date1, alias_ID As String, table_name)
Dim date2 As String, ID As String
On Error Resume Next
date2 = Format(date1, "yyyymmdd")
ID = DMax(alias_ID, table_name, alias_ID & " like '" & date2 & "???'")
If IsNull(ID) Or ID = "" Then
get_usable_alias_ID = date2 & "001"
Else
get_usable_alias_ID = date2 & Format(CStr(CInt(Right(ID, 3)) + 1), "000")
End If
End Function

作者: LSM216 时间: 2002-12-21 00:29
标题: 自动编号的格式是可以设定的。
TO：zhengjialon
自动编号的格式是可以设定的。

作者: LSM216 时间: 2002-12-21 00:31
标题: 这个程序怎么用？
TO：fatmingli
这个程序怎么用？

作者: eio 时间: 2002-12-21 04:35
标题: 这样的编号没有意思！
倒不如用窗体做流水帐号！因为ID号有可能会删除的，删除了同样也出现断续的现象！

作者: fatmingli 时间: 2002-12-22 06:24
auto_make_ID调用

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