怎样设置自动编号字段的格式？

LSM216

我想把自动编号字段的格式设成下面这样：
格式：yyyymmddnw
自动编号结果如下：
电脑编号           我希望的编号
1900010101         2002121801
1900010202         2002121802
1900010303         2002121901
请问怎样才能得到我想要的编号？[em24]

zhengjialon

自动编号是从1开始往下编的

fatmingli

借花敬佛
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

TO：zhengjialon
    自动编号的格式是可以设定的。

LSM216

TO：fatmingli
    这个程序怎么用？

eio

倒不如用窗体做流水帐号！因为ID号有可能会删除的，删除了同样也出现断续的现象！

fatmingli

auto_make_ID调用