请教一下关于dlookup的问题

mzjlgjf

我现在做一个小程序,表那有个表"规格",包含字段有"编号","规格""粒数","规格"那个字段储存有小数点的数字(如含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编辑过]

谢健

上传示例！

一点通

你的规格是文本格式还是数字格式?

mzjlgjf

数字 的

一点通

方法没有错,要上传例子才能真正知道原因