[求助]自动编号如"年+月+编号"的实现问题.

tvcathy

如题,我想做一个这样的编号字段,不知怎么做,那个之前有一个时间的字段,我想根据时间得出"年+月"然后根据上一数据得出编号.例如.2005-04-01,2005-04-02.然后当月份改变时就重新编如6月为2005-06-01,这样,请问如何实现谢谢!

tvcathy

怎么没有人教我一下啊!我自己顶一下!希望大家能帮我一下!

JAYCEFU

Option Compare Database

Private Sub 自動編號_DblClick(Cancel As Integer) Dim MaxID, date2 As String If Me.NewRecord = True Then date2 = Format(Date, "YYYYMMDD") '今天日期 MaxID = DMax("[自動編號]", "資料表2", "[自動編號] Like '" & date2 & "*'") '找出今天最大流水號 If IsNull(MaxID) Then Me![自動編號] = date2 & "001" '如果今天沒有流水號，從今天日期+"001"開始 Else Me![自動編號] = date2 & Format(CStr(Val(Right(MaxID, 3) + 1)), "000") '如果今天有流水號，則將最大流水號加1 End If End If End Sub

行云流水

你可以到书店查一本名叫《access行家实战问答集》的书，有比较详细的介绍。