Office中国论坛/Access中国论坛

标题: update来刷新实现空的序号自动生成。请大佬支持一下 [打印本页]

作者: snryga 时间: 2019-4-1 16:40
标题: update来刷新实现空的序号自动生成。请大佬支持一下
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 时间: 2019-4-1 18:22
支持一下

作者: snryga 时间: 2019-4-2 11:24
要实现的目的是在窗体中通过按钮对子窗体空的序号按规则进行一次性填充

作者: yanwei82123300 时间: 2019-4-3 07:12
老师给个例子吧！谢谢

作者: admin 时间: 2019-4-3 09:38
支持一下

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

作者: cgsilicone 时间: 2019-4-9 17:04

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 时间: 2019-4-10 19:59
没整懂呢，现在的情况就是序号部分为空。还请大佬帮忙写全代码，示例展现，谢谢！！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)