open query in report code

[Guest]

I have the following code:

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Reportname As String

Set db = CurrentDb
Set rst = db.OpenRecordset("Select * From [Analytes and Worksheets query] ")
i
rst.MoveFirst




how do i check if there are any records existing prior to rst.movefirst

 

[Marshall Barton]

I have the following code:

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Reportname As String

Set db = CurrentDb
Set rst = db.OpenRecordset("Select * From [Analytes and Worksheets query] ")
i
rst.MoveFirst

how do i check if there are any records existing prior to rst.movefirst

UseL

If rst.RecordCount > 0 Then
rst.MoveFirst
Else
'no records
End If

 

[Guest]

thanks
--
Regards


Patrick Stubbin

I have the following code:

Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim Reportname As String

Set db = CurrentDb
Set rst = db.OpenRecordset("Select * From [Analytes and Worksheets query] ")
i
rst.MoveFirst

how do i check if there are any records existing prior to rst.movefirst

UseL

If rst.RecordCount > 0 Then
rst.MoveFirst
Else
'no records
End If