奇怪，自动编号程序在mdb中可运行，ADP中却不能

wanyb

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

ADP通配符 不再是 * ,而是采用Sql server 的. 如使用 %
你检查一下

wanyb

非常感谢版主“tmtony"及时指教！ 真是一语道破天机，在Like '" & date2 & "???'"语句中，把“???“改成"%%%"就OK了，小经验，与有相同困惑的人分享。