VBA访问自动编号失败
VBA acces auto numbering failure
对于注册工具,我们总是通过以下代码行创建案例 ID。
Me.RMA_Nr = Format$(Now(), "yymm") & Format$(Val(Right$(DLast("[RMA-Nr]", "TBL_RMA_ISSUE"), 3)) + 1, "000")
不幸的是,我们现在总是得到相同的问题编号,我应该在哪里查看哪里出了问题。这条线工作了一年多。
使用DMax
:
Me.RMA_Nr = Format$(Date(), "yymm") & Format$(Val(Right$(DMax("[RMA-Nr]", "TBL_RMA_ISSUE"), 3)) + 1, "000")
对于注册工具,我们总是通过以下代码行创建案例 ID。
Me.RMA_Nr = Format$(Now(), "yymm") & Format$(Val(Right$(DLast("[RMA-Nr]", "TBL_RMA_ISSUE"), 3)) + 1, "000")
不幸的是,我们现在总是得到相同的问题编号,我应该在哪里查看哪里出了问题。这条线工作了一年多。
使用DMax
:
Me.RMA_Nr = Format$(Date(), "yymm") & Format$(Val(Right$(DMax("[RMA-Nr]", "TBL_RMA_ISSUE"), 3)) + 1, "000")