写了一段代码，不知错在哪里了。麻烦各位帮着看看，谢谢。

Private Sub 是否审批_Click()
Dim connumber As String
Dim sq1 As String
Dim cmd As Integer
If 是否审批 = True Then
cmd = MsgBox("是否进行审批操作？", vbYesNo)
 If cmd = vbYes Then
cmd = MsgBox("是否按发票金额审批？", vbYesNo)
  If cmd = vbYes Then
  connumber = DLookup("发票号码", "审批表", "发票号码='" & Forms!货款审批操作!发票号码 & "'")
   If connumber = Null Then
   sq1 = "insert into  [审批表]([开票日期],[收款单位],[实洋],[发票号码]) values (forms!发票登记表子窗体!开票日期,forms!发票登记表子窗体!收款单位,forms!发票登记表子窗体!实洋,forms!发票登记表子窗体!发票号码)"
   DoCmd.RunSQL sq1
   End If
  Else: MsgBox ("请修改审批表中码洋与实洋金额！")
  End If
 Else: 是否审批 = False
 End If
 Else: 是否审批 = False
 End If

End Sub

以上就是我写的代码，是想在两个表中做一个判断和追加记录的操作。上传附件中有表和表单。点击下载此附件