关于追加查询结果中增加自定义自动编码的问题，请各位大神指导,非常感谢！

青见marlene　发表于：2016-08-22 18:16:09 　

DoCmd.RunSQL "INSERT INTO DX_Designsurvey ( 状态,任务编码 )" _
               & " SELECT DX_Repuirement.状态" _
               & " FROM DX_Repuirement" _
               & " WHERE DX_Repuirement.状态='勘察任务待领取'and (([DX_Repuirement].需求编码) Not In (select 需求编码 from [DX_Designsurvey]))"

在此追加查询中，我想在结果中增加一列自定义自动编码字段，格式为DXRM+当前日期（例如20160822）+顺序号位数4位的自增长编码，应该怎么样写代码，请大神指导，谢谢！

Top

yuhong 发表于：2016-08-24 11:42:47

用记录集能够实现，因为是追加记录，那么表中应该有该字段，如auto_SN：

dim rst as new adodb.recordsset

dim icount as integer

........

rst.moveFrist

do until rst.eof

rst("auto_SN")=Format(Date, "yyyyMMdd")&format(icount,"000")

.....

icount=icount+1

rst.update

rst.moveNext

loop

rst.close

conn.close

set rst=nothing(只是个思路，没有验证！)

Top

青见marlene 发表于：2016-08-25 12:22:36

非常感谢

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

关于追加查询结果中增加自定义自动编码的问题，请各位大神指导,非常感谢！