代码修改问题

xyh2732

各位老师请问一下，为什么我在下面多加了红色字部分的代码，系统会保存两条记录，一条什么内容都没有，另一条是正确的


Private Sub Co[size=+0]m[size=+0]mand6_Click()
On Error GoTo Err_Co[size=+0]m[size=+0]mand6_Click
DoCmd.GoToRecord , , acNewRec
Me.发票编号 = ZDYBH("汇总资料", "发票编号", Me.Combo1)
   
   
     [size=+0]Me.发票号码 = DFirst("发票号码", "发票号码") '发票号码表复制到录入表
    [size=+0]Me.发票剩余份数 = DCount("发票号码", "发票号码") - 1 '发票剩余份数
DoC[size=+0]md.RunSQL "DELETE 发票号码.* FRO[size=+0]M 发票号码 [size=+0]WHERE (((发票号码.发票号码) ='" & [size=+0]Me.发票号码 & "'))"
        DoC[size=+0]md.RunSQL "insert into 汇总资料(资料,日期,公司名称,发票号码,OP,号码,部门,请款单号,开票说明,船名航次VESSELVOY,起运地ORIGIN,装船港LOADPORT,卸船港DISPORT,目的地DESTINATION,到离港日期DATEARRIVALSAILED,提单号BLNO,备注,费用明细1,费用明细2,费用明细3,费用明细4,费用明细5,费用明细6,费用明细7,费用明细8,美元1,美元2,美元3,美元4,美元5,美元6,美元7,美元8,港币1,港币2,港币3,港币4,港币5,港币6,港币7,港币8,人民币1,人民币2,人民币3,人民币4,人民币5,人民币6,人民币7,人民币8,票名,是否到账,币码,发票编号)" & _
" select [资料],[日期],[公司名称],[发票号码],[OP],[号码],[部门],[请款单号],[开票说明],[船名航次VESSELVOY],[起运地ORIGIN],[装船港LOADPORT],[卸船港DISPORT],[目的地DESTINATION],[到离港日期DATEARRIVALSAILED],[提单号BLNO],[备注] ,[费用明细1],[费用明细2],[费用明细3],[费用明细4],[费用明细5],[费用明细6],[费用明细7],[费用明细8],[美元1],[美元2],[美元3],[美元4],[美元5],[美元6],[美元7],[美元8],[港币1],[港币2],[港币3],[港币4],[港币5],[港币6],[港币7],[港币8],[人民币1],人民币2,[人民币3],[人民币4],[人民币5],[人民币6],[人民币7],[人民币8],[票名],[是否到账],[币码],[发票编号]"

ZHENGLIAN

我也想知道 ，也想学习，帮你顶上去