Private Sub NewId()
Dim ID, date2 As String
If IsNull([通知日期]) Then
Me.通知单号 = Null
Else
'Me.单据类型 = Me.OpenArgs
date2 = "TQCK" & 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
在窗体中输入“通知日期”，失去焦点事件，自动更新“通知单号”，此程序在mdb中运行正常，输入日期后可连续编号，但转变为adp后，且不能正确执行，每次编号为同一个号码，不C:\Users\yubin\Pictures\AUTO-ID.jpg连号往下编，网上查了很多个案，都没法解决，C:\Users\yubin\Pictures\AUTO-ID.jpg请哪位高手帮我指点下程序出错点，万分谢谢！作者: tmtony 时间: 2014-6-17 23:18
ADP通配符 不再是 * ,而是采用Sql server 的. 如使用 %
你检查一下作者: wanyb 时间: 2014-6-18 08:28
非常感谢版主“tmtony"及时指教！ 真是一语道破天机，在Like '" & date2 & "???'"语句中，把“???“改成"%%%"就OK了，小经验，与有相同困惑的人分享。