Andymark版主,请指教

t-back

Andymark版主,请指教

版主你好,

还记得上次你帮我写的代码吗,非常好用,

由于业务需要,现在要改变一下编号方式,

俺的技术太烂了,研究了半天不知道怎么弄,

又要麻烦你了..先行谢过

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Function AdNo() As String
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim I As Integer
Set Conn = CurrentProject.Connection
Rs.Open "select count(*) from co where mid(coNO,4,6)=format(date(),'yymmdd')", Conn, adOpenDynamic, adLockOptimistic
If Rs.EOF Then
I = 1
Else
I = Rs.Fields(0) + 1
End If
AdNo = "CS" & Format(I, "0000") & "-" &"RG"& Format(Date, "yymmdd")
End Function

>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

"CS" & Format(I, "0000") & "-" & "RG" & Format(Date,
"yymmdd")

是定单号码,我希望显示出来的效果是

CS0001-RG070419,这就是完整的定单号码,

如果明天有新定单

就显示为

CS0002-RG070420
CS0003-RG070420

后天有定单就显示为

CS0004-RG070421
CS0005-RG070421

就是日期随每天变化,而CS后面的数字以+1的形式递增(原来是每天都从0001开始).

再次谢谢你的指教.






<img>

[此贴子已经被作者于2007-4-19 14:51:14编辑过]