Office中国论坛/Access中国论坛

标题: 求教：通过一个窗体中的记录锁定另一个窗体中的记录 [打印本页]

作者: supercai! 时间: 2009-9-19 14:12
标题: 求教：通过一个窗体中的记录锁定另一个窗体中的记录
本人纯业余应用人员，碰到一个代码中的小问题，感觉应该不难，但就是解决不了（没办法，底子太薄了），现向各位求教。
我想做一个简单的进销存数据库，通过在进货单（或销售单）中输入商品的数据来改变另一个窗体-“库存商品”中的数据，别的表达式都没问题，就是在记录同步的过程中遇到麻烦。代码如下：
Private Sub 含税单价_AfterUpdate()
Me!含税小计 = Me!单项小计

Dim jh1, jh2, kc1, kc2, Pavg, N

N = "库存商品"

DoCmd.OpenForm N, , , , , acIcon

DoCmd.ApplyFilter , "商品名称 = Forms![进货单明细]!商品名称"

jc1 = Me!单项小计
jc2 = Me!数量
kc1 = Forms![库存商品].库存总价
kc2 = Forms![库存商品].库存数量
Pavg = (kc1 + jc1) / (kc2 + jc2)

Forms![库存商品].库存总价 = kc1 + jc1
Forms![库存商品].库存数量 = kc2 + jc2
Forms![库存商品].成本均价 = Pavg

End Sub

如上，在窗体中输入数据时，总是执行到筛选时弹出对话框提示输入商品名称，

以前在别的代码里试过同样的方式好像不提示，而且也试了各种能想到的方法全都不行，我不知道怎么才能够在那个筛选的条件里就把商品名称指定为当前正在编辑记录的名称，请各位老大给看一下，给点提示，先谢过了。

作者: ynjxw 时间: 2009-9-19 15:02
"商品名称='" & Forms![进货单明细]!商品名称 & "'"

作者: supercai! 时间: 2009-9-19 22:36
谢谢楼上的好心人，解决了。
但是还是有个小问题，完全照搬的时候，执行时又提示找不到名为“进货单明细”的窗体，后来把
& Forms![进货单明细]!商品名称 & 改成了& Me!商品名称 & 就可以了，不过还是不明白为什么，哎，也不深究了，我这种二把刀也不可能全弄明白。

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