点击下载此附件
'自动编号生成处理过程
'格式:后两位年份+五位基本从1开始的顺序数
'使用方法单击按钮自动生成
Private Sub Command22_Click()
Me.Recalc
Dim sjNF As String, sjTJFS As Long
sjNF = Format(Now(), "yy")
sjTJFS = DCount("*", "本年单据查询")
If Not IsNull(Me.ID) Then
If Not IsNull(Me.编号) Then
MsgBox "本项单据已编号,无法重新编辑!"
Else
If sjTJFS = 0 Then
Me.编号 = CLng(sjNF & "00001")
Else
Me.编号 = DMax("编号", "报销单据流水单") + 1
End If
MsgBox "单据编号生成成功!"
End If
Else
MsgBox "无法给空白记录编号,请先创建记录后再生成编号!"
End If
End Sub