求助两个文本框， 如何自动编号。

cfncmjh

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

roych

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

cfncmjh

谢谢您，我作一个示例，再麻烦您！

cfncmjh

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

todaynew

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

你好大师：我传一下示例帮 帮我吧，万分感谢。

cfncmjh

已经解决

pyh512

学习了，五楼确实是个好思路！