Office中国论坛/Access中国论坛

标题: 请教高手 [打印本页]

作者: stxboy 时间: 2006-12-28 01:14
标题: 请教高手
我想产生一个自动编号字段,其内数据如:2006-0001,2006-0002........2006-0100之类,前面为年份值,后面用"-"号和自动编号相连,这能作到吗,怎么作.

我是新手,刚开始学没几天,希望高手赐教.

作者: zhaoxiaolin 时间: 2006-12-28 07:48
做一个专门记录序号的表

Set MyRecordset = CurrentDb.OpenRecordset("日期流水号")
MyRecordset.AddNew
MyRecordset("序号") = 1
MyRecordset("日期") = Date
MyRecordset.Update
Number = 1
End If

   If Mylookup = Date Then
   Set MyRecordset = CurrentDb.OpenRecordset("日期流水号")
   Number = MyRecordset("序号") + 1
   MyRecordset.Edit
   MyRecordset("序号") = Number
MyRecordset.Update

   ElseIf Mylookup < Date Then
   Set MyRecordset = CurrentDb.OpenRecordset("日期流水号")
   MyRecordset.Edit
   MyRecordset("序号") = 1
   MyRecordset("日期") = Date
   MyRecordset.Update
   Number = 1
End If

Screen.ActiveForm![交易ID] = "CD" & Format(Date, "YYMMDD") & Format(Number, "000")

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