Office中国论坛/Access中国论坛

标题: dlookup为什么不行了 [打印本页]

作者: chengweibing 时间: 2003-1-6 02:04
标题: dlookup为什么不行了
If (DLookup("[卡号级别]", "读者信息表", "[卡号]='" & [Forms]![归还窗口]![文本0] & "'")) = "金卡" Then
Dim hy1 As Integer '定义一个变量
hy1 = (DLookup("[借阅费用]", "借阅费用表", "[卡号级别]='金卡'")) '将"借阅费用表"中卡号级别为金卡的借阅费用附值给变量hy1
Me.应收费用 = [借阅天数] * hy1 '子窗体中的"应收费用"字段的公式算法
[Forms]![归还窗口]!命令8.SetFocus
ElseIf (DLookup("[卡号级别]", "读者信息表", "[卡号]='" & [Forms]![归还窗口]![文本0] & "'")) = "银卡" Then
Dim hy As Integer
hy = (DLookup("[借阅费用]", "借阅费用表", "[卡号级别]='银卡'"))
Me.应收费用 = [借阅天数] * hy
ElseIf (DLookup("[卡号级别]", "读者信息表", "[卡号]='" & [Forms]![归还窗口]![文本0] & "'")) = "无卡" Then
Dim hy2 As Integer
hy2 = (DLookup("[借阅费用]", "借阅费用表", "[卡号级别]='无卡'"))
Me.应收费用 = [借阅天数] * hy2
End If

以上代码的目的是在归还图书时判断卡号的级别,如果是"金卡"则其借阅费用为"借阅费用表"里的相应费用,如果是"银卡"则其借阅费用为"借阅费用表"里的相应费用,如果是"铜卡"其借阅费用为"借阅费用表"里的相应费用,如果是"无卡"则其借阅费用为"借阅费用表"里的相应费用.
但不知为什么,我运行此段代码后,主窗体中的应收费用总是为0,而不能根据卡号级别分别从"借阅费用表"中取相应的值.请问为什么?[em01][em01][em09]

作者: binuochao 时间: 2003-1-6 06:12
你把语句中的括号去掉看看如：

If DLookup("卡号级别", "读者信息表", "卡号= '" & [Forms]![归还窗口]![文本0] & "'") = "金卡" Then

作者: chengweibing 时间: 2003-1-6 19:26
谢谢我下去试一下，

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