如何判断临时查询的记录数

不务实　发表于：2009-11-09 21:04:16 　

Private Sub 查询_Click()

Dim Tsq As String

略
Tsq = Tsq & " WHERE (" & cxtj & ")"

Tsq是个临时查询

If 当Tsq的查询语句没有记录时,在这儿我没法判断了,求指点! Then

    MsgBox "没有"
    Exit Sub

Else

    DoCmd.Close
    DoCmd.OpenForm "凭证增加"
    Forms!凭证增加!.Form.RecordSource = Tsq

End If

End Sub

竹笛发表于：2009-11-09 21:27:27

用DCount函数。

不务实发表于：2009-11-10 15:47:48

我当然知道这个,但我这是临时查询是个SQL语句,不是查询表,请问怎么用?

andymark 发表于：2009-11-10 19:17:02

用ADO 嘛

Dim Rs As New ADODB.Recordset

Rs.Open Tsq, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

If Rs.RecordCount < 1 Then
MsgBox "没有记录"
Exit Sub
End If

总记录：3篇页次：1/1 9 1 :

Access交流中心