請看看我的問題。
我嘗試為 [No] 中的每個新記錄分配一個增量加 1 作為整數的自動編號。我使用以下代碼，但它不能正常作業，并且記錄停止計算。
Private Sub Ser_AfterUpdate()
If Ser = "O" Then
Dim MyYear, varLast
MyYear = Year(Date)
Yr = Right(MyYear, 2)
varLast = DLast("No", "NotamT")
No = varLast 1
Types.Requery
Else
MsgBox "WRONG NOTAM SERIES"
End If
End Sub
uj5u.com熱心網友回復：
目前還不是很清楚，你試圖做什么，但它可能是這樣的：
Private Sub Ser_AfterUpdate()
If Ser = "O" Then
Me!Yr.Value = Year(Date) Mod 100
Me!No.Value = Nz(DMax("No", "NotamT")) 1
Me!Types.Requery
Else
MsgBox "WRONG NOTAM SERIES"
End If
End Sub
uj5u.com熱心網友回復：
嘗試使用 Dmax 函式，同時確保欄位資料型別是整數而不是文本。
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/416195.html
標籤：
上一篇：如何檢測是否所有復選框都被禁用？
下一篇：從記錄集中洗掉