Office中国论坛/Access中国论坛

标题: 求助两个文本框，如何自动编号。 [打印本页]

作者: cfncmjh 时间: 2016-6-15 08:33
标题: 求助两个文本框，如何自动编号。
本帖最后由 cfncmjh 于 2016-6-15 09:32 编辑

设计一个窗体，有两个文本框架，第一个文本框是行政区划，第二个是自动编号，自动编号共18位，前12位用到行政区划，后6 位从000001开始自动编号。如行政区划是150429001001，第一条记录，自动编号就是150429001001000001，在同一行政区划下，第二条记录就是150429001001000002，如果行政区划变为150429001002，则自动号是150429001002000001，第二条记录是150429001002000002，即不同的行政区划均从000001开始自动编号。谢谢大师们啊。

作者: roych 时间: 2016-6-15 09:52
没看懂。是要录入呢还是要生成数据呢？
录入的话，可以设置不绑定，直接引用，再通过追加查询完成即可。
生成数据的话则更简单。
另外，自定义编号也可以参考以下链接：
http://www.office-cn.net/thread-114014-1-1.html
http://www.office-cn.net/thread-92817-1-1.html最后建议上传示例文件，并描述具体需求。我相信没几个人愿意自己做个示例再回帖的。

作者: cfncmjh 时间: 2016-6-15 10:28
谢谢您，我作一个示例，再麻烦您！

作者: cfncmjh 时间: 2016-6-15 10:49
本帖最后由 cfncmjh 于 2016-6-15 10:56 编辑

这是我作的一个示例，在“基本情况录入界面”窗体当选择乡镇、村、行政区划后，“登记卡编号”文本框根据“行政区划”自动编号，即“登记卡编号”由行政区划和编号组成18位，前12位为行政区划，后6位是编号。谢谢大师指教！

作者: todaynew 时间: 2016-6-15 11:21
function Getnewnum(str as string) as string
'功能：返回新编号
'参数：str -- 行政区划编码
dim newnum as string
newnum=nz(dmax("编号","阁下的表名称","行政区划码='" & str & "'"),str & "000000")
newnum=str & format(val(right(newnum,6))+1,"000000")
Getnewnum=newnum
end function

作者: cfncmjh 时间: 2016-6-15 14:33
你好大师：我传一下示例帮帮我吧，万分感谢。

作者: cfncmjh 时间: 2016-6-15 16:34
已经解决

作者: pyh512 时间: 2016-6-16 08:48
学习了，五楼确实是个好思路！

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