Private Sub Form_Current()
Dim bytoffcut As Byte
Dim strCriteria
strCriteria = "[WOID] = " & Forms![frmAddStockBooking]![MouldWO]
bytoffcut = Nz(DMax("OffcutNo", "dbo_tblOffcuts", strCriteria), 0) + 1
MsgBox bytoffcut
Me.txtOffcut.Value = bytoffcut
Me.WOID.Value = Forms![frmAddStockBooking]![MouldWO]
Me.txtdate.Value = Now()
End Sub
谁能告诉我为什么这不起作用?当我创建新记录时,该变量的行为与预期一样,其中 bytoffcut 递增 1。但是当我检查表格时,绑定到 txtOffcut 的字段读取 1 而不是增量值。
编辑:此代码正在表单的 On current 属性中使用。当我使用表单上的按钮创建新记录时,Dmax 用于在表中查找最高的 offcut No 值并将其添加到其中。
随着 offcut no txtbox 的增加,这似乎在表单中起作用。但是当我查看表格而不是记录增加的切边时 no 而是所有记录都读取 1