message的用法

yanghb

1、如何判断窗体记录为0，
2、如何用消息框提示“无此记录”。
3、是在窗体的哪个事件中写代码？
谢谢

kangking

1、2、
Dim rs As DAO.Recordset
Set rs = Me.Recordset
rs.MoveLast
rs.MoveFirst
if rs.recordcount=0 then
MsgBox “无此记录”。
end if
3、一般在查询后，这要你你是怎样实现查询的。

yanghb

先谢谢你！
不好意思，我没说清楚，我的查询是用子窗体实现的，能在子窗体刷新时判断并提示吗？

[ 本帖最后由 yanghb 于 2008-8-29 14:20 编辑 ]

yanghb

这个我先收下，学习学习。
谢谢回复。

zyp

如果代码写在主窗体中：
if Me.Recordset.RecordCount=0 then
      msgbox "无此记录"
end if

如果代码写在子窗体中
if me.子窗体名.form.Recordset.RecordCount=0 then
      msgbox "无此记录"
end if

chenlugen

zyp大哥,,,能看看我这个会有什么不对吗?????
http://www.accessoft.com/blog/ar ... id=2399&Id=2324

如一个叫资料输入的主窗口中,有一个用于显示查询记录的子窗口"日期查询",它基于一个叫"日期查询"的查询,以主窗口上的日期控件为查询条件,查询日期按扭为查询按扭,可通过以下代码,实现当没有符合条件的记录时,弹出提示框:

Private Sub 查询日期_Click()    此按扭在主窗口中,,,

Me.日期查询.Requery

If Me.日期查询.Form.Recordset.RecordCount - 1 < 0 Then

         Msgbox "没有符合条件的记录,请重新输入!",,"提示框"

         Me.日期.SetFocus


Else

Me.姓名.SetFocus
Me.姓名.SelStart = Me.姓名.SelLength

End If

End Sub

我这些代码运行的结果是,,,,能实现当没有记录时弹出提示,,,,,但退出系统时会弹出一个提示框,,,提示说没有当前记录(转为mde文件后出现),,,,能指点下这是为什么吗????应该怎么改进?????[:30]