Office中国论坛/Access中国论坛

标题: [求助]如何改变现有表自动编号 [打印本页]

作者: t-back 时间: 2006-10-31 17:00
标题: [求助]如何改变现有表自动编号
各位高手好,

有一问题请教.

在表中已经有的自动编号,初始值DN NO.设置为700000,

然后一路递增,现想改变该表中DN NO.的所有编号,

根据issue date的日期,(即实际送货日期)

将700000改变为DN-020424-001,然后自动递增,

其他数据依此类推,(例如:700024,700025改变为DN-020617-001,DN-02617-002)

在不破坏现有数据前提下,

是否能实现更改所有这些编号?

望高手们帮忙设计一下.

顺颂商祺

[此贴子已经被作者于2006-10-31 9:03:00编辑过]

作者: andymark 时间: 2006-10-31 17:05
这个不难,最好把例子传上来

作者: t-back 时间: 2006-10-31 17:06
感激版主,刚才用火弧出问题,换IE[attach]21255[/attach]

[此贴子已经被作者于2006-10-31 9:06:52编辑过]

作者: andymark 时间: 2006-10-31 18:06
增加一个编号过渡

[attach]21257[/attach]

作者: t-back 时间: 2006-10-31 18:25
万分感激版主的协助,

顺颂商祺,

我先学习一下.

不明白再请教
[em01][em02]

作者: t-back 时间: 2006-10-31 18:54
版主你好,能否赐教怎么写增加一个编号过渡的代码

我导入后新的数据不能显示新编码,

只有你附件中的才有显示

感激

作者: andymark 时间: 2006-10-31 19:00
在窗体1中不是给你了吗

先在表中增加一个过渡的文本字段DnNO,执行窗体1的代码

作者: t-back 时间: 2006-10-31 19:14
版主IOU,是我自己笨,忘记导入查询了,

成功啦,我可以改所有编号,

辛苦你的热心解答

作者: t-back 时间: 2006-10-31 21:56
版主你好,旧记录已经更换成功了

再请教一下,

如果新记录也遵从这个编码规则,该如何实现呢?

我录入的新记录还是按旧号码输入的.

再次辛苦你帮忙咯
[em09]

作者: andymark 时间: 2006-10-31 22:59
论坛上有很多关于自动编号的,可以搜索一下

Function AddNo() As String
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Dim I As Integer
Set Conn = CurrentProject.Connection
Rs.Open "select count(*) from Dn where mid(DnNO,4,6)=format(date(),'yymmdd')", Conn, adOpenDynamic, adLockOptimistic
If Rs.EOF Then
I = 1
Else
I = Rs.Fields(0) + 1
End If
AddNo = "Dn-" & Format(Date, "yymmdd") & "-" & Format(I, "000")
End Function

作者: t-back 时间: 2006-10-31 23:20
非常感激版主

明天再请教一个进销存查询的问题

Have a nice day

作者: t-back 时间: 2006-11-1 00:37
版主你好,有个问题都不好意思在贴里问你了,你给我的那段代码应该放在哪里好?

试了放在你给的窗体里运行,但是没变化,放在DN的窗体里也没变化,是否要新建立一个字段来表达?

宽恕我的愚笨,请问该如何正确使用着段代码.

作者: andymark 时间: 2006-11-1 01:06
放在模块里调用

me.text=Addno

作者: t-back 时间: 2006-11-1 02:48
版主你好,按你的方法改变后

号码显示为4开头的

错误行字段
类型转换失败 1 Dn no
auto-number 字段中的 Null  值 1 Dn no
类型转换失败 2 Dn no
auto-number 字段中的 Null  值 2 Dn no
类型转换失败 3 Dn no
auto-number 字段中的 Null  值 3 Dn no
类型转换失败 4 Dn no
auto-number 字段中的 Null  值 4 Dn no
类型转换失败 5 Dn no
auto-number 字段中的 Null  值 5 Dn no
类型转换失败 6 Dn no
auto-number 字段中的 Null  值 6 Dn no
类型转换失败 6 Customer ID
类型转换失败 6 Issue date
类型转换失败 6 Employee ID
类型转换失败 6 Internal cc
类型转换失败 6 Payment ID
类型转换失败 7 Dn no
auto-number 字段中的 Null  值 7 Dn no
类型转换失败 8 Dn no
auto-number 字段中的 Null  值 8 Dn no
类型转换失败 9 Dn no
auto-number 字段中的 Null  值 9 Dn no
类型转换失败 10 Dn no
auto-number 字段中的 Null  值 10 Dn no
类型转换失败 11 Dn no
auto-number 字段中的 Null  值 11 Dn no
类型转换失败 12 Dn no
auto-number 字段中的 Null  值 12 Dn no
类型转换失败 12 Customer ID
类型转换失败 13 Dn no
auto-number 字段中的 Null  值 13 Dn no
auto-number 字段中的 Null  值 14 Dn no

[此贴子已经被作者于2006-10-31 18:53:36编辑过]

作者: t-back 时间: 2006-11-1 06:09
HELLO版主,

再辛苦你多一次,

麻烦看看咯.

顺颂商祺

作者: andymark 时间: 2006-11-1 06:11
转换还是用窗体1的代码转换,转换后新增时才调用AddNO涵数

作者: t-back 时间: 2006-11-1 06:50
版主,能否麻烦你把操作过程说一说,

我都导到眼花缭乱了还是不行

原谅新菜的不幸

作者: andymark 时间: 2006-11-1 07:34
窗体1目的是把原来的编号更改为日期加编号的格式,只需执行一次

以后新增只需按窗体2的格式调用ADDNO

下面的供参考,根据实际情况自已再完善一下

[attach]21273[/attach]

作者: t-back 时间: 2006-11-1 08:40
版主你好,连夜开工测试

现在完全明白你的意思啦,

全部都成功,

你所说的调用是指用新号码来代替旧的号码,

而不需要理会旧号码是如何变化,

完全成功咯,只不过每次输入要按一次新增,

今天辛苦你一天了,明天再来麻烦你库存查询的问题

晚安好梦辛苦晒
[em12][em12][em01][em01][em01]

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