求助完善记账凭证

wen123456

我的记账凭证里有
表:凭证\子凭证\科目\科目类别(科目表不用看)
窗体:凭证\子凭证\科目结构
主要可以查询\新增\删除功能\树型科目窗体,可以击科目编码可以选择需要的科目(编码4+2*N)
要完善的:
1\防错功能太少:如科目编码可能为0,借贷方可以同时录放数据\借贷不平可以保存.
2\保存不完善:希望如果不符合条件时,表中均不保存,(如借贷不平衡时).如果符合条件时,则保存.
3\少一个日期窗体.
4\少一个常用凭证窗体

cpxie

好东西

YXH_YXH

帮顶。支持楼主！！！！！！！！

carolineying

回复 wen123456 的帖子

谢谢分享

huangxiuwen

关注

wen123456

changweiren 每次都这么热心,真的很感激,但我试了一下不能实现我想要的功能,不知是我放错位置还是..

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

tmtony

一般校验数据是否有错,均放在窗体更新前事件中判断
日期选择窗体可搜索一下论坛,比较多了