海阔天空任草飞　发表于：2014-10-17 15:49:15 　

伸手党请教代码：

如何在点击按钮后，让某个文本框的内容显示如下自动编号。141017-D4-001

其中141017是日期，-D4-是固定文本，001是当天的第一笔。

要求当天生成第二次编号时最后三位自动累加即141017-D4-002……003、004、005

当第二天时新生成的第一笔又从1开始，即141018-D4-001……

Top

海阔天空任草飞发表于：2014-10-17 15:53:18

我自己的能力只能写到自动编号之前的代码

Private Sub Command272_Click()
txtno.Value = Format(Date, "yymmdd") + "*-D4-*" +???????
End Sub

Top

茼蒿发表于：2014-10-17 16:05:06

http://www.accessoft.com/article-show.asp?id=8473

《高效无重复自动编码解决方案》如何实现按日期重新开始编号

Top

赵小林发表于：2014-10-18 10:56:21

先建立一个<日期流水号>表

字段分别为<ID;序号；日期>

'---------------------------------------设置表单流水号函数,公用模块写入下段程序

Public Function Number()
Dim RS As New ADODB.Recordset

RS.Open "日期流水号", CurrentProject.Connection, adOpenKeyset, adLockPessimistic
Mylookup = DLookup("日期", "日期流水号")

If IsNull(Mylookup) Then

RS.AddNew
RS("序号") = 1
RS("日期") = Date
RS.Update
Number = 1
End If

If Mylookup = Date Then

Number = RS("序号") + 1
RS("序号") = Number
RS.Update

ElseIf Mylookup < Date Then


RS("序号") = 1
RS("日期") = Date
RS.Update
Number = 1
End If

End Function

在窗口新增时写入下面程序：

Me.交易ID = "LL" & Format(Date, "YYYYMMDD") & Format(Number, "000")

Top

总记录：3篇页次：1/1 9 1 :

Access交流中心

请教按日期进行自动编号的代码

《高效无重复自动编码解决方案》如何实现按日期重新开始编号