[求助]我想在每个子窗口的主键自动编号,有例子

cicada · 发表于 2006-3-5 23:15:00

我想的是能用不同的材料类型来给材料进行不同的自动编号！在线等待谢谢大家能帮帮菜鸟

例子：

[此贴子已经被作者于2006-3-5 15:17:22编辑过]

wuaza · 发表于 2006-3-5 23:58:00

你用dmax函数、dlookup函数结合nz函数试一下。

cicada · 发表于 2006-3-6 00:04:00

我的例子里只使用了DMAX的函数确定最大值，但是这个函数好像是指表中的最大数据项来的。望能给出代码谢谢啊！

msf · 发表于 2006-3-6 02:42:00

给你发个例子看看

'自动编号的代码
'Private Sub idh()
' Dim rq, bh As String
'    Me.单据类型 = Me.OpenArgs
'       rq = Me.OpenArgs & Right(Format(Date, "yyyymmdd"), 5)
' If IsNull(DLookup("[单据编号]", "单据", "LEFT([单据编号],7)='" & rq & "'")) Then
'       Me.单据编号 = rq & "01"
' Else
'       bh = DMax("[单据编号]", "单据", "LEFT([单据编号],7)='" & rq & "'")
''       bh = DMax("[单据编号]", "单据", "[单据编号]like'" & rq & "%'")
'       Me.单据编号 = rq & Format(CStr(CInt(Right(bh, 2)) + 1), "00")
' End If
'
' End Sub

[此贴子已经被作者于2006-3-5 18:44:56编辑过]

msf · 发表于 2006-3-6 02:43:00

照着上面的例子改改就行了

cicada · 发表于 2006-3-8 07:54:00

我修改了之后还是不能判断子窗口内的数据条数来自动便号，上面或者那位好心的大哥大姐能帮帮我这个菜鸟。用例子帮我改改阿谢谢了！！！[em06]

拜托了噢

cicada · 发表于 2006-3-9 21:36:00

问题一直没有解决有高人帮帮我阿谢谢阿

morick · 发表于 2006-5-27 18:42:00

我是Access的超级新手，想多看些例子！

morick · 发表于 2006-5-27 18:44:00

怎么在office2003中找不到DMax()这个数，请问！！！

morick · 发表于 2006-5-27 18:45:00

补充一句，是在帮助中查找不到有关Dmax()的信息！！！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[与其它组件] [求助]我想在每个子窗口的主键自动编号,有例子

本帖子中包含更多资源

[公告]

群介绍
主题无相 (随机显示版	同地区群块其他地区)