在access窗体中的文本框显示自动单号
在窗体中的文本框显示自动单号想在access中的窗体的文本框显示自动单号，当窗体加载，或点击保存按钮后，单号在原最大单号的基础上增加，该怎么编程啊？例如：窗体名：流程单，窗体中的文本框为：流程单号，现在我想当窗体加载或点保存后，流程单号在上次基础上增加了个号来显示，如：年+月+日+001   即为20070816001，当保存或者加载后，流程单号文本框要显示20070816002，请哪位高手赐教！

------解决方案--------------------
Private Sub Form_Load()
Me.流程单号 = GetBillNumber()
End Sub

Public Function GetBillNumber() As String
Dim S As String

S = Nz(DMax( "流程单号 ", "表名 "), " ")

If Left(S, 8) <> Format(Date, "yyyymmdd ") Or S = " " Then
S = Format(Date, "yyyymmdd ") & "001 "
Else
S = Left(S, 8) & Right( "000 " & Val(Right(S, 3)) + 1, 3)
End If

GetBillNumber = S
End Function