求助完善记账凭证

changweiren

'回答第一个问题,不知是否适用?

'借贷方不可以同时录放数据
Private Sub 贷方金额_AfterUpdate()
    If 贷方金额 > "" Then 借方金额 = ""
End Sub

Private Sub 借方金额_AfterUpdate()
    If 借方金额 > "" Then 贷方金额 = ""
End Sub

'子窗体校验
Private Sub Form_LostFocus()
    If 合计借方 <> 合计贷方 Then
        MsgBox "借贷不相等,请检查！" & Chr(10) _
        & Chr(10) & "差额:" & Format(合计借方 - 合计贷方, "#,#.00")  , vbCritical, "提示"
        DoCmd.CancelEvent
    end if
End Sub