Item not found in this collection

[jensonchandy]

Runtime error 3265
Item not found in this collection


This error i'm getting when i'm running a report in ms access

And the code is like below

Public Function WhatSQL()
Dim ftext As String
Dim myqry As QueryDef
Set myqry = CurrentDb.QueryDefs(MQRY)
WhatSQL = myqry.SQL
End Function

regards
jenson

 

[stepone]

Set myqry = CurrentDb.QueryDefs(MQRY)

I think you have to put the query name in quotes ;

Set myqry = CurrentDb.QueryDefs("MQRY")

Hope that helps,
StepOne