Access交流中心

北京 | 上海 | 天津 | 重庆 | 广州 | 深圳 | 珠海 | 汕头 | 佛山 | 中山 | 东莞 | 南京 | 苏州 | 无锡 | 常州 | 南通 | 扬州 | 徐州 | 杭州 | 温州 | 宁波 | 台州 | 福州 | 厦门 | 泉州 | 龙岩 | 合肥 | 芜湖 | 成都 | 遂宁 | 长沙 | 株洲 | 湘潭 | 武汉 | 南昌 | 济南 | 青岛 | 烟台 | 潍坊 | 淄博 | 济宁 | 太原 | 郑州 | 石家庄 | 保定 | 唐山 | 西安 | 大连 | 沈阳 | 长春 | 昆明 | 兰州 | 哈尔滨 | 佳木斯 | 南宁 | 桂林 | 海口 | 贵阳 | 西宁 | 乌鲁木齐 | 包头 |

点击按钮，子窗体某字段定义为某表的最大编号+1

李泽晓　发表于：2017-01-20 21:58:24 　

我想让 rst!ID 定义为某个表中某个编号字段的下个编号，不知道 Me！[ID] 这个位置代码要怎么改？

（例如我想让ID定义为A表中ID字段的最大编号下个编号，如果此字段现在的最大编号是 bh99 ，那么我希望定义为 bh100）

竹笛发表于：2017-01-20 23:12:30

rst!ID="bh" & format(DCount("*","某表的名称")+1,"000")

Top

竹笛发表于：2017-01-20 23:13:58

另外，编码字段的位数事先就要定好，不能有时3位，有时6位。即不能bh1-bh999,而应该是bh001-bh999

Top

李泽晓发表于：2017-01-20 23:28:02

谢谢老师帮我的帖子作了些回复，但与我的想法不同啊

我的想法是读取A表中ID字段最后添加的编号，在这个编号的基础上往后一位作为输出。

如果最后一位编号是xy201701018，那输出的就是xy201701019。

实际编号是用开发平台的编号程序弄出来的，编号的构造是xy+年+月+000

谢谢老师指点！

Top

竹笛发表于：2017-01-20 23:45:39

平台的编号是保存在 data.mdb中的表 Sys_AutoNumberRules 中，你直接可以在那里取值，再加上1

Top

李泽晓发表于：2017-01-21 00:01:34

请问这段代码怎么写？

Top

竹笛发表于：2017-01-21 00:19:53

dim strID as string

strID=ALookup("[LastNo]","Sys_AutoNumberRules","[RuleName]='规则名称'")

rst!ID="xy" & format(val(Right(strID,9))+1,"000000000")

Top

李春宝发表于：2017-01-21 10:23:36

示例： Me.外委编号 = GetAutoNumber("外委加工编号")，其中getautonumber为平台自带函数。你可以试一下。

Top

李泽晓发表于：2017-01-21 18:11:35

Dim strID As String

strID = DLookup("[ID]", "排序查询", "")

rst!ID = "MQ" & Format(Val(Right(strID, 9)) + 1, "000000000")

将排序查询中要指定的数据排在字段的首行即可

Top

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

Access软件网版权所有 CopyRight 2006-2030
上海盟威软件有限公司提供支持
沪ICP备12024966号-4