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

snryga

Public Function AutoNumStr(TableName As String, _
                           FieldName As String, _
                           Digit As Integer, _
                           Optional Prefixal As String, _
                           Optional DateFormat As String)
    On Error GoTo ErrorHandler
    Dim strPrefixal As String
    Dim strTemp     As String
   
    strPrefixal = Prefixal
    If DateFormat <> "" Then strPrefixal = strPrefixal & Format(Date, DateFormat)
    If strPrefixal <> "" Then strTemp = "[" & FieldName & "] Like '" & strPrefixal & "*'"
    strTemp = Nz(DMax(FieldName, TableName, strTemp), "0")
    strTemp = Val(Mid(strTemp, Len(strPrefixal) + 1)) + 1
    strTemp = Format(strTemp, String(Digit, "0"))
    AutoNumStr = strPrefixal & strTemp
   
Done:
    Exit Function
   
ErrorHandler:
    MsgBox "错误编号：  #" & Err & vbCrLf & _
           "错误来源：  " & Err.Source & vbCrLf & _
           "错误信息：  " & Err.Description, vbCritical, "出错"
    Resume Done
End Function



Private Sub 新增1_Click()
Me![序号] = AutoNumStr("序号合并", "序号", 5, "LS", "")
End Sub

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

roych

支持一下

snryga

要实现的目的是在窗体中通过按钮对子窗体空的序号按规则进行一次性填充

yanwei82123300

老师给个例子吧！谢谢

admin

支持一下

snryga

每次都需求指定到对应单元格才能生成一个编码，如何实现点击按钮后将所有空值全部增加编码且递增。

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

snryga

没整懂呢，现在的情况就是序号部分为空。还请大佬帮忙写全代码，示例展现，谢谢！！