Office中国论坛/Access中国论坛

标题: huanghai 请进 [打印本页]

作者: huangzheng88 时间: 2013-1-14 10:09
标题: huanghai 请进
huanghai,好久不见了,请你帮我看一下这段代码有何错误,我的电话18917878286,请把你的手机号发短信我

Dim dbSS As Double

Dim dbSE As Double

Dim dbAS As Double
Dim dbAE As Double

Set rst = CurrentDb.OpenRecordset("select Item_SS,Item_SE,Item_AS,Item_AE from tb_Test_Item where Item_ID = [me.Item_ID]")

dbSS = rst("Item_SS")

dbSE = rst("Item_SE")

dbAS = rst("Item_AS")

dblAE = rst("Item_AE")

If Nz(Item_Data.Value) > dbSS And Nz(Item_Data.Value) < dbSE Then

Exit Sub

Else

MsgBox "超出了标准范围,请检查是否录入错误"

Cancel = True

End If

if Nz(Item_Data.Value) > dbAS And Nz(Item_Data.Value) < dbAE Then

Exit Sub

Else

MsgBox "超出了警戒值,请报告此情况"

Cancel = True

End If

rst.Close

Set rst = Nothing

End Sub

我本来是想搞一个纠错功能,当用户录入的值超出范围时,报警提示,可是不起作用,根本触发不了这段代码
能帮我看出错误在哪里吗?

作者: andymark 时间: 2013-1-14 10:15
select Item_SS,Item_SE,Item_AS,Item_AE from tb_Test_Item where Item_ID = " & [me.Item_ID] & "

作者: huangli0356 时间: 2013-1-14 11:22
高手..学习了..

作者: huangzheng88 时间: 2013-1-15 14:32
Set rst = CurrentDb.OpenRecordset(select Item_SS,Item_SE,Item_AS,Item_AE from tb_Test_Item where Item_ID = " &[me.Item_ID] &")

Or

Set rst = CurrentDb.OpenRecordset("select Item_SS,Item_SE,Item_AS,Item_AE from tb_Test_Item where Item_ID = ' &[me.Item_ID] &' ")

?????

作者: huangzheng88 时间: 2013-1-17 14:09
Set rst = CurrentDb.OpenRecordset("select Item_SS,Item_SE,Item_AS,Item_AE from tb_Test_Item where Item_ID = '& [me.Item_ID] & '")

总是调试不成功,大虾看一下吧

作者: yanghua1900363 时间: 2013-1-17 15:33
标点符号惹的祸参考一下2楼的提示试一试

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