error 13 type mismatch

[Alain]

Hi every one,

can anyone help me on this one, I really don't get it

Dim rst As DAO.Database
Dim strSQL As String
Dim intID As Integer

intID = 1
strSQL = "SELECT Sum(AnnualRental) AS SumOfAnnualRental From BasicRental"
& _
" WHERE (DateFrom <= Date() AND DateTo >= Date()) OR (MthToMth =
True)" & _
" GROUP BY IdBranch" & _
" HAVING IdBranch = " & intID & ""

Set rst = CurrentDb.OpenRecordset(strSQL)

The SQL run properly by itself but cannot set it as a recordset

Thanks

 

[Dirk Goldgar]

Hi every one,

can anyone help me on this one, I really don't get it

Dim rst As DAO.Database
Dim strSQL As String
Dim intID As Integer

intID = 1
strSQL = "SELECT Sum(AnnualRental) AS SumOfAnnualRental From
BasicRental"
& _
" WHERE (DateFrom <= Date() AND DateTo >= Date()) OR (MthToMth
=
True)" & _
" GROUP BY IdBranch" & _
" HAVING IdBranch = " & intID & ""

Set rst = CurrentDb.OpenRecordset(strSQL)

The SQL run properly by itself but cannot set it as a recordset

You declared rst to be a Database, not a Recordset:

Dim rst As DAO.Database

Change that to:

Dim rst As DAO.Recordset

 

[Alain]

Thanks

guess I need vacation soon )

You declared rst to be a Database, not a Recordset:


Change that to:

Dim rst As DAO.Recordset

--
Dirk Goldgar, MS Access MVP
Access tips: www.datagnostics.com/tips.html

(please reply to the newsgroup)