Office中国论坛/Access中国论坛

标题: 求助：怎么用VBA去编写一个查询程序。 [打印本页]

---

作者: fsunboy    时间: 2004-4-16 19:18
标题: 求助：怎么用VBA去编写一个查询程序。
怎么才可以确认有这条记录，或者是没有这条记录！！谢谢。

---

作者: zhuyiwen    时间: 2004-4-29 22:35
通过记录集可以看到查询结果：

Private Sub GetQueryResult()
Dim rs As New ADODB.Recordset

    rs.Open "YourQuery", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    If rs.RecordCount>0 Then
        MsgBox "YourQuery has " & rs.RecordCount & "record(s)."
    Else
        MsgBox "Nothing in yourQuery!"
    End If
End Sub

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3