update来刷新实现空的序号自动生成。请大佬支持一下

cgsilicone

snryga 发表于 2019-4-7 19:17
每次都需求指定到对应单元格才能生成一个编码，如何实现点击按钮后将所有空值全部增加编码且递增。

代码如下（针对序号全部为空的情况，其他情况，请改代码）：
Me.表1子窗体.Form.Recordset.MoveFirst
For i = 1 To Me.表1子窗体.Form.Recordset.RecordCount
    Me![表1子窗体]![序号] = AutoNumStr("表1", "序号", 3, "QQ", "YY-")
    Me.表1子窗体.Form.Recordset.MoveNext
Next i