求教：根据日期和字段“Ship”生成自动编号--热贴

kevinch

我想实现在“窗体1”里选组框的“ship”后，文本框J根据“Ship”、“年”、“月”生成一编号.

该编号如：03036T0001、03046T0001、03048E0001、03048E0002、03048E0003、0304ZZ0001。。。

我想很久也做不出来，请各位帮帮忙，急！

fan0217

应该是这样的吧。




添加个表：名称：编号； 字段：date（日期） inum（数字）

在Text30的更新后事件中添加以下代码：

Private Sub Text30_AfterUpdate()

    d = DLookup("inum", "编号", "date =#" & Format(Date, "yyyy/mm") & "#")
If IsNull(d) Then  '若找不到
    Set d1 = CurrentDb.OpenRecordset("编号")
    d1.AddNew   '新增
    d1("date") = Format(Date, "yyyy/mm")
    d1("inum") = 0
    d1.Update
    d = 0
End If
    Me![J] = Format(Date, "yymm") & Me![Text30] & Format(d + 1, "0000")  '加1后显示

'******************************************************************************************************

Set b = CurrentDb.OpenRecordset("select * from 编号 where date =#" & Format(Date, "yyyy/mm") & "#")           '取得当前月编号记录
    x = Right(Me![J], 4)
    b.Edit
    b("inum") = CInt(x)   '回存目前使用编号
    b.Update

End Sub

[此贴子已经被作者于2006-1-11 20:05:31编辑过]

kevinch

非常感谢！看看先。

kevinch

再次感谢fan0217的帮助，还有点总是问题，后面的4位数如“0001”是要随着字段“年”，“月”、“ship”不同而生成各自的编号。可能说不清楚，请看下面的数字。

如：06年1月份ship为“6T”就会生成：06016T0001、06016T0002、06016T0003。。。

    06年2月份ship为“6T”就会生成：06026T0001、06026T0002、06026T0003。。。

    06年1月份ship为“8E”就会生成：06018E0001、06018E0002、06018E0003。。。

     06年2月份ship为“ZZ”就会生成：0602ZZ0001、0602ZZ0002、0602ZZ0003。。。

fan0217

你将代码适当的做一些简单的更改吧，应该可以实现的。

风云の失意

.........

风云の失意

老大，还要发贴3个才能下，不是折磨人吗

风云の失意

。。。。。。。。。

求实

下载不了,郁闷

要发贴3..........[em06]

gdfsslec

要回复才可以下，惨，三个