新手求教：查询无记录，弹出提示框的程序？

全天候救火员　发表于：2013-07-13 16:37:19 　

用命令按钮打开参数查询“编号查询”，输入编号后，如果无记录，希望弹出提示框“无此记录”，求编码？？？谢谢！！！

chinasa 发表于：2013-07-13 19:15:49

If DCount("*", "查询名称") = 0 Then

msgbox "无记录"

exit sub

DoCmd.OpenQuery "查询名称"

end if

殷小宝发表于：2013-07-13 22:02:48

if isnull(dlookup("*","编号查询","编号='" & Me.编号 & "'")) then

msgbox "无此记录",vbinformation,"提示"

me.编号.setfocus

exit sub

end if

总记录：2篇页次：1/1 9 1 :

Access交流中心