[求助]在组合框用键盘输入数据时，如数据来源表中没有此数据会给出提示，判断语句怎

tmtming

1、有一个产品信息表（物品编号、支数、色号）  注：物品编号=支数+色号（如象物品编号：40/21，是又支数40/2+色号1组合得出。

2、有一产品信息表查询

3、入仓单。

问题就在入仓单，

当在物品编号处用键盘输入时，如产品信息表中没有此物品编号就给出提示。请教这样的判断语句怎样写？？？（因物品编号有过万种，所以用键盘输入会快很多。）支数、色号是物品编号更新后自动填入。

[此贴子已经被作者于2006-9-17 12:19:55编辑过]

dong_zhq

   Dim strRec As String
   strRec = "select 物品编号 from 入仓单子表 where 物品编号='" & 物品编号 & "'"
   If CurrentDb.OpenRecordset(strRec).RecordCount = 0 Then
       MsgBox "No data in the table"
   End If

[此贴子已经被作者于2006-9-17 12:48:50编辑过]

tmtming

dong_zhq，多谢，可否说说应放在那里，是更新前还是更新后，或是其它地方？

一点通

更新后事件中

zczc123

[:50] [:50]

apsfxc1

不错，学习了

wu8313

不过，组合框也是有内置的notinlist事件的，也可以用这个，看你的如何选择了。

Response = acDataErrContinue
MsgBox .......

[ 本帖最后由 wu8313 于 2008-7-18 17:55 编辑 ]

shuaike_9981

xuexi xuexi

dddd042821

学习了

文棣

学习学习