[access查询]如何在查询中,当没有符合条件的记录时,弹出提示；查询无数据弹出提醒；没有数据弹窗提示的方法

时　间:2008-08-07 15:13:01
作　者:chenlugen   ID：2399  城市：东莞
摘　要:If Me.日期查询.Form.Recordset.RecordCount - 1 < 0 Then

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

         Me.日期.SetFocus

Else

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

End If

正　文:

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

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

结束.....