Office中国论坛/Access中国论坛

标题: 求助完善记账凭证 [打印本页]

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

作者: tmtony 时间: 2008-11-9 02:20
一般校验数据是否有错,均放在窗体更新前事件中判断
日期选择窗体可搜索一下论坛,比较多了

作者: changweiren 时间: 2008-11-9 19:20
标题: 回复 1# 的帖子
'回答第一个问题,不知是否适用?

'借贷方不可以同时录放数据
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

作者: wen123456 时间: 2008-11-9 20:23
changweiren 每次都这么热心,真的很感激,但我试了一下不能实现我想要的功能,不知是我放错位置还是..

作者: huangxiuwen 时间: 2009-2-1 00:19
关注

作者: carolineying 时间: 2011-6-26 02:13
回复 wen123456 的帖子

谢谢分享

作者: YXH_YXH 时间: 2011-11-5 10:35
帮顶。支持楼主！！！！！！！！

作者: cpxie 时间: 2015-6-15 20:55
好东西

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)