自动编号字段在窗体显示

公道　发表于：2013-04-25 17:44:15 　

老师:由于这个自动编号字段未绑定,那么又如何使它自动新增编号呢?

漏蛧尐魚℡ 发表于：2013-04-25 19:37:17

把自动编号函数写在窗体加载中。

我的ACCESS 发表于：2013-04-25 23:41:04

老师，自动编号函数是什么？

公道发表于：2013-04-26 08:58:56

关键就是这个自动编号函数我自己不会写呀!

杨健发表于：2013-04-27 16:01:50

谁让你自己写自动编号函数了，这是系统自带的，你直接用就行了。函数名为AutoNumStr(),直接用就行了，好好看教材吧，都学到这儿了还不知道自动编号函数。

零智发表于：2013-04-27 19:14:10

看一下【确定】代码。

殷小宝发表于：2013-05-01 14:11:45

在tblCode_jx中取，将序号文本框改为组合框。

附自动编号函数：

Function AutoNumStr(TableName As String, FieldName As String, _

Digit As Integer, Optional Prefixal As String) As String

Dim strTemp As String

AutoNumStr = Nz(DMax(FieldName, TableName, FieldName & " Like '" & Prefixal & "*'"), "0")

AutoNumStr = Val(Right(AutoNumStr, Digit)) + 1

AutoNumStr = Prefixal & Format(AutoNumStr, String(Digit, "0"))

End Function

例 : Me.sfid = AutoNumStr("tblsfmx", "sfid", 4, "S"

总记录：6篇页次：1/1 9 1 :

Access交流中心