Office中国论坛/Access中国论坛

标题: 请教一下关于dlookup的问题 [打印本页]

作者: mzjlgjf 时间: 2007-6-9 17:37
标题: 请教一下关于dlookup的问题
我现在做一个小程序,表那有个表"规格",包含字段有"编号","规格""粒数","规格"那个字段储存有小数点的数字(如含0.9，1，1.1，1.等)我在窗体那想通过在text1里输入规格后自动查找相对应的粒数并付值给text2,代码如下:

Private Sub text1_AfterUpdate()
Dim var As Variant
var = DLookup("粒数", "规格", "规格=" & Me.text1)
If IsNull(var) Then
MsgBox "请确认是否存在此记录", vbExclamation, "提示"
Else
Me.text2 = var
End If

end sub

但为什么不管我输入什么数字它只是把第一条记录的粒数付给text2?

还有就是,我想如果没有相关记录它就把焦点回到text1,要怎么做?

请各位达人帮忙解决一下,谢谢

[此贴子已经被作者于2007-6-9 9:39:42编辑过]

作者: 谢健 时间: 2007-6-9 18:10
上传示例！

作者: 一点通 时间: 2007-6-9 18:11
你的规格是文本格式还是数字格式?

作者: mzjlgjf 时间: 2007-6-9 18:42
数字的

作者: 一点通 时间: 2007-6-9 19:16
方法没有错,要上传例子才能真正知道原因

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