Recordset

[Ragah21]

i need some help to correct the below code.

Public Sub Check_Records()

Dim dbs As DAO.Database, qdfCurr As DAO.QueryDef, rst As DAO.Recordset, strSQL As String

Set dbs = CurrentDb

If QueryDefs("NAMEOFMYQRY").Recordset.RecordCount = 0 Then
MsgBox "There are no records to wiew.", vbQuestion, "Error"
End If

End Sub

 

[bubba100]

Straight from the Access Help. Looks like you have to OPEN the recordset before you can determine the record count.

Dim dbsNorthwind As Database
Dim rstEmployees As Recordset

Set dbsNorthwind = OpenDatabase("Northwind.mdb")

With dbsNorthwind
' Open table-type Recordset and show RecordCount
' property.
Set rstEmployees = .OpenRecordset("Employees")
Debug.Print _
"Table-type recordset from Employees table"
Debug.Print " RecordCount = " & _
rstEmployees.RecordCount
rstEmployees.Close

 

[TheAceMan1]

How are ya Ragah21 . . .

Use a recordset instead!

[blue]Public Sub Check_Records()

   Dim dbs As DAO.Database, rst As DAO.Recordset
   Dim Msg As String, Style As Integer, Title As String
   
    
   Set dbs = CurrentDb
   Set rst = dbs.OpenRecordset("NAMEOFMYQRY", dbOpenDynaset)
   DL = vbNewLine & vbNewLine
   
   If rst.BOF Then
      Msg = "There are no records to view!"
      Style = vbInformation + vbOKOnly
      Title = "Error!"
      MsgBox Msg, Style, Title
   End If
   
   Set rst = Nothing
   Set dbs = Nothing
   
End Sub[/blue]

See Ya! . . . . . .