Office中国论坛/Access中国论坛

标题: DLookup取得的公式是： [数量]*[单价]*[折扣] [打印本页]

作者: lichun 时间: 2003-11-18 06:50
标题: DLookup取得的公式是： [数量]*[单价]*[折扣]
昨天的问题，今天重新请教（附数据库）
DLookup("[公式]", "报表公式", "[序号]=1")
DLookup("[公式]", "报表公式", "[序号]=1")
DLookup取得的公式是： [数量]*[单价]*[折扣]
数量，单价，折扣是窗体上的文本框。
取的公式什么样才能进行运算吗？
[attach]2513[/attach]

作者: 有程有序 时间: 2003-11-18 07:26
如果是未知的文件框的公式放在表中是绝对不可以运行，如果是已知的文件框又何必放在表中？百思不得其解，给你一个思路，在表中加一个字段，分别写入A ， B ， C．．．．．等
，用条件用语生成公式，例如当A时＝数量＊单价＊折扣，当B时＝数量＊单价／折扣．．．．

作者: 有程有序 时间: 2003-11-18 07:37
表的数据如下：
序号    代码          公式－－－－只起注解作用
  1       A    数量＊单价＊折扣
  2       B    数量＊单价／折扣
．．．．．．．．．．．．．．
条件用语如下：
IF  DLookup("[代码]", "报表公式", "[代码]=A")  Then
Me.结果＝Me.[数量]*Me.[单价]*Me.[折扣]
．．．．．．．．．．．．．

作者: lichun 时间: 2003-11-18 07:56
可是有很多公式，难道写很多公式到VBA，但是有改公式时怎么办。或有新增.

请大家帮忙！看有什么办法。谢谢

[此贴子已经被作者于2003-11-17 23:57:57编辑过]

作者: 大頭 时间: 2003-11-18 08:00
變動公式當然可以解決

作者: 有程有序 时间: 2003-11-18 08:21
他的公式表如下，没有规则的，晕．．．．．．．．
ID 名称尺寸单位公式
1 箱式英寸长*宽*高
2 平口英寸（长+宽）*高
3 其它英寸长*（宽+高）
4 平口厘米（长/2.54+宽/2.54）*高/2.54

作者: xdj2003_2000 时间: 2010-12-26 11:41
Private Sub 料号_AfterUpdate()
Me.物料名称 = DLookup("[物料名称]", "物料名称", "[料号]='" & Me![料号] & "'")
End Sub

Private Sub 料号_BeforeUpdate(Cancel As Integer)
Dim a
a = DLookup("[料号]", "物料名称", "[料号]='" & Me![料号] & "'")
If IsNull(a) Then
MsgBox "没有这个料号"
Me.料号.Undo
Cancel = True
End If
End Sub

作者: xdj2003_2000 时间: 2010-12-26 11:42
上面的ME 后面跟的是表名，还是字段名，表名是“物料名称” 物料名称里字段名也有“物料名称”看不懂

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