日期编号不能递增

刘立丰　发表于：2014-06-21 12:10:29 　

复制

点击下载此附件想使用凭证录入窗体里的日期进行编号构成凭证编码如：20140621-001依次类推，可现在使用的代码只编号20140621-001无法递增，特此请教。

Top

麥田发表于：2014-06-21 14:48:48

请使用快速开发平台

完整版案例开发教程可以学习一下第七章第6节自动编号管理学习一下

http://www.accessoft.com/rdp/tutorial.html
以及配套的视频见这里Access数据库快速开发视频教程
http://edu.51cto.com/course/course_id-967.html

Top

刘立丰发表于：2014-06-21 15:56:34

没有示例怎么学习呀

Top

缪炜发表于：2014-06-21 16:48:03

Dim MaxID, monthold, monthNow, currentID As String
MaxID = DMax("[凭证编码]", "凭证")
monthold = Left(MaxID, 8)
monthNow = Format(Date, "YYYYMMDD")
If monthold = monthNow Then
currentID = monthold & "-" & Format(Val(Right$(MaxID, 3) + 1), "000")
Else
currentID = monthNow & "-" & "001"
End If

Top

刘立丰发表于：2014-06-22 10:57:25

Private Sub 日期_LostFocus()
Dim MaxID, monthold, monthNow, currentID As String
MaxID = DMax("[凭证编码]", "凭证")
monthold = Left(MaxID, 8)
monthNow = Format(Date, , "yyymmdd") 运行时错误“13” 类型不匹配
If monthold = monthNow Then
currentID = monthold & "-" & Format(Val(Right$(MaxID, 3) + 1), "000")
Else
currentID = monthNow & "-" & "001"
End If
End Sub

Top

符鸿敏发表于：2014-06-22 22:44:06

1、monthNow = Format(Date, , "yyymmdd") ，应该monthNow = Format(Date, "yyyymmdd")

2、 monthold = monthNow Then，改成 monthNow= monthold Then

试试看。

Top

刘立丰发表于：2014-06-23 15:39:14

还是不递增，急请高手指点

Top

zhaoyoulong 发表于：2014-06-23 17:20:54

Private Sub Command12_Click()
Me.日期 = Date
Call 日期_AfterUpdate
Me.单位编码.SetFocus

End Sub

Private Sub 日期_AfterUpdate()

Dim MaxID, monthold, monthNow, currentID As String
MaxID = Nz(DMax("[凭证编码]", "凭证", "[凭证编码] like 'D" & Format(Me.日期, "yyyymmdd") & "*'"))
monthNow = Format(Me.日期, "yyyymmdd")

If MaxID = "" Then
currentID = "D" & monthNow & "-" & "001"
Else
monthold = Left(MaxID, 9)
If monthold = "D" & monthNow Then
currentID = monthold & "-" & Format(Val(Right$(MaxID, 3) + 1), "000")
Else
currentID = "D" & monthNow & "-" & "001"
End If
End If
Me.凭证编码 = currentID

Me.月份 = Format(Me.[日期], "yyyy-mm")
End Sub

点击下载此附件

Top

刘立丰发表于：2014-06-23 17:56:57

赵哥多谢了

Top

总记录：8篇页次：1/1 9 1 :

Access交流中心

日期编号不能递增