Office中国论坛/Access中国论坛

标题: 纠结着一个完美的自动编号问题 [打印本页]

作者: fine88888888 时间: 2011-7-27 14:11
标题: 纠结着一个完美的自动编号问题
以前用过专业人士开发的ERP，物料编号字段非常好看，如：0000001往上递增时如：0000002.......一直是七位数。现在我用ACCESS做也想做成如此效果却很难，，，绕了好大圈才做到此效果，但多用户使用时出现2个问题：1.有时按添加按钮会出现0000001（可能是数据数没反应过来，多按几次才产生正确的编号）。2.更有时有的用户新建时产生0000050编号，但没有保存，当保存时提示无法保存，因为有另外用户使用并保存了此编号，於是又在旁边入一个刷新按钮（功能和添加按钮一样）重新产生一个编号才能保存。用户用着一个“汗”字了得，我也是郁闷啊，有没有更好的方法啊？？？？？

作者: roych 时间: 2011-7-27 14:50
其实可以考虑在保存时做一个更新查询的。保存之前先打开记录集，用MoveLast方法移动到最后一条记录，然后根据这条记录更新和保存。
坛子里有很多关于自动编号的实例，随便下载几个就好了。

作者: fine88888888 时间: 2011-7-27 15:46

其实可以考虑在保存时做一个更新查询的。保存之前先打开记录集，用MoveLast方法移动到最后一条记录，然后根据这条记录更新和保存。
坛子里有很多关于自动编号的实例，随便下载几个就好了。

不能保存是因为物料编号不能重复。论坛里没有这种编号的，因为这是文本型的，但又按数字型递增。

作者: roych 时间: 2011-7-27 16:52
把红尘的这段源码（详见链接http://www.office-cn.net/thread-92817-1-1.html）贴到模块里（或者窗体VBE的任意位置），然后在需要绑定字段的控件的默认值里输入：
=AutoNum("表名称","ID","" & "",7)

作者: yanghua1900363 时间: 2011-7-27 20:56
'-函数名称： GetNewID
'-功能描述：高效率的文本型自动编号函数，除了第一次调用，以后每次生成编号时不需要再访问编号字段所在的表，因此效率非常高，
'             表中数据量越大，效果越明显。并且在多用户环境下，也不会出现多个用户基于一个表同时录入时，会出现的编号重复问
'             题。适用于各种单据的编号及流水码等，具体请参考使用示例。
'-输入参数： TableName    必需的，表名称或查询名称。
'             FieldName    必需的，自动编号字段名。
'             Digit          必需的，不包含前缀的序号位数。
'             Prefixal       可选的，编号前缀字符串，除了单据类型的描述字符，还可以把其它信息要素如部门ID等加入到此参数中。
'             DateFormat    可选的，编号中的日期部分格式，具体使用请参考Format函数中关于日期的数的部分说明。
'-其它说明：必需要有一个编号维护表配合使用，表名称：USysSN 字段：TableName|FieldName|LastID ,3个字段均为文本型，大小60。
'-使用注意：
'-返回参数：返回生成的编号，出错时返回空字符串（""）。
'-兼容性：
'-使用示例： =GetNewID("Orders","OrderID",5,"XS","yymmdd")    返回示例：XS01042500004
'             =GetNewID("Orders","OrderID",5,"XS","-yyyymmdd-") 返回示例：XS-20100425-00004
'             =GetNewID("Orders","OrderID",5,"XS")             返回示例：XS00004
'             =GetNewID("Orders","OrderID",5,"XS","-")       返回示例：XS-00004
'             =GetNewID("Orders","OrderID",5)                返回示例：00004
'             =GetNewID("Orders","OrderID",5,"【售】")       返回示例：【售】00004
'-相关调用：
'-作者：红尘如烟
'-创建日期： 2011-1-25
'=============================================================================================================================

Function GetNewID(TableName As String, FieldName As String, Digit As Integer, _
                  Optional Prefixal As String, Optional DateFormat As String) As String
On Error GoTo Err_GetNewID
Dim strDate    As String
Dim strLastID As String
Dim strSN    As String
Dim strwhere As String

If DateFormat <> "" Then strDate = Format$(Date, DateFormat)
strSN = String$(Digit, "0")
strwhere = "TableName='" & TableName & "' AND FieldName='" & FieldName & "'"
strLastID = Nz(DLookup("LastID", "USysSN", strwhere))

If strLastID = "" Then
      strLastID = Nz(DMax(FieldName, TableName), strSN)
      CurrentDb.Execute "DELETE FROM USysSN WHERE " & strwhere
      CurrentDb.Execute "INSERT INTO USysSN(TableName,FieldName) " & _
                        "VALUES('" & TableName & "','" & FieldName & "')"
End If

strLastID = Prefixal & strDate & Format$(Val(Right$(strLastID, Digit)) + 1, strSN)
CurrentDb.Execute "UPDATE USysSN SET LastID='" & strLastID & "' WHERE " & strwhere
GetNewID = strLastID

Exit_GetNewID:
Exit Function

Err_GetNewID:
GetNewID = ""
MsgBox Err.Description, vbCritical, "Error #" & Err
Resume Exit_GetNewID
End Function

作者: yanghua1900363 时间: 2011-7-27 20:59
这个是红尘老师的源码很好用！原来的实例中是在窗体的加载事件中，我用这个函数时，是在需要的时候调用的，一样有效。

作者: fine88888888 时间: 2011-7-28 09:12

这个是红尘老师的源码很好用！原来的实例中是在窗体的加载事件中，我用这个函数时，是在需要的时候调用的，一样有效。

我测试过，发现会出现编号不连续的情况~~因为我用的是未绑定框，，当A用户生成编号000045时，，，B用户就生成编号000046，，当B用户保存后，，，A用户放弃保存，，导致A用户生成的编号000045断掉。。。有没有办法杜绝此种情况？？？

作者: fine88888888 时间: 2011-7-28 09:14

yanghua1900363 发表于 2011-7-27 20:59
这个是红尘老师的源码很好用！原来的实例中是在窗体的加载事件中，我用这个函数时，是在需要的时候调用的 ...

作者: yanghua1900363 时间: 2011-7-28 10:00
我想你把GetNewID函数放在窗体的加载事件中了你把它放在保存按钮里边试试

作者: jwqjwl510 时间: 2011-7-28 10:49
高人真多啊

作者: fine88888888 时间: 2011-7-28 10:50

yanghua1900363 发表于 2011-7-28 10:00
我想你把GetNewID函数放在窗体的加载事件中了你把它放在保存按钮里边试试

是哦~~~按保存按钮才生成编号，，，，呵呵，，转个弯就可以解决问题了。。谢谢~~

作者: fine88888888 时间: 2011-7-28 11:26

yanghua1900363 发表于 2011-7-28 10:00
我想你把GetNewID函数放在窗体的加载事件中了你把它放在保存按钮里边试试

为什么不能与前面的编号连续呢？？

作者: zlu287 时间: 2011-7-31 16:27

新手报道，努力学习

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