|
本人纯业余应用人员,碰到一个代码中的小问题,感觉应该不难,但就是解决不了(没办法,底子太薄了),现向各位求教。
我想做一个简单的进销存数据库,通过在进货单(或销售单)中输入商品的数据来改变另一个窗体-“库存商品”中的数据,别的表达式都没问题,就是在记录同步的过程中遇到麻烦。代码如下:
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
如上,在窗体中输入数据时,总是执行到筛选时弹出对话框提示输入商品名称,
以前在别的代码里试过同样的方式好像不提示,而且也试了各种能想到的方法全都不行,我不知道怎么才能够在那个筛选的条件里就把商品名称指定为当前正在编辑记录的名称,请各位老大给看一下,给点提示,先谢过了。
|
|