请教高手

stxboy

我想产生一个自动编号字段,其内数据如:2006-0001,2006-0002........2006-0100之类,前面为年份值,后面用"-"号和自动编号相连,这能作到吗,怎么作.

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

zhaoxiaolin

做一个专门记录序号的表

   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")