这段是我写的,老说缺少对象。。。。。
Private Sub 保存记录_Click()
On Error GoTo Err_保存记录_Click
Dim c, e
c = ph
e = pmje
If e <> "" Then
sql = "select sum(zzsfpje) from 增值税发票录入 where c='&c&'"
If conn.Execute(sql)(0) < e Then
MsgBox "汇票金额大于增值税发票总额!", vbExclamation, "提示"
End If
End If
DoCmd.RunCommand acCmdSaveRecord
Exit_保存记录_Click:
Exit Sub
Err_保存记录_Click:
MsgBox Err.Description
Resume Exit_保存记录_Click
Dim a
If Nz(pmje) - Nz(Me.gxhtje) > 0 Then
MsgBox "汇票金额大于购销合同金额!", vbExclamation, "提示"
'以下加入不符合要求的事件过程
End If
If ph <> "" Then
a = Nz(DSum("pmje", "主明细表", "ph='" & ph & "'"))
If a > pmje Then
MsgBox "汇票金额大于增值税发票总额!", vbExclamation, "提示"
'以下加入不符合要求的事件过程
Else
'以下加入如果符合要求的事件过程
End If
End If