请教窗口与表问题

earyxu

If (IsNull(Me.码数ID)) Then MsgBox ("没码, 无法继续") Exit Sub End If DoCmd.RunSQL "删除打印中间表内容" DoCmd.RunSQL "EXEC 输出自动编号跟踪单到打印中间表 " & 码数ID MsgBox ("已经输出到中间表!") DoCmd.OpenReport "跟踪单格式", acViewPreview, , , acWindowNormal End Sub


如果我想把数据再输出到一个表里面，叫“生产完成表”并且不会清空里面的数据的，要如何做？我想问下，如果要输出到生产完成表中，的数据再设一个新列，我输出了一次，就会在后面加1，要如何做？

todaynew

dim sql as string
sql="insert into 生产完工表(字段列表) select 字段列表 from 源表或查询名称"
docmd.runsql sql