Office中国论坛/Access中国论坛

标题: [求助]我想在每个子窗口的主键自动编号,有例子 [打印本页]

作者: cicada 时间: 2006-3-5 23:15
标题: [求助]我想在每个子窗口的主键自动编号,有例子
我想的是能用不同的材料类型来给材料进行不同的自动编号！在线等待谢谢大家能帮帮菜鸟

[attach]16172[/attach]例子：[attach]16171[/attach]

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

作者: wuaza 时间: 2006-3-5 23:58
你用dmax函数、dlookup函数结合nz函数试一下。

作者: cicada 时间: 2006-3-6 00:04
我的例子里只使用了DMAX的函数确定最大值，但是这个函数好像是指表中的最大数据项来的。望能给出代码谢谢啊！

作者: msf 时间: 2006-3-6 02:42
给你发个例子看看

'自动编号的代码
'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
照着上面的例子改改就行了

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

拜托了噢

作者: cicada 时间: 2006-3-9 21:36
问题一直没有解决有高人帮帮我阿谢谢阿

作者: morick 时间: 2006-5-27 18:42
标题: [公告]
我是Access的超级新手，想多看些例子！

作者: morick 时间: 2006-5-27 18:44
怎么在office2003中找不到DMax()这个数，请问！！！

作者: morick 时间: 2006-5-27 18:45
补充一句，是在帮助中查找不到有关Dmax()的信息！！！

作者: 一点通 时间: 2006-5-27 19:26
有的,你可以在代码编辑器中输入DMAX,然后按F1就可看到帮助

作者: lisj 时间: 2007-12-2 17:23
学习学习学习学习学习学习

作者: wangwang 时间: 2008-5-19 18:08
学习[:50] [:50]

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