请教怎么判断查询有无记录？

呈易

请教怎么判断查询有无记录？

andymark

   Dim Sql As String
   Dim Rs As New ADODB.Recordset
   Sql = " select * from 查询1"
   Rs.Open Sql, CurrentProject.Connection, adOpenDynamic, adLockOptimistic
   If Not Rs.EOF Then
      DoCmd.OpenQuery "查询1"
      Else
      MsgBox "查询没有记录"
   End If
  
   Set Rs = Nothing

goooer

我认为可以用

select count(*) from [表名]　where ......

搜索看看记录条数是不是０，否则表明有合适记录存在

或者

用eof和bof

[此贴子已经被作者于2006-5-21 21:56:13编辑过]

一点通

可利用Dlookup和isnull两个函数进行判别

呈易

还是isnull,dlookup方便


tblAAAA,其中有一字段MMM


if isnull(dlookup("[MMM]","tblAAAA")) then
msgbox "此表无记录"
end if