[求助]在线斑竹给个面子进来解决问题。

WTM1

这个是公司预算的数据库,月初每个部门要申报预算,然后交到财务部审批,基本是这样,你打开财务部哪个窗体看看,上面的是月初申报预算的窗体,下面是当月实际发生时填写的窗体.上面的是每个月一张一年就12张,不过费用类别不一样.下面的就是实际发生时写进去。

要求:年初数据初始化做好以后,比如在我五月时写预算申请单时,写入费用类别时,让本年预算,本年累计自动显示出来,公式我都写好了,就是不知道和月份怎么关联.差额=上月实际-四月的预算,也就是上月实际-本月预算.但是这个本月预算是上一张单子里的.而上月实际能否和下面子窗体的本月累计按月想关联.这个道理其实是很容易理解的.

下面的窗体:也是按月份,填写进费用项目时要求本月预算自动显示,本月累计按每次实际发生的金额显示,现在是一个整体的数据,要按月分开显示.现在的本月预算默认的是第一个月的，要让它和预算的月份相对应才对呀，结余也是这样.这个你想想就会完全明白的.



具体问题找张建兵(qq:10750904)联系，24小时在线等待，价格你们商量，本人收取一半的介绍费=_=!!



这是设计思路，具体数据库我就不挂上了，如果有认为财务编程能力比较高的可以联系张建兵(qq:10750904)。

我和几个会员研究过，感觉自己对财务运算方面无能为力，所以特前来求援，希望广大的会员和斑竹们能够即时的联系张建兵(qq:10750904)。他已经等待了很久。

我本人也十分无奈的宣布本人对此事无能为力，会者不难，难者不会。我相信对熟悉财务运作的高手来说，这应该是相当容易的问题。

希望大家群策群力.谢谢大家

[em08]

hi-wzj

不是特别了解您提出的需求，但我觉得这表结构应该是：部门表（不变）部门预算表（编号、预算使用部门、费用类别、所属年月、预算额、相关审核人字段）其他的差异额、上月额都在查询中计算完成的，不须要在表中填列的。部门实际费用表（编号、使用部门、费用类别、所属年月、金额、相关审核人字段、差异说明）至于如何取得本月预算数，期初累计数、本年累计数等的算法，请参见：http://www.office-cn.net/Article/ShowArticle.asp?ArticleID=491例子中查询“余额”中的算法。

sgrshh29

子窗体与主窗体怎么捆绑的？也没有完整性参照，字段内容又有重复，做不出来你的要求。而

上月实际 = DLookup("Sum(nz([本月累计],0)) ", "财务部执行预算", "费用类别 ='" & Me!费用项目 & "'")这一句的意思看不明白Sum(nz([本月累计],是什么意思？累计本身就是sum，不然怎么叫累计？，为什么还要sum呢？好像应该是上月实际 = DLookup("Sum(nz([本月明细],0)) ", "财务部执行预算", "费用类别 ='" & Me!费用项目 & "'" & "[填表日期]  between " & "#" & [开始日期]" & "And" & [截止日期] & "#)

但是有问题：1、子表中没有明细这一条。2、主、子窗体关联不正确，不能达到目的。建议你把这二个表重新设计一下。3、子表里也没有开始日期和截至日期的字段。以上个人看法，如有不当，还请包涵。

[此贴子已经被作者于2005-9-20 21:33:26编辑过]

WTM1

我都没看明白什么意思，等高人解决，可能他要是单独拿出来某个问题，我相信应该比较容易解决，看他的财务软件我差晕倒，一句话看不懂！

zspzjb

子窗体是另外有用的,是实际发生费用时填的.主窗体和子窗体不在一起填写.主窗体是预算,子窗体是实际发生额.在同一个月内,主窗体的上月实际=子窗体的本月累计  字段值.这个公式怎么写.

Private Sub 上月实际_GotFocus()

上月实际 = DLookup("Sum(nz([本月累计],0)) ", "财务部执行预算", "费用类别 ='" & Me!费用项目 & "'")

End Sub

这样写吗?我试了一下,主要是时间没有设条件,月份不一样.上面的三个都好了.非常感谢.

因为我不会写代码,所以值都是在数据来源里写的,在查询时再想办法.呵呵!悲哀! 从现在开始我一定学写代码.非常感谢!

也希望不会写代码的同志来看看,以此为鉴!



在此一问:

子表里的本月预算能否这样写:

Private Sub 本月预算_GotFocus()

本月预算 = DLookup("nz(本月预算) ", "财务部", "费用项目 ='" & !费用类别 & "'"_

& " AND 填表日期 =#" & between [开始日期]　And [截止日期] & "#")

End Sub

[此贴子已经被作者于2005-9-20 18:12:30编辑过]

sgrshh29

整体来说.......[em06][em06][em06]。 财务部这个窗体，主窗体里，几个文本框都绑定到表达式了，它自己套住自己，这数据如何存入财务部这个表中？不明白。理论上应该绑定到财务部的字段上，然后用代码计算。下面三句供你参考Private Sub 本年累计完成_GotFocus()

本年累计完成 = DLookup("Sum(nz([上月实际],0)) ", "财务部", "费用类别 ='" & Me!费用类别 & "'")

End SubPrivate Sub 本年预算_GotFocus()

本年预算 = DLookup("nz(本年预算) ", "财务部", "费用类别 ='" & Me![费用类别] & "'")

End SubPrivate Sub 差异额_GotFocus()

差异额 = Nz(上月实际, 0) - DLookup("nz(本月预算,0)", "财务部", "month([开始日期])=" & Month([开始日期]) - 1)

End Sub

至于子窗体，无话可说，起什么作用，实在看不出来有什么.......。

kunlun

是呀。。。本来上午我还想做，，只是一听他说他的要求，我就退了。实在是头疼，不敢做了

zhengjialon

zspzjb：        你能不能把你的问题简化一下，比如说只要懂了某一个简单的例子，你就可以举一反三做好你的项目，你可以举一个简单的例子放上来，这样大家不用分析你的业务规则，只要解决问题就行了，这样会很快解决，也不会让大家一看到你的数据库就觉的头大，没法下手。

zspzjb

http://www.office-cn.net/forum.php?mod=viewthread&tid=32117

数据库 地址

这个是最简单的了.

[此贴子已经被作者于2005-9-20 16:22:41编辑过]

詩意柔情

你們都這么說,難怪笛子移情別戀了!