Udlæs antal poster i en query

Rs.RecordCount ?
(Rs ~ dit recordset)
Virker den???

;o)

MsgBox DCount("*", "forespørgslens navn")

Du kan altid bruge
select count(*) from tabel/forespørgsel;

Public Function fhpQuery_Record_Count(strQuery_Name As String) As Long
' -----------------------------------------------------------------------------------
' Purpose    : Check how many records a query returns
' Parameters :
' Returns    : Long
' Created    : 14-01-06
' Modified  :
' Remarks    :
' -----------------------------------------------------------------------------------
On Error GoTo Error_fhpQuery_Record_Count
  Dim lngRecords As Long
  Dim dbs As DAO.Database
  Dim rst As DAO.Recordset
 
  On Error Resume Next
  Set dbs = CurrentDb
  Set rst = dbs.OpenRecordset(strQuery_Name, dbOpenDynaset)
  rst.MoveFirst
  rst.MoveLast
  lngRecords = rst.RecordCount
 
  rst.Close
  Set rst = Nothing
  dbs.Close
  Set dbs = Nothing

Exit_fhpQuery_Record_Count:
  fhpQuery_Record_Count = lngRecords
  Exit Function

Error_fhpQuery_Record_Count:
  lngRecords = 0
  Select Case Err.Number
    Case 2501
    Case 3021
    Case Is < 0
    Case Else
      MsgBox Err.Number & ": " & Err.Description, vbOKOnly + vbCritical, "Error in procedure 'fhpQuery_Record_Count'"
  End Select
  Resume Exit_fhpQuery_Record_Count

End Function


Virker både med en gemt query og en SQL streng