查询后，窗体里内容为空时出错改怎么处理？

朱全茂　发表于：2014-04-22 20:52:27 　

复制

见下图

我想依次根据左侧子窗体的人名，得到其附件的附件名称（如上图右侧子窗体所示）

但当有的人没有照片，右侧子窗体里就没有记录，这是就会弹出如下界面

这种问题怎么解决？我是想判断右侧子窗体的内容为空时就跳过去，再检查下个人的附件。

右侧子窗体的数据源取自查询语句：

strSQL = "SELECT ftlb,ftmc,ryxm FROM qryryft WHERE [ryxm] Like '*" & strKey & "*' and [ftlb] Like '照片'"

Me.frmchild2.Form.RecordSource = strSQL

frmchild2为右侧子窗体名称

感谢各位大神！

Top

cspa 发表于：2014-04-22 22:42:08

一种方法是设置on error，当错误号为2427时显示为＂此人无照片＂等你设置的信息。还一种方法为先做一个查询数据集，如数据集中记录数为0，则提示＂此人无照片＂后退出，如有数据则按你的代码执行。

最好上传示例，方便修改。

Top

朱全茂发表于：2014-04-22 22:50:04

谢谢楼上就是不知道用什么语句来判断 “数据集中记录数为0”

Top

朱全茂发表于：2014-04-22 23:21:24

竹笛的代码搞定：

Dim rst As DAO.Recordset
Set rst = CurrentDb.OpenRecordset("SELECT ftlb,ftmc,ryxm FROM qryryft WHERE [ryxm] Like '*" & strKey & "*' and [ftlb] Like '照片'", dbOpenDynaset)
If rst.RecordCount <> 0 Then

Top

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

Access交流中心

查询后，窗体里内容为空时出错改怎么处理？