求问！！！关于自动编号

☆西鬼♂

自己想要做个进销存，可是来料编号要写成LL1110-08-01，其中LL就是来料，中间的1110-08就是今天的系统日期，01就是自动编号，表示是今天的第一个来料，而今天的第二个来料是LL1110-08-02，怎么弄呀，我刚入门？请问关于进销存有没有什么比较好的书？

tzh16000

Public Function Autonum(Expr As String, Domain As String, Fcode As String, Optional Ln As Integer, Optional Ymd As String) As String
'Expr-必须,自动编号的字段名,Domain-必须,自动编号字段所在表或查询,Fcode-编号前的任意字符或代码,Ln-日期后的递增数字位数,默认1,Ymd-可选,日期格式,默认"yyyymmdd"
Dim a As Integer
Dim b As Integer
Dim c As String
Dim d As Variant
Dim e As String
Dim f As String

If Nz(Ln, 0) < 1 Then
b = 1
Else
b = Ln
End If
If Ymd = "" Then
e = Format(Date, "yyyymmdd")
Else
e = Format(Date, Ymd)
End If
f = "000000000000000000000"
a = DCount(Expr, Domain)
If a = 0 Then
Autonum = Fcode & e & Right(f, b - 1) & 1
Exit Function
Else
d = Val(Right(DMax(Expr, Domain), Len(e) + b))
c = Left(d, Len(e))
If c >= e Then
Autonum = Fcode & d + 1
Else
Autonum = Fcode & e & Right(f, b - 1) & 1
End If
End If
End Function

☆西鬼♂

tzh16000 发表于 2011-10-8 10:57
Public Function Autonum(Expr As String, Domain As String, Fcode As String, Optional Ln As Integer, O ...

不太明白，这代码贴在哪？刚入门，有没有书推荐呀？

tzh16000

☆西鬼♂ 发表于 2011-10-8 12:14
不太明白，这代码贴在哪？刚入门，有没有书推荐呀？

建立模块,定义函数
窗体中调用此函数就可以