【求助】插入记录时编号向下自动改变后如果把中间的某行记录删除了，怎么设置条件啊？

baiyingzi · 发表于 2009-9-28 15:56:24

本帖最后由 baiyingzi 于 2009-9-29 13:34 编辑

各位高手：我想在表中插入记录时，实现“订单编号”向下自动的变化，不出现重复的编号。比如在编号为1和2之间插入一条编号为2的记录时，原有的编号2变成3、以此类推原有的3、4、5.......都将增加一。通过“插入记录”按钮实现，“订单编号”字段类型是“数字”。
如果把中间的某行记录删除了，序号就缺了，怎么设置条件啊？

大家帮我指点指点！晚辈十分感谢！

tz-chf · 发表于 2009-9-28 16:13:28

怎么还提这样的问题，那原订单还怎么找。

baiyingzi · 发表于 2009-9-28 16:23:44

本帖最后由 baiyingzi 于 2009-9-28 16:26 编辑

订单编号其实就是个序号，别人让我做的，他就要求实现这样的功能。
查找时根本不用“订单编号”来找，用其它字段找的。

koutx · 发表于 2009-9-28 16:48:29

本帖最后由 koutx 于 2009-9-28 16:57 编辑

首先声明：
当个游戏来做的，没啥实用意义。

第一步：
在添加记录按钮的Click事件中加入第一步的代码
dim strUp As String
strUp="UPDATE 表名 SET 表名.订单编号= 表名.订单编号+1 WHERE 表名.订单编号>=Me.订单编号" ’注：Me.订单编号是你在窗体当前记录的编号框中新填写的值
CurrentProject.Connection.Excute strUp
'或 DoCmd.Runsql strUp

第二步：
按保存记录钮（注：前提是你的窗体是按只有按保存后才写入表中来设计的）

baiyingzi · 发表于 2009-9-28 17:24:26

多谢前辈！我先试试

baiyingzi · 发表于 2009-9-28 17:47:34

本帖最后由 baiyingzi 于 2009-9-29 14:46 编辑

太感谢您啦！！koutx你真是个高手！佩服佩服！
但是如果把中间的某行记录删除了，怎么设置条件啊？

taofbjty2 · 发表于 2009-9-28 20:39:19

佩服，Koutx，学习下。

baiyingzi · 发表于 2009-9-29 14:10:55

本帖最后由 baiyingzi 于 2009-9-29 14:45 编辑

但是如果把中间的某行记录删除了，怎么设置条件啊？
If Me.订单编号 = 订单编号 Then
请高手们把这个代码改正一下，谢谢!

chuang0321 · 发表于 2009-9-29 14:44:42

学习了Koutx的语句!

koutx · 发表于 2009-9-29 20:14:37

本帖最后由 koutx 于 2009-9-29 20:17 编辑

根据4楼的操作思路，完全可以自己想到并改写出如下的过程。

在删除记录按钮的Click事件中加入以下的代码
On Error Resume Next
If Me.订单编号<>"" then

dim strUp As String
strUp="UPDATE 表名 SET 表名.订单编号= 表名.订单编号-1 WHERE 表名.订单编号>Me.订单编号" ’注：Me.订单编号是你在窗体的编号框中填写的值,即你要删除的记录的订单编号
CurrentProject.Connection.Excute strUp
' 或 DoCmd.Runsql strUp

随后是你的删除语句。

end if

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

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

主题相关群

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

[表] 【求助】插入记录时编号向下自动改变后如果把中间的某行记录删除了，怎么设置条件啊？

本帖子中包含更多资源

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