Office中国论坛/Access中国论坛

标题: 求助：关于自动遍号 [打印本页]

作者: xjzhw1 时间: 2004-4-10 06:07
标题: 求助：关于自动遍号
如何使表的自动遍号按照指定方式递增，如1-1，1-2，1-3……

作者: paul16 时间: 2004-4-10 06:43
1、自动编号
Private Sub NewId()
Dim ID, date2 As String
If IsNull([客户ID]) Or IsNull([日期]) Then
Me.单据编号 = Null
Else
date2 = "CG" & Format([日期], "YYYYMM")
ID = DMax("[单据编号]", "[出入库表]", "[单据编号] Like '" & date2 & "???'")
If IsNull(ID) Then
Me.单据编号 = date2 & "001"
Else
Me.单据编号 = date2 & Format(CStr(CInt(Right(ID, 3)) + 1), "000")
End If
End If
End Sub

作者: Access爱好者 时间: 2004-4-10 07:47
可以用宏的方式实现吗？

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