我的代碼遇到了問題。
我的 MS Access 資料庫需要在新的月份或年份的開始重置序列號欄位。
但是，在測驗資料庫時，它運行良好，直到我到達第 10 條記錄，然后我收到重復值警告。
我完全不知道我哪里出錯了。
請幫忙？代碼粘貼在下面：
Private sub form_beforeinsert(Cancel as integer)
dim vlast as variant
dim invnext as integer
me.invyear = format(date,"yyyy") & format(date, "mm")
vlast = dmax("SeriesNumber", "invoice", "InvYear='" & Me.invyear.value & "'")
if isnull(vlast) then
invnext = 1
else
invnext = vlast 1
end if
me.seriesnumber = invnext
me.invoicenumber = format(date, "yyyy") & "-" & Format(date, "mm") & "-" Me.SeriesNumber
End Sub
uj5u.com熱心網友回復：
這是因為您似乎將所有內容都存盤為text。因此，轉換為數字以檢索數值最大值：
vlast = DMax("Val([SeriesNumber])", "invoice", "InvYear='" & Me!invyear.Value & "'")
轉載請註明出處，本文鏈接：https://www.uj5u.com/qukuanlian/448402.html
上一篇：您可以永久禁用Excel作業簿中特定作業表的自動計算嗎
下一篇：回圈從不同的范圍/表格制作圖表