ACCESS菜鸟求帮助

迷失心绪

不会数据库，还在学习中，
请教1、窗体的新操作表中，如何能让比如业务名称=银行转存，转取，利息归本时证券代码、股票名称、成交价格、数量、手续费、印花税、过户费中的数为0且表格为灰色不可填写，业务名称=股息入账，红股入账时，证券代码、股票名称、成交价格、数量、手续费、印花税、过户费中的数为0且表格为灰色不可填写。
2、让实发金额=价格*数量+手续费、印花税、过户费，且当中的数量更改，实发金额跟随发生变化。
3、当股票买入或银行转取时，录入的数量在表的新操作表的数据自动变成负数。


谢谢高手，我现在在学习，顺便求推荐几本入门书

zez

第一条做不到，因为你的窗体的数据源是：
SELECT 新操作表.成交日期, 新操作表.业务名称, 新操作表.证券代码, 股票明细表.股票名称, 新操作表.成交价格, 新操作表.成交数量, 新操作表.手续费, 新操作表.印花税, 股票明细表.过户费, 新操作表.实发金额, 新操作表.备注 FROM 股票明细表 INNER JOIN 新操作表 ON 股票明细表.股票代码=新操作表.证券代码;
这个查询有一个要求就是证券代码必须是股票明细表里面存在的股票代码。所以一旦输入0，就会报错，不让你保存这个记录。
第二三两条，没有完全看懂，但可以试试下面的代码：

Private Sub 成交价格_AfterUpdate()
实发金额 = 成交数量 * 成交价格 + 手续费
If 业务名称 = "证券买入" Or 业务名称 = "银行转取" Then 实发金额 = -Abs(实发金额)
End Sub
Private Sub 成交数量_AfterUpdate()
实发金额 = 成交数量 * 成交价格 + 手续费
If 业务名称 = "证券买入" Or 业务名称 = "银行转取" Then 实发金额 = -Abs(实发金额)

End Sub
Private Sub 手续费_AfterUpdate()
实发金额 = 成交数量 * 成交价格 + 手续费
If 业务名称 = "证券买入" Or 业务名称 = "银行转取" Then 实发金额 = -Abs(实发金额)
End Sub

迷失心绪

zez 发表于 2013-1-11 16:50
第一条做不到，因为你的窗体的数据源是：
SELECT 新操作表.成交日期, 新操作表.业务名称, 新操作表.证券代 ...

第一条那个可以改，或在明细表里加入一个0的信息的。先谢谢了
excel的VBA我还会那么几句，这个的我一点都不会了，最好是帮我做出来，我自己琢磨，当然能教我就更好了。这只是个思路，是我第一个access表。

zez

做了个例子，不一定符合你的要求。因为你的说明中有些地方 我看不懂。比如“让实发金额=价格*数量+手续费、印花税、过户费”，我就没有看懂。你还得根据你的需要作些修改。