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

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

结束.....